查人人中国名人网掌上 川电app:阁下留步 VB的问题 进来看看
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 10:42:38
2、随机产生20个学生的计算机课程的成绩，并显示。统计各分数段人数，即0~59，60~69，70~79，80~89，90~100并显示结果
3、随机产生10个递增的100~400的随机数，存放到数组中，并显示结果
这3个题目搞了半天不会做 哪位DX帮帮忙！
1.什么是水仙花数??
2.这个题如下
Dim i, b As Integer
Dim ar() As Integer
b = 20 '学生数目
'重新定义数组为b个元素
ReDim ar(b - 1) As Integer
'产生b个随机成绩
For i = 0 To b - 1
ar(i) = Int(Rnd * 100 + 0.5)
Next
'统计
Dim score(4) As String
For i = 0 To b - 1
Select Case ar(i)
Case 0 To 59
score(0) = score(0) & " " & ar(i) & vbCrLf
Case 60 To 69
score(1) = score(1) & " " & ar(i) & vbCrLf
Case 70 To 79
score(2) = score(2) & " " & ar(i) & vbCrLf
Case 80 To 89
score(3) = score(3) & " " & ar(i) & vbCrLf
Case 90 To 100
score(4) = score(4) & " " & ar(i) & vbCrLf
End Select
Next
'显示
Me.Print "0-59的成绩如下:"
Me.Print score(0)
Me.Print "60-69的成绩如下:"
Me.Print score(1)
Me.Print "70-79的成绩如下:"
Me.Print score(2)
Me.Print "80-89的成绩如下:"
Me.Print score(3)
Me.Print "90-100的成绩如下:"
Me.Print score(4)
哈哈，还是问你们老师吧，这种题课本上都有。