小李編寫了“數(shù)字游戲”的VB程序，功能是查找符合下列條件的3個三位數(shù)：
①3個數(shù)中包含1-9的全部數(shù)字，且不重復；
②3個數(shù)的大小之比為1：2：3。
如“192、384、576”是符合規(guī)則的一種組合。
現(xiàn)編寫程序功能如下：單擊“計算”按鈕Command1，在列表框List1中輸出符合條件的數(shù)字組合，在標簽Label1中輸出組合數(shù)量。程序運行界面如圖所示。
（1）上圖程序運行界面中，有Caption屬性的對象共

3

3

（填數(shù)字）類。
（2）實現(xiàn)程序功能的VB代碼如下，請在橫線處填入合適的代碼。
PrivateSubCommand1_Click （　?。?br />Dimf（0To9）AsInteger
DimiAsLong,jAsInteger,sAsInteger
DimtmpAsLong,tAsInteger,countAsInteger
count=0
Fori=123To333
Forj=①

1To9或0To9或9To1Step-1或9To0Step-1

1To9或0To9或9To1Step-1或9To0Step-1

f（j）=0
Nextj
tmp=i+2*i*1000+3*i*1000000
DoWhiletmp＞0
t=②

tmpMod10或tmp-（tmp\10）*10或其他取當前tmp值的個位數(shù)字的等價寫法，如通過Mid函數(shù)，Mid（Str（tmp），Len（Str（tmp）），1）

tmpMod10或tmp-（tmp\10）*10或其他取當前tmp值的個位數(shù)字的等價寫法，如通過Mid函數(shù)，Mid（Str（tmp），Len（Str（tmp）），1）

tmp=tmp\10
f（t）=1
Loop
s=1
Forj=1To9
s=s*f（j）
Nextj
If③

s=1或s＞0或s＞=1或s＜＞0或其他判斷s=1的等價寫法

s=1或s＞0或s＞=1或s＜＞0或其他判斷s=1的等價寫法

Then
List1.AddItemStr（i）+Str（2*i）+Str（3*i）
count=count+1
EndIf
Label1.Caption=″共有″+Str（count）+″種組合″
Nexti
EndSub