请VB编程求解：用1-8八个数字不重复使用,组成两个四位数,其中一个是另一个的四倍计算结果在文本框中显示出来.请问怎么用VB编程写算法?最好提供用for循环和不用for循环两种算法.
来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/23 15:50:25
请VB编程求解：用1-8八个数字不重复使用,组成两个四位数,其中一个是另一个的四倍计算结果在文本框中显示出来.请问怎么用VB编程写算法?最好提供用for循环和不用for循环两种算法.
请VB编程求解：用1-8八个数字不重复使用,组成两个四位数,其中一个是另一个的四倍
计算结果在文本框中显示出来.请问怎么用VB编程写算法?最好提供用for循环和不用for循环两种算法.
请VB编程求解：用1-8八个数字不重复使用,组成两个四位数,其中一个是另一个的四倍计算结果在文本框中显示出来.请问怎么用VB编程写算法?最好提供用for循环和不用for循环两种算法.
已通过测试,结果有两组
满意请及时采纳,谢谢
Private Sub Command1_Click()
Text1 = ""
Dim num(8) As Integer
For i = 1 To 8
For j = 1 To 8
If i j Then
For k = 1 To 8
If k i And k j Then
For l = 1 To 8
If l i And l j And l k Then
For m = 1 To 8
If m i And m j And m k And m l Then
For n = 1 To 8
If n i And n j And n k And n l And n m Then
For o = 1 To 8
If o i And o j And o k And o l And o m And o n Then
For p = 1 To 8
If p i And p j And p k And p l And p m And p n And p o Then
a = Val(i & j & k & l)
b = Val(m & n & o & p)
If b = 4 * a Then Text1 = Text1 & a & " " & b & Chr(13) & Chr(10)
End If
Next p
End If
Next o
End If
Next n
End If
Next m
End If
Next l
End If
Next k
End If
Next j
Next i
Text1 = Text1 & "OK" & Chr(13) & Chr(10)
End Sub