请VB编程求解:用1-8八个数字不重复使用,组成两个四位数,其中一个是另一个的四倍计算结果在文本框中显示出来.请问怎么用VB编程写算法?最好提供用for循环和不用for循环两种算法.

问题描述:

请VB编程求解:用1-8八个数字不重复使用,组成两个四位数,其中一个是另一个的四倍
计算结果在文本框中显示出来.请问怎么用VB编程写算法?最好提供用for循环和不用for循环两种算法.

已通过测试,结果有两组满意请及时采纳,谢谢 Private Sub Command1_Click()Text1 = ""Dim num(8) As IntegerFor 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 ...