VB编写小程序

代码改为：Private Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))

b = InputBox("请输入第二个数")

c = InputBox("请输入第三个数")

d = InputBox("请输入第四个数")

sum = a + b + c + d

aver = sum / 4

Print "所输入的4个数字分别是"a, b, c, d

Print "4个数字的和为"sum

Print "4个数字的平均值为"averEnd Sub VB6.0下调试通过。

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

---