小李編寫VB程序模擬“中國(guó)福利彩票雙色球”抽獎(jiǎng)，實(shí)現(xiàn)如下功能：雙色球投注區(qū)分為紅色球號(hào)碼區(qū)和藍(lán)色球號(hào)碼區(qū)，紅色球號(hào)碼區(qū)由1-33共33個(gè)號(hào)碼組成，藍(lán)色球號(hào)碼區(qū)由1-16共16個(gè)號(hào)碼組成。每次隨機(jī)選擇6個(gè)紅色球號(hào)碼（紅球號(hào)碼不能重復(fù)出現(xiàn)）和1個(gè)藍(lán)色球號(hào)碼（可以和紅色號(hào)碼相同），界面如圖所示。單擊“產(chǎn)生號(hào)碼”按鈕（Command1）在Text1中產(chǎn)生紅球號(hào)碼，在Text2中產(chǎn)生藍(lán)球號(hào)碼。單擊“退出”按鈕（Command2）結(jié)束程序。

實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)誤，請(qǐng)改正。
Dim a（1To 6）As Integer
Private Sub Command1_Click （　?。?br />Dim y As Integer,i As Integer
Text1．Text=““
Randomize
For i=1To 6
a（i）=Int（Rnd*33）+1
Do While And i＞1
a（i）=Int（Rnd*33）+1
Loop
Next i
For i=1To 6
Text1．Text=Text1．Text+Str（a（i））
Next i
y=
Text2．Text=Str（y）
End Sub
Function check（m As Integer,n As Integer） As Boolean
Dim j As Integer
check=False
For j=1To n-1
If m=a（j） Then
check=True
Exit For
End If
Next j
End Function
Private Sub Command2_Click （　?。?br />End
End Sub