VB工程--百例70---求平均数

Option Explicit
Dim i,v,sum,aver '定义变量 i用于在输入框中显示输入的是第几个数__
'变量v表示在输入框中输入的数值，sum求和，aver求平均数
Private Sub Command2_Click()
aver = sum / 3
Text1.Text = Str(aver) '将数据型转换成为字符型数据
End Sub

Private Sub Form_Load()
For i = 1 To 3
'i从1变化到3 即小框弹出三次 求四个数的平均数就把尾数改成4 很让人不理解的地方
v = Val(InputBox("请输入第" & i & "个值","输入数据",1))
'& i &之间是有空格的，这点注意，犯错误点
sum = sum + v
Next i
End Sub

三次

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!