only+a+click+away
@都裕3934：编写VB程序,求Sn=a+aa+aaa+…(n个a)的值,其中n是表示a的个数,a是【1,9】之间的随机正整数 -
缑杜18828426959…… Private Sub Command1_Click() Dim a%, n%, i%, Sn$ n = InputBox(请输入n的值) Randomize a = Int(9 * Rnd + 1) Print Tab(30); ＂n=＂ & n, ＂ a = ＂ & a; ＂＂ Temp = a Picture1.Print ＂Sn=＂; a; For i = 1 To n - 1 Temp = Temp * 10 + a Picture1.Print ＂+＂; Temp; Next Print End Sub (这样比较合适吧)
@都裕3934：java中 +a+ , +a代表什么?还有 - - a 和 a- - 的区别?请举实例 -
缑杜18828426959…… a++和++a的区别就在于使用a的时候是先让它+1还是使用之后才+1. b=++a;++a是先让a+1然后再赋值给b.b=a++;a++是把a当前的值赋值给b后a再+1.所以无论是a++还是++a,a都会是4 --a和a--同理
@都裕3934：Private Sub Command1 - Click() A = 10 B = 20 A = A + B B = A - B A = A - B Print ＂A=＂; A, ＂B=＂; B End
缑杜18828426959…… A=A+B=10+20=30 B=A-B=30-20=10 A=A-B=30-10=20 所以最终A=20,B=10
@都裕3934：VB中 Private Sub Command1 - Click() b = 5 c = 6 a = b + c Print a End Sub -
缑杜18828426959…… Print a这种写法,意思是打印出a的值,之前a已经=b+c了,所以显示11 .Print a=b+c这种,实际把a=b+c当做一个逻辑表达式来处理,而不是给a赋值.因为a没有指定值,也就是说a不等于b+c,所以这个逻辑表达式的结果是假,print会显示False.
@都裕3934：Private Sub Command1 - Click() a = 0 For j = 1 To 15 a = a + j Mod 3 Next j Print a End Sub -
缑杜18828426959…… Private Sub Command1_Click() a = 0 For j = 1 To 15 '从1循环每步递增1到15 a = a + j Mod 3 '先运行 j 的求余 (J mod 3) 再累加给a Next j Print a End Sub
@都裕3934：Private Sub Form - Click() a = 1: b = a Do Until a >= 5 x = a * b Print b; x a = a + b b = b + a Loop -
缑杜18828426959…… Private Sub Form_Click() 点击窗体触发click事件 a = 1 初始a=1 b = a Do Until a >= 5 执行do循环 直到a大于等于5时退出循环 x = a * b Print b; x a = a + b b = b + a Loop end sub 最后窗体上打印的是:1 13 6
@都裕3934：用VB编程.,,求A+AA+AAA.......前十项的和.在线等答案. -
缑杜18828426959…… private sub command1_click() A=inputbox(＂请输入一个数＂,＂输入提示＂,10) for i=1 to 10 y=y+val(string(i,A)) next print y end sub
@都裕3934：vb的题 Private Sub Command1 - Click() a = 5 For k = 1 To 0 a = a + k Next k Print k; a End Sub -
缑杜18828426959…… a = 5 '(a值是5) For k = 1 To 0 ' (k值是1) a = a + k '(FOR循环 从1 TO 0不符合循环条件,故此句不会执行) Next k Print k; a '(所以执行之后,K值是1,A值还是5)
@都裕3934：拜托拜托 private sub command1 - click( ) FOR a=1 TO 5 y=1 FOR b=1 TO 5 FOR c=1 TO 5 y=y+1 NEXT -
缑杜18828426959…… Private Sub command1_click() For a = 1 To 5 y = 1 For b = 1 To 5 For c = 1 To 5 y = y + c Next c Next b Next a Print y End Sub '因为y=1在循环a后面 所以 '这个题就相当于 y= (1+2+3+4+5){循环C控制} * 5{循环B控制}+1 '即 15 *5+1=76
@都裕3934：vb求S=a+ aa+ aaa+ aaa...a(n个a)?当a=3,n=4最后输出形式如s=3+33+333+3333在线===快10悬赏.. -
缑杜18828426959…… 加两个文本框复text1,text2,一个command1 private command1_click() dim m as integer,n as integer dim i as integer dim Sum as long m=val(text1.text) n=val(text2.text) for i=1 to n sum=0'这个制循环有些难懂,要慢2113慢体会哦,把数字按5261每个位拆成不4102同的数1653字,比如333=300+30+3 for j=1 to n sum=sum+(10-1)^j*m next j next i end sub
缑杜18828426959…… Private Sub Command1_Click() Dim a%, n%, i%, Sn$ n = InputBox(请输入n的值) Randomize a = Int(9 * Rnd + 1) Print Tab(30); ＂n=＂ & n, ＂ a = ＂ & a; ＂＂ Temp = a Picture1.Print ＂Sn=＂; a; For i = 1 To n - 1 Temp = Temp * 10 + a Picture1.Print ＂+＂; Temp; Next Print End Sub (这样比较合适吧)
@都裕3934：java中 +a+ , +a代表什么?还有 - - a 和 a- - 的区别?请举实例 -
缑杜18828426959…… a++和++a的区别就在于使用a的时候是先让它+1还是使用之后才+1. b=++a;++a是先让a+1然后再赋值给b.b=a++;a++是把a当前的值赋值给b后a再+1.所以无论是a++还是++a,a都会是4 --a和a--同理
@都裕3934：Private Sub Command1 - Click() A = 10 B = 20 A = A + B B = A - B A = A - B Print ＂A=＂; A, ＂B=＂; B End
缑杜18828426959…… A=A+B=10+20=30 B=A-B=30-20=10 A=A-B=30-10=20 所以最终A=20,B=10
@都裕3934：VB中 Private Sub Command1 - Click() b = 5 c = 6 a = b + c Print a End Sub -
缑杜18828426959…… Print a这种写法,意思是打印出a的值,之前a已经=b+c了,所以显示11 .Print a=b+c这种,实际把a=b+c当做一个逻辑表达式来处理,而不是给a赋值.因为a没有指定值,也就是说a不等于b+c,所以这个逻辑表达式的结果是假,print会显示False.
@都裕3934：Private Sub Command1 - Click() a = 0 For j = 1 To 15 a = a + j Mod 3 Next j Print a End Sub -
缑杜18828426959…… Private Sub Command1_Click() a = 0 For j = 1 To 15 '从1循环每步递增1到15 a = a + j Mod 3 '先运行 j 的求余 (J mod 3) 再累加给a Next j Print a End Sub
@都裕3934：Private Sub Form - Click() a = 1: b = a Do Until a >= 5 x = a * b Print b; x a = a + b b = b + a Loop -
缑杜18828426959…… Private Sub Form_Click() 点击窗体触发click事件 a = 1 初始a=1 b = a Do Until a >= 5 执行do循环 直到a大于等于5时退出循环 x = a * b Print b; x a = a + b b = b + a Loop end sub 最后窗体上打印的是:1 13 6
@都裕3934：用VB编程.,,求A+AA+AAA.......前十项的和.在线等答案. -
缑杜18828426959…… private sub command1_click() A=inputbox(＂请输入一个数＂,＂输入提示＂,10) for i=1 to 10 y=y+val(string(i,A)) next print y end sub
@都裕3934：vb的题 Private Sub Command1 - Click() a = 5 For k = 1 To 0 a = a + k Next k Print k; a End Sub -
缑杜18828426959…… a = 5 '(a值是5) For k = 1 To 0 ' (k值是1) a = a + k '(FOR循环 从1 TO 0不符合循环条件,故此句不会执行) Next k Print k; a '(所以执行之后,K值是1,A值还是5)
@都裕3934：拜托拜托 private sub command1 - click( ) FOR a=1 TO 5 y=1 FOR b=1 TO 5 FOR c=1 TO 5 y=y+1 NEXT -
缑杜18828426959…… Private Sub command1_click() For a = 1 To 5 y = 1 For b = 1 To 5 For c = 1 To 5 y = y + c Next c Next b Next a Print y End Sub '因为y=1在循环a后面 所以 '这个题就相当于 y= (1+2+3+4+5){循环C控制} * 5{循环B控制}+1 '即 15 *5+1=76
@都裕3934：vb求S=a+ aa+ aaa+ aaa...a(n个a)?当a=3,n=4最后输出形式如s=3+33+333+3333在线===快10悬赏.. -
缑杜18828426959…… 加两个文本框复text1,text2,一个command1 private command1_click() dim m as integer,n as integer dim i as integer dim Sum as long m=val(text1.text) n=val(text2.text) for i=1 to n sum=0'这个制循环有些难懂,要慢2113慢体会哦,把数字按5261每个位拆成不4102同的数1653字,比如333=300+30+3 for j=1 to n sum=sum+(10-1)^j*m next j next i end sub
