UC知道VB两重循环问题
来源：百度知道 编辑：UC知道 时间：2024/05/10 19:38:08
1
-1-12
1 12 123
-1-12-123-1234
1 12 123 1234 12345
-1-12-123-1234-12345-123456
Command1:用数值实现
Command2：用字符串的子串实现
Command1、2如何设计代码？
两者有何区别？
-1-12
1 12 123
-1-12-123-1234
1 12 123 1234 12345
-1-12-123-1234-12345-123456
Command1:用数值实现
Command2：用字符串的子串实现
Command1、2如何设计代码？
两者有何区别？
Private Sub Command1_Click()
Dim k As Long
For i = 1 To 6
For j = 1 To i
k = 0
For n = 1 To j
k = k * 10 + n
Next
Print k * (-1) ^ (i + 1);
Next
Print
Next i
End Sub
Private Sub Command2_Click()
Dim str As String
str = "123456"
For i = 1 To 6
For j = 1 To i
Print Val(Mid(str, 1, j)) * (-1) ^ (i + 1);
Next
Print
Next
End Sub