①3个数中包含1-9的全部数字,且不重复;
②3个数的大小之比为1:2:3。
如“192、384、576”是符合规则的一种组合。
现编写程序功能如下:单击“计算”按钮Command1,在列表框List1中输出符合条件的数字组合,在标签Label1中输出组合数量。程序运行界面如图所示。
Private Sub Command1_Click()
Dim f(0 To 9) As Integer
Dim i As Long, j As Integer, s As Integer
Dim tmp As Long, t As Integer, count As Integer
count = 0
For i = 123 To 333
For j =
f(j) = 0
Next j
tmp = i + 2 * i * 1000 + 3 * i * 1000000
Do While tmp > 0
t =
tmp = tmp \ 10
f(t) = 1
Loop
s = 1
For j = 1 To 9
s = s * f(j)
Next j
IfThen
List1.AddItem Str(i) + Str(2 * i) + Str(3 * i)
count = count + 1
End If
Label1.Caption = "共有" + Str(count) + "种组合"
Next i
End Sub