杭州交通信息网李森科对中国的影响:*****关于VB的几个题目！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/30 23:11:19
2、随机产生20个学生的计算机课程的成绩，并显示。统计各分数段人数，即0~59，60~69，70~79，80~89，90~100并显示结果
3、随机产生10个递增的100~400的随机数，存放到数组中，并显示结果
哪位朋友知道请告知
第一题:
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a * 100 + b * 10 + c Then
Print a * 100 + b * 10 + c
End If
Next
Next
Next
End Sub
第二题:
Private Sub Command1_Click()
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)
End Sub
第三题:
Private Sub Command1_Click()
Dim i, ar(10) As Integer
Dim s As String
For i = 0 To 9
ar(i) = Int(Rnd() * 300 + 100)
Next
Array.Sort(ar, 0, 10)
For i = 0 To 9
Me.Print ar(i) & vbCrLf
Next
End Sub