UC知道求一个vb程序！！
来源：百度知道 编辑：UC知道 时间：2024/05/08 20:54:19
求S=a+aa+aaa+....+aa+aaa(n个a），其中a是一个由随机数产生的1~9(包括1，9）中的一个正整数，n是一个由随机数产生的5~10（包括5，10）中的一个数。例如：当a=2，n=5时，S=2+22+222+2222+22222.
多谢了！如果写得好我还会加分的！
你们回答都对了，怎么办？要不我再再加些分吧，
这道题你们谁回答对了，我给谁。
随机产生20个学生的计算机课程成绩，并显示。统计各分数段人数，即，0~59，60~69，70~79，80~89，90~100，并显示结果。
多谢了！如果写得好我还会加分的！
你们回答都对了，怎么办？要不我再再加些分吧，
这道题你们谁回答对了，我给谁。
随机产生20个学生的计算机课程成绩，并显示。统计各分数段人数，即，0~59，60~69，70~79，80~89，90~100，并显示结果。
第1题:
Private Sub Command1_Click()
Dim s!, a%, n%, i%
Randomize
a = Int(Rnd * 9 + 1)
n = Int(Rnd * 6 + 5)
For i = 1 To n
s = s + Val(String(i, CStr(a)))
Next
Print s
End Sub
第2题:
Private Sub Command2_Click()
Dim s(1 To 20), i%, j%, s5%, s6%, s7%, s8%, s9%
Randomize
For i = 1 To 20
s(i) = Int(Rnd * 101)
j = s(i) \ 10
Select Case j
Case Is < 6
s5 = s5 + 1
Case Is < 7
s6 = s6 + 1
Case Is < 8
s7 = s7 + 1
Case Is < 9
s8 = s8 + 1
Case Else
s9 = s9 + 1
End Select
Next
Print "所有成绩:"; Join(s)
Print "0-59:"; s5
Print "60-69:"; s6
Print "70-79:"; s7
Print "80-89:"; s8
Print "90-100:"; s9
End Sub
'代码如下：
Private Sub Form_Click()
Form1.Cls
Dim s, t As Double
Randomize
a = Int(1 + Rnd * 8)
n