UC知道在线等，用vb编程求n个学生的英语平均成绩时总提示“溢出”，请请请帮忙更正一下。
来源：百度知道 编辑：UC知道 时间：2024/04/28 17:46:56
Private Sub Command1_Click()
Dim sum As Double, i As Long, n As Long
mark = Val(InputBox("请输入第" & i & "个学生的英语成绩为:"))
sum = 0
For i = 1 To n
sum = sum + mark
Print mark
Next i
Print n & "n个学生的英语平均成绩为:"; sum / n
End Sub
“ Print n & "n个学生的英语平均成绩为:"; sum /n ”
这行溢出。
怎样可以任意设个n值？
Dim sum As Double, i As Long, n As Long
mark = Val(InputBox("请输入第" & i & "个学生的英语成绩为:"))
sum = 0
For i = 1 To n
sum = sum + mark
Print mark
Next i
Print n & "n个学生的英语平均成绩为:"; sum / n
End Sub
“ Print n & "n个学生的英语平均成绩为:"; sum /n ”
这行溢出。
怎样可以任意设个n值？
你的sum/n中的n没赋值,除数不能为0
还有你的这个程序这样写才能计算出多少学生的成绩
Private Sub Command1_Click()
Dim sum As Double, i As Long, n As Long
' n = 3
n= Val(InputBox("请输入多少个学生(N值):"))
i = 1
'mark = Val(InputBox("请输入第" & i & "个学生的英语成绩为:"))
sum = 0
For i = 1 To n
mark = Val(InputBox("请输入第" & i & "个学生的英语成绩为:"))
sum = sum + mark
Print mark
Next i
Print n & "n个学生的英语平均成绩为:"; sum / n
End Sub
程序修改了一下,你可以看看,先输入N值,然后再录入成绩进行计算!
循环结束条件