求一个vb程序！！

Question

求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，并显示结果。

Answer 1

晕，早晓得就不修改了，，现在变成最后一个回答的了！！！！·55555555555555555555555555555555

额,这几天看了下数列的书
把a的通项公式弄出来就可以了
第n个a=[(10^n-1)/9]*a
既n=1 时,a=a
n=2时,a=aa
n=3时,a=aaa
......
然后随机数可一用
Dim a As Integer
Randomize
a = Int(Rnd * 9 + 1)
' 得到
然后计算可以用
Dim n As Integer,s as interger
Randomize
n = Int(Rnd * 6 + 5)'
s=0
for i=n to 0
s=s+[(10^n-1)/9]*a
next

msgbox "S的值为:" & s 'do while函数不晓得对不对,但是计算方法应该没错,上数学陪优班还是好啊,前几天老师才要我们自学数列,,今天就用到了哈哈哈!!!!!!

本人才学VB没还久,要是有高手还请指教!!!我在编写一个聊天的东西,正好有东西需要请教的,,西西..

还有,楼上的,你的通项公式错了把,这样算出来a=a0000了....自己看下咯...

然后刚把循环修改了下。。你试了没？

Answer 2

'代码如下：
Private Sub Form_Click()
Form1.Cls
Dim s, t As Double
Randomize
a = Int(1 + Rnd * 8)
n = Int(5 + Rnd * 5)
For i = 0 To n - 1
t = t + a * 10 ^ i
s = s + t
Next
Print "a 值是: "; a
Print "n 值是: "; n
Print "总和是: "; s
End Sub

Private Sub Form_Load()
Form1.Caption = "点击窗体看效果"
End Sub

Answer 3

我的代码你一定满意......
Private Sub command1_Click()
dim sum! '一定要是单精度,否则有些数据会显示不出
Me.Cls '可不要
Randomize
a = Int(Rnd * 9 + 1)
n = Int(Rnd * 6 + 5)'这才是5~10
g = n
For g = 1 To n
Sum! = Sum! + a / 9 * (10 ^ g - 1)
Next
Print Tab(1); "a=" & a & " " & "n=" & n
Print Tab(1); "结果为:"; Tab(1); Sum!
End Sub

Answer 4

第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本回答被提问者采纳

Answer 5

这么基本的编程题你都不会
还学什么学~