二级VB题一道

来源：百度知道 编辑：UC知道 时间：2024/09/27 05:58:22
在键盘上输入4个数据，编写程序，计算并输出这4个数的和以及平均值。要求通过 Inputbox函数进行输入，Msgbox实现输出。

Private Sub Command1_Click()
Dim a As Integer
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 1 To 4
a = InputBox("输入一个数:")
sum = sum + a
Next i
Msgbox "求和:" & sum
Msgbox "平均值:" & sum / 4
End Sub

直接写的，没调试。。（我没VB6了。。。）你看看