Private Sub Command1_Click()
Me.Cls
Dim N As Integer, i As Integer
N = InputBox("n=", , 9)
For i = 1 To 2 * N - 1
If i <= N Then
Print Space(N - i) + String(2 * i - 1, CStr(i))
Else
Print Space(N - (2 * N - i)) + String(2 * (2 * N - i) - 1, CStr(2 * N - i))
End If
Next i
End Sub
按功能键盘上的F5 运行就可以！ 如果有错误，VB会出现新窗口，用汉字写出如何错误。在新窗口内点击调试，在代码窗口中出错的代码为黄色背景。 最后保存程序，单击“文件”菜单——选择“保存工程”。需要保存两个窗体，首先是.frm的应用程序窗体，然后是.vbp的工程文件。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024