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下調試通過。