vb随即产生20个学生成绩
1. 利用数组方法输入20个学生的成绩，求VB大神解答这道题！
PrivateSubCommand1_Click()
Dimarr(1To20),brr(1To5),i
Fori=LBound(arr)ToUBound(arr)
Randomize
arr(i)=InputBox("分数:",i,Int(Rnd*101))
SelectCaseVal(arr(i))
Case90To100:brr(1)=brr(1)+1
Case80To89:brr(2)=brr(2)+1
Case70To79:brr(3)=brr(3)+1
Case60To69:brr(4)=brr(4)+1
Case0To59:brr(5)=brr(5)+1
EndSelect
Next
Print"所有人的分数:";Join(arr,",")
Print"90分到100分，80到89分，70到79分，60到69分，0到59分人数分别为：";Join(brr,",")
EndSub
2. [vb]随机产生20个学生的成绩，统计各分数段人数。
Option Explicit
Dim d(1 To 20) As Integer
Private Sub Command1_Click()
Dim i As Integer
Picture1.Cls
For i = 1 To 20
d(i) = Int(Rnd() * 100) + 1
Picture1.Print Format(d(i), " 0");
If i Mod 4 = 0 Then Picture1.Print
Next i
End Sub
Private Sub Command2_Click()
Dim b(5) As Integer
Dim i As Integer
Picture2.Cls
For i = 1 To 20
Select Case d(i)
Case 0 To 59
b(1) = b(1) + 1
Case 60 To 69
b(2) = b(2) + 1
Case 70 To 79
b(3) = b(3) + 1
Case 80 To 89
b(4) = b(4) + 1
Case 90 To 100
b(5) = b(5) + 1
End Select
Next
Picture2.Print "0～:"; b(1); "个"
Picture2.Print "60～79:"; b(2); "个"
Picture2.Print "70～89:"; b(3); "个"
Picture2.Print "80～99:"; b(4); "个"
Picture2.Print "90～100:"; b(5); "个"
End Sub
Private Sub Form_Load()
Command1.Caption = "产生并显示数据"
Command2.Caption = "统计分数段人数"
End Sub
3. 编一VB应用程序。要求如下： ⑴ 随机产生20个学生的VB程序设计课程的成绩，存入一维数组中，并显示结果；
这道题的完整答案：所需控件：一个text1，一个command1按钮
其属性设置:text1的multiline属性设为true(即可以接受多行)
command1是数组控件(共四个，见上)。
Option Base 1
Dim x() As Integer
Dim i, j, k, p, t, y, z, s As Integer
Dim a, b, c, d, e As Double
Private Sub Command1_Click(Index As Integer)
ReDim Preserve x(21) '重新定义一个有21个元素的一维数组x
k = UBound(x) - 1 '把一维数组x的下标上界减1剩下就是20个元素(学生)了
Randomize '随机数的初始化
Select Case Index
Case 0
Text1 = "随机产生" & Trim(Str(Val(k))) & "个学生的成绩:"
Text1 = Text1 & vbNewLine
For i = 1 To k
x(i) = Int(Rnd * 100)
Text1.Text = Text1.Text & x(i) & " "
Next i
Text1 = Text1 & vbNewLine
Text1 = Text1 & vbNewLine
Case 1
Text1 = Text1 & "20个学生中最高分的是:"
y = x(1) '假设第一学生的成绩最高
For i = 1 To k
If y < x(i) Then '把第一个学生的成绩与其余的19学生两两对比找出比第一个学生的成绩要高的学生
y = x(i) '如果找到要高的就互换
End If
Next i
Text1 = Text1 & Str(Val(y)) & "分"
Text1 = Text1 & vbNewLine
Text1 = Text1 & "20个学生中最低分的是:"
y = x(1) '同样的思维，假设第一个学生的成绩最低
For i = 1 To k
If y > x(i) Then '把第一个学生的成绩与其余的19学生两两对比找出比第一个学生的成绩要低的学生
y = x(i) '如果找到要低的就互换
End If
Next i
Text1 = Text1 & Str(Val(y)) & "分"
Text1 = Text1 & vbNewLine
Text1 = Text1 & "20个学生中的平均分数是:"
j = 0
For i = 1 To k
j = j + x(i) '先求20个学生的总分
Next i
s = j / (k) '总分数除于人数得平均数
Text1 = Text1 & Str(Val(s)) & "分"
Text1 = Text1 & vbNewLine
Text1 = Text1 & vbNewLine
Case 2
For i = 1 To k
y = x(i) '将所有同学们的分数逐一赋给变量y
Select Case y '在所有分数中查找符合条件的分数并进行计算人数
Case 0 To 59
e = e + 1
Case 60 To 69
d = d + 1
Case 70 To 79
c = c + 1
Case 80 To 89
b = b + 1
Case 90 To 100
a = a + 1
End Select
Next i
Text1 = Text1 & "0~59分的人有:"
Text1 = Text1 & Str(Val(e)) & "个人"
Text1 = Text1 & vbNewLine
Text1 = Text1 & "60~69分的人有:"
Text1 = Text1 & Str(Val(d)) & "个人"
Text1 = Text1 & vbNewLine
Text1 = Text1 & "70~79分的人有:"
Text1 = Text1 & Str(Val(c)) & "个人"
Text1 = Text1 & vbNewLine
Text1 = Text1 & "80~89分的人有:"
Text1 = Text1 & Str(Val(b)) & "个人"
Text1 = Text1 & vbNewLine
Text1 = Text1 & "90~100分的人有:"
Text1 = Text1 & Str(Val(a)) & "个人"
Text1 = Text1 & vbNewLine
Text1 = Text1 & vbNewLine
Case 3
For i = 1 To 19
For j = i + 1 To 20
If x(i) < x(j) Then
t = x(i)
x(i) = x(j)
x(j) = t
End If
Next j
Next i
Text1 = Text1 & "成绩由高到低;"
Text1 = Text1 & vbNewLine
For i = 1 To 20
Text1 = Text1 & x(i) & " "
Next i
Text1 = Text1 & vbNewLine
Text1 = Text1 & vbNewLine
End Select
End Sub
4. VB程序,随机产生20个学生的成绩,并显示.统计各分数段人数,即0~59,60~69,70~79,80~89,90~100,并显示结果
'添加窗体Form1,按钮Command1,然后添加如下代码:
PrivateSubCommand1_Click()
Dims(19),a(4),i,tempAsInteger
Me.AutoRedraw=True
Cls
Fori=0To19
Randomize
s(i)=Int(Rnd*101)
temp=Int(s(i)/10)
Iftemp=10Then
a(4)=a(4)+1
ElseIftemp<5Then
a(0)=a(0)+1
Else
a(temp-5)=a(temp-5)+1
EndIf
Prints(i)
Next
Print
Print"各分数段人数分别是："&Join(a,"")
EndSub
5. VB设计：随机产生20个学生的成绩,并显示.统计各分数段人数,即50~59 60~69 70~79 80-89，90-100。
Randomize
Dim a(20)
Dim s1, s2, s3, s4, s5, s6
s1 = 0: s2 = 0: s3 = 0: s4 = 0: s5 = 0: s6 = 0
For i = 0 To 19
a(i) = Round(100 * Rnd(1))
Print a(i);
Next
Print
For i = 0 To 19
If a(i) >= 50 And a(i) <= 59 Then s1 = s1 + 1
If a(i) >= 60 And a(i) <= 69 Then s2 = s2 + 1
If a(i) >= 70 And a(i) <= 79 Then s3 = s3 + 1
If a(i) >= 80 And a(i) <= 89 Then s4 = s4 + 1
If a(i) >= 90 And a(i) <= 100 Then s5 = s5 + 1
If a(i) < 50 Then s6 = s6 + 1
Next
Print "50-59的有:" & s1 & "人"
Print "60-69的有:" & s2 & "人"
Print "70-79的有:" & s3 & "人"
Print "80-89的有:" & s4 & "人"
Print "90-100的有:" & s5 & "人"
Print "小于50的有:" & s6 & "人"
6. VB设计：随机产生20个学生的成绩,并显示.统计各分数段人数,即50~59， 60~69， 70~79，80-89，90-100。
Option Explicit
Private Sub showScore()
Dim score(1 To 20) As Integer
Dim an(1 To 5) As Integer
Dim i As Integer
Randomize
For i = 1 To UBound(score)
score(i) = CInt(Rnd * 100)
Select Case score(i)
Case 0 To 59
an(1) = an(1) + 1
Case 60 To 69
an(2) = an(2) + 1
Case 70 To 79
an(3) = an(3) + 1
Case 80 To 89
an(4) = an(4) + 1
Case 90 To 100
an(5) = an(5) + 1
End Select
Next
For i = 1 To 5
Select Case i
Case 1
Print "0 - 59 :",
Case 2
Print "60 - 69:",
Case 3
Print "70 - 79:",
Case 4
Print "80 - 89:",
Case 5
Print "90 - 100:",
End Select
Print CStr(an(i))
Next
End Sub
Private Sub Form_Click()
Cls
showScore
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
showScore
End Sub
7. vb编程：随机产生20个学生课程分数并显示,统计各分数段人数，显示统计结果
Private Sub Command1_Click()
Dim a(0 To 4) As Integer, i As Integer, iScore As Integer
Randomize
For i = 1 To 20
iScore = Rnd * 100
If i Mod 4 = 0 Then Print '每4个一行
Print "学生 " & i & " 成绩: " & iScore,
If iScore >= 90 Then
a(4) = a(4) + 1
ElseIf iScore >= 80 Then
a(3) = a(3) + 1
ElseIf iScore >= 70 Then
a(2) = a(2) + 1
ElseIf iScore >= 60 Then
a(1) = a(1) + 1
Else
a(0) = a(0) + 1
End If
Next i
Print '换行
Print "0-59共有: " & a(0) & " 人"
Print "60-69共有: " & a(1) & " 人"
Print "70-79共有: " & a(2) & " 人"
Print "80-89共有: " & a(3) & " 人"
Print "90-100共有: " & a(4) & " 人"
End Sub
8. VB编程 随机产生20个学生的成绩，统计各分数段人数
办法是有，不过很难实现，也不实际。
如果可以的话，先将值放到label或者textbox里面，然后再生成图片
9. VB程序,随机产生20个学生的成绩,并显示.统计各分数段人数,即0~59,60~69,70~79,8
Private Sub Command1_Click()
Dim a(20) As Integer
Cls
c1 = 0: c2 = 0: c3 = 0: c4 = 0: c5 = 0: c6 = 0
Randomize
Print "20个成绩："
For i = 1 To 20
a(i) = Int(Rnd * 101)
Print a(i);
If i Mod 10 = 0 Then Print
Next i
For i = 1 To 20
If a(i) = 100 Then
c1 = c1 + 1
Else
If a(i) > 89 Then
c2 = c2 + 1
Else
If a(i) > 79 Then
c3 = c3 + 1
Else
If a(i) > 69 Then
c4 = c4 + 1
Else
If a(i) > 59 Then
c5 = c5 + 1
Else
c6 = c6 + 1
End If
End If
End If
End If
End If
Next i
Print: Print "统计结果："
Print " 100分："; c1
Print "90~99分："; c2
Print "80~89分："; c3
Print "70~79分："; c4
Print "60~69分："; c5
Print " 0~59分："; c6
End Sub
或者换一种写法（运行效果完全一样）：
Private Sub Command1_Click()
Dim a(20) As Integer
Dim cj(5 To 10) As Integer
Cls
Randomize
Print "20个成绩："
For i = 1 To 20
a(i) = Int(Rnd * 101)
Print a(i);
t = a(i) 10
If t < 5 Then t = 5
cj(t) = cj(t) + 1
If i Mod 10 = 0 Then Print
Next i
Print: Print "统计结果："
Print " 100分："; cj(10)
Print "90~99分："; cj(9)
Print "80~89分："; cj(8)
Print "70~79分："; cj(7)
Print "60~69分："; cj(6)
Print " 0~59分："; cj(5)
End Sub