vb试题:任意输入N个学生的成绩,计算平均分,并输出n名学生的成绩及平均分。急求,勿水,急求,在线等。
第1个回答 推荐于2018-03-15
Private Sub Command1_Click()
Dim n As Integer
Dim show As String
Dim a()
n = CInt(InputBox("输入学生数"))
ReDim a(n)
For i = 1 To n
a(n) = CInt(InputBox("请输入第 " & CStr(i) & " 名学生成绩"))
average = average + a(n)
Next i
For i = 1 To n
show = show & "第 " & CStr(i) & " 名成绩" & Chr(13)
Next i
average = average / n
show = show & "平均值:" & average & Chr(13)
MsgBox show
End Sub本回答被网友采纳
Dim n As Integer
Dim show As String
Dim a()
n = CInt(InputBox("输入学生数"))
ReDim a(n)
For i = 1 To n
a(n) = CInt(InputBox("请输入第 " & CStr(i) & " 名学生成绩"))
average = average + a(n)
Next i
For i = 1 To n
show = show & "第 " & CStr(i) & " 名成绩" & Chr(13)
Next i
average = average / n
show = show & "平均值:" & average & Chr(13)
MsgBox show
End Sub本回答被网友采纳
第2个回答 2015-11-12
电脑有excel或者spss的数据处理,很简单
第3个回答 2015-11-12
找一本C语言书 里面有的