一个关于循环的问题,算几个数!
假定有6个数字,每个数字从1——33,现在想在TEXT1中给出任意一个数字,算这6个数字相加后值为指定数字的组合情况!写代码如下,但一运行就未响应!请给予指点!
Private Sub Command1_Click()
a = 1
Do Until a = 34
b = 1
Do Until b = 34
If b = a Then
b = b + 1
End If
c = 1
Do Until c = 34
If c = b Then
c = c + 1
End If
If c - 1 = b And b - 1 = a Then
c = c + 1
End If
d = 1
Do Until d = 34
If d = c Then
d = d + 1
End If
e = 1
Do Until e = 34
If e = d Then
e = e + 1
End If
f = 1
Do Until f = 34
If f = e Then
f = f + 1
End If
zhi = a + b + c + d + e + f
If zhi = Int(Text1.Text) Then
List1.AddItem a & " " & b & " " & c & " " & d & " " & e & " " & f
End If
f = f + 1
Loop
e = e + 1
Loop
d = d + 1
Loop
c = c + 1
Loop
b = b + 1
Loop
a = a + 1
Loop
End Sub