Question

（vb程序设计）求缺少的代码：在窗体中显示有规律的图形（规律如下图所示） Dim i%, k% For i = 0 To 14？

在窗体中显示有规律的图形（规律如右图所示）Dim i%, k%For i = 0 To 14 If i <= 7 Then k = i 'k控制每行打印字符个数及前面空格 Else k = End If Print Space(8 - k); If Then Print String(2 * k + 1, ) Else Print String (2 * k + 1, CStr(k)) '显示数字 End If Next〖提示〗1）利用函数String(n%,s$)可产生n个s字符组成的字符串。2）显示的起始位置可用先用函数Space(20-2*i)定位。

Answer 1

Private Sub Command1_Click()

  Dim i%, k%

  For i = 0 To 14

    If i <= 7 Then

      k = i 'k控制每行打印字符个数及前面空格

    Else

      k = 14 - i

    End If

    Print Space(8 - k);

    If i Mod 2 = 0 Then

      Print String(2 * k + 1, Chr(65 + k))

    Else

      Print String(2 * k + 1, CStr(k))

    End If

  Next i

End Sub