中國(guó)福利彩票雙色球中獎(jiǎng)號(hào)碼由（1～33）紅球中的6個(gè)號(hào)碼和1個(gè)藍(lán)球號(hào)碼組成，如果使用程序來(lái)產(chǎn)生6個(gè)紅球號(hào)碼，小張用VB設(shè)計(jì)了該程序，界面如圖所示，請(qǐng)?jiān)诔绦虻臋M線處將代碼補(bǔ)充完整．
Dim d（1 to 6）As Integer,i As Integer′在通用里定義全局變量，
Private Sub Commandl_- Click（　　）
′產(chǎn)生6個(gè)[1，33]之間的不同整數(shù)存放于d數(shù)組中，在listl中輸出
Dim k As Integer
Randomize
Listl.Clear
d（1）=Int（Rnd（　　）*33+1）
Listl.Addltem d（1）
For i=2 to 6′產(chǎn)生不重復(fù)的紅球號(hào)碼
k=1
Do While k=1
d（i）=Int（Rnd（　　）*33+1）
    For j=I to i-1
      Uf d（i）=d（j） Then
      Exit For
      End If
    Next j
  If j=i Then k=0
Loop

list1．a(chǎn)dditem str（d（i））

list1．a(chǎn)dditem str（d（i））

'將產(chǎn)生的紅球號(hào)碼添加到Listl中
Next i
End Sub
Private Sub Command2_-Click（　　）'“初始化”清空兩列表框
Listl.Clear
List2．Clear
End Sub
Provate Sub Command3_-Click（　　）'“排序號(hào)碼”實(shí)現(xiàn)將Listl中的內(nèi)容進(jìn)行排序輸出
Dim j As Integer,t As Integer,k As Integer
List2．Clear
For i=1 to 5
 For j=i+1 to 6
   If

d（i）＞d（j）

d（i）＞d（j）

Then'判斷是否需要進(jìn)行交換數(shù)據(jù)
     t=d（j）：d（j）=d（i）：d（i）=t
   End If
  Next j
Next i
'以下是將排序后的數(shù)依次在List2中輸出
For k=1 to 6
List2．Addltem Str（d（k））
Next k
End Sub.