UC知道用VB该怎么编写程序？
来源：百度知道 编辑：UC知道 时间：2024/05/18 01:11:25
从键盘上输入四个数，编写程序，计算并输出这4个数的和及平均值，通过Input-Box函数输入数据，在窗体上显示和及平均值
Private Sub Command1_Click()
Dim sum As Double, i As Long, n As Long
n = 3
i = 1
sum = 0
For i = 1 To n
mark = Val(InputBox("请输入第" & i & "个数为:"))
sum = sum + mark
Print mark
Next i
Print n & "4个数的和为:"; sum
Print n & "平均值为:"; sum / n
End Sub