UC知道VB程序有问题,请高手看一下代码哪里出错
来源：百度知道 编辑：UC知道 时间：2024/06/19 23:04:23
用两重循环显示
1
-1-12
1 12 123
-1-12-123-1234
1 12 123 1234 12345
-1-12-123-1234-12345-123456
--------------------------------------
我写的代码是 :
Private Sub Command1_Click()
dim i% ,j%,s&
for i=1 to 6
s=0
for j=1 to i
s=s*10+j
picture1.print s=s*(-1)^(j-1)
next j
picture1.print
next i
1
-1-12
1 12 123
-1-12-123-1234
1 12 123 1234 12345
-1-12-123-1234-12345-123456
--------------------------------------
我写的代码是 :
Private Sub Command1_Click()
dim i% ,j%,s&
for i=1 to 6
s=0
for j=1 to i
s=s*10+j
picture1.print s=s*(-1)^(j-1)
next j
picture1.print
next i
重新定义一个m&
将picture1.print s=s*(-1)^(j-1)
改为picture1.print m=s*(-1)^(j-1)
否则s的值被改变符号，等到执行到s=s*10+j时，就不是预期效果了
For i = 1 To 6
s = 0
For j = 1 To i
s = 10 * s + j
Picture1.Print s;
Next
Picture1.Print
Next
这样改就可以了。。。
Private Sub Command1_Click()
Dim i%, j%, s&
For i = 1 To 6
s = 0
For j = 1 To i
s = s * 10 + j
Picture1.Print s * (-1) ^ (j - 1);
Next j
Picture1.Print
Next i
End Sub
你试下看可可以？