
Private Sub Command1_Click()
Dim i As Integer, iSum As Integer, iAvg As Single
Dim a(0 To 3) As Integer
For i = 0 To 3
a(i) = InputBox("请输入第 " &i + 1 &" 个整数:", "输入整数")
Print a(i)
iSum = iSum + a(i)
Next
Print "和:" &iSum
Print "平均值:" &iSum / 4
End Sub
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)