VB求助:求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),

问题描述:

VB求助:求Sn=a+aa+aaa+aaaa+…+aa…aaa(n个a),
其中a是一个由随机数产生的1~9(包括1、9)中的一个正整数,n是一个由随机数产生的4~9(包括4、9)中的一个正整数,产生随机数需使用Randomize语句.例如,当a=2,n=5时,Sn=2+22+222+2222+22222
表达式:
Private Sub Command1_Click()
Dim a As Integer
Dim n As Integer
Dim s As String
Randomize
a = Int(Rnd() * 9) + 1
n = Int(Rnd() * 6) + 4
For i = 1 To n
s = s + String(i, CStr(a))
If i n Then s = s + "+"
Next
Print "当a=" & a & "时,n=" & n & "时, S=" & s
End Sub
问题:表达式中“ If i n Then s = s + "+" ”这句的意思和作用是什么?
1个回答 分类:数学 2014-09-23

问题解答:

我来补答
当i不等于n的时候在s字符串最后加上一个“+”号,当输出最后一个字符串,比如22222时候i=5,n=5,这个时候不要再s最后加上“+”号
如果有这句,比如a=2,n=5时候输出是这样的:
当a=2时,n=5时,S=2+22+222+2222+22222
如果没有这句If i n Then s = s + "+" 那么输出是这样的:
当a=2时,n=5时,S=222222222222222
或者没有判断语句,只有s=s + "+" 那么输出是这样的:
当a=2时,n=5时,S=2+22+222+2222+22222+
 
 
展开全文阅读
剩余:2000
下一页:请说清为什么