UC知道请帮忙在我VB程序上加点东西~~~
来源：百度知道 编辑：UC知道 时间：2024/09/20 03:08:46
Private Sub Form_Click()
Dim score() As Integer, i%, n%, aver
n = InputBox("请输入学生的人数")
ReDim score(1 To n)
aver = 0
For i = 1 To n
score(i) = Int(Rnd * 101)
aver = aver + score(i)
Next i
ReDim Preserve score(1 To n + 2)
score(n + 1) = aver / n
score(n + 2) = 0
For i = 1 To n
If score(i) > score(n + 1) Then score(n + 2) = score(n + 2) + 1
Next i
For i = 1 To n
Print "score("; i; ")="; score(i)
Next i
Print "平均分="; score(n + 1), "高于平均分的人数="; score(n + 2)
End Sub
帮我把随即产生的分数的最大值显示出来
Dim score() As Integer, i%, n%, aver
n = InputBox("请输入学生的人数")
ReDim score(1 To n)
aver = 0
For i = 1 To n
score(i) = Int(Rnd * 101)
aver = aver + score(i)
Next i
ReDim Preserve score(1 To n + 2)
score(n + 1) = aver / n
score(n + 2) = 0
For i = 1 To n
If score(i) > score(n + 1) Then score(n + 2) = score(n + 2) + 1
Next i
For i = 1 To n
Print "score("; i; ")="; score(i)
Next i
Print "平均分="; score(n + 1), "高于平均分的人数="; score(n + 2)
End Sub
帮我把随即产生的分数的最大值显示出来
dim m as integer;
m=0;
For i = 1 To n
score(i) = Int(Rnd * 101)
if(score(i)>m)m=score(i);这两句就可以了。M就是你要的值。谢谢！
aver = aver + score(i)
Next i
ReDim Preserve score(1 To n + 3)
For i = 1 To n
If score(i) > score(n + 3) Then score(n + 3) = score(i)
Next
Print "最高分=" & score(n + 3)
加在最后就行了