UC知道帮我修改下列这段简单的vb代码
来源：百度知道 编辑：UC知道 时间：2024/06/25 06:01:54
控件:text1,text2,command1,command2.要把:text1和text2设置为多行显示
Dim ctEsc As Boolean
Private Sub Command1_Click()
Dim sz(16) As Integer
Dim i, j, k, l, m, n As Integer
ctEsc = False
sz(1) = 15
sz(2) = 58
sz(3) = 74
sz(4) = 59
sz(5) = 68
sz(6) = 62
sz(7) = 63
sz(8) = 64
sz(9) = 59
sz(10) = 12
sz(11) = 35
sz(12) = 57
sz(13) = 29
sz(14) = 28
sz(15) = 27
sz(16) = 75
For i = 1 To 16
For j = 1 To 16
For k = 1 To 16
For l = 1 To 16
For m = 1 To 16
For n = 1 To 16
Do
DoEvents
If Not ctEsc Then Exit Do
Loop
If i = j Or i = k Or i = l Or i = m Or i = n Or j = k Or j = l Or j = m Or j = n _
Or k = l Or k = m Or k = n Or l = m Or l = n Or m = n Then
Else
Text1.Text = Text1.Text & sz(i) & "+" & sz(j) & "+" & sz(k) & "+" & sz(l) & "+" & sz(m) & "+" & sz(n) & " &quo
Dim ctEsc As Boolean
Private Sub Command1_Click()
Dim sz(16) As Integer
Dim i, j, k, l, m, n As Integer
ctEsc = False
sz(1) = 15
sz(2) = 58
sz(3) = 74
sz(4) = 59
sz(5) = 68
sz(6) = 62
sz(7) = 63
sz(8) = 64
sz(9) = 59
sz(10) = 12
sz(11) = 35
sz(12) = 57
sz(13) = 29
sz(14) = 28
sz(15) = 27
sz(16) = 75
For i = 1 To 16
For j = 1 To 16
For k = 1 To 16
For l = 1 To 16
For m = 1 To 16
For n = 1 To 16
Do
DoEvents
If Not ctEsc Then Exit Do
Loop
If i = j Or i = k Or i = l Or i = m Or i = n Or j = k Or j = l Or j = m Or j = n _
Or k = l Or k = m Or k = n Or l = m Or l = n Or m = n Then
Else
Text1.Text = Text1.Text & sz(i) & "+" & sz(j) & "+" & sz(k) & "+" & sz(l) & "+" & sz(m) & "+" & sz(n) & " &quo
现在电脑执行速度这么快，你按下“开始”几乎就执行完了，你设计一个“暂停”几乎暂停不了任何东西。
但是如果你非要这么做，建议在
For i = 1 To 16
For j = 1 To 16
For k = 1 To 16
For l = 1 To 16
For m = 1 To 16
For n = 1 To 16
语句后面加上一个判断语句
if Command2.Caption = "开始" then
goto xDoNothing
end if
然后在End sub前面定义一个什么也不执行的名称：
xDoNothing:
我想这样应该可以模拟你希望的"暂停"效果。
你那个选择结构里缺少一个执行代码
在if....then与else之间你没有写任何代码,这是不对的.