Dim ave As Single, sum As Single, mark As SingleDim i As Integer ave = 0 sum = 0 For i = 1 To 6 mark = InputBox("输入第" & i & "个学生的成绩") sum = sum + mark Next ave = sum / 6Output.Show(AVE)
加好友 
发短信
Post By：2015/11/18 11:56:00 [显示全部帖子]
