VB的试题救急

下列程序为求Sn=a+aa+aaa+···+aa···a(n个a)，其中a为一个随机数产生的1~9（包括1,9)中的一个正整数,n是一个随机数产生的5~10（包括5，10）中的一个正整数。

Private Sub Form_Load()

Dim a As Integer,n As Integer,S As Double,Sn As Double

a=【 】

n=Int96*Rnd)+5

Sn=0

S=0

For i=1 to n

S=S+a*10^(i-1)

【 】

Next I

Print Sn

End Sub

Int(9*Rnd) + 1

Sn = Sn + S

二楼正解，Rnd产生小于1，大于或等于0的一个数。不要0就必须加1，不要10就不能剩以10，因为还要加1。

第一空：a=Int(99*Rnd)+1

第二空：Sn=Sn+S