用VB做一个简单的小程序

Answer 1

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

Answer 2

按功能键盘上的F5 运行就可以！ 如果有错误，VB会出现新窗口，用汉字写出如何错误。在新窗口内点击调试，在代码窗口中出错的代码为黄色背景。 最后保存程序，单击“文件”菜单——选择“保存工程”。需要保存两个窗体，首先是.frm的应用程序窗体，然后是.vbp的工程文件。