猜數(shù)字是一種古老的密碼破譯類益智小游戲．通常由兩個人玩，也可以由一個人和電腦玩，其標準規(guī)則為：
1）一方出數(shù)字，出數(shù)字的人要想好一個無重復數(shù)字的4位數(shù)（如0165，5234等），不能讓猜的人知道；
2）另一方猜數(shù)字，每猜一個數(shù)字，出數(shù)者根據(jù)結果給出“幾A幾B的提示”，其中A前面的數(shù)字表示位置正確的數(shù)字個數(shù)，而B前面的數(shù)字表示數(shù)字正確但位置不對的數(shù)字個數(shù)．（如要猜5234，猜的人給出5346，則提示1A2B）；
3）重復第二步的猜測過程，直到猜中（即提示4A0B）為止．
小林編寫了一個和電腦猜數(shù)字的VB程序，其功能如下：窗體加載時，調用自定義函數(shù)產(chǎn)生待猜的4位數(shù)字，并初始化猜測次數(shù)．用戶在文本框Text1中輸入猜的數(shù)字，單擊“我猜”按鈕Command1，程序進行判斷，并將結果顯示在列表框List1中．猜中后，在標簽框Label2中根據(jù)猜測次數(shù)給出評語．程序運行效果如圖1所示．
（1）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適代碼．
Dim result As String,total As Integer
Dim flag（0 to 9）As Boolean'標記下標對應的數(shù)字是否存在，初值默認為False
Private Sub Form_Load（　　）
     result=

①RndCode（4）

①RndCode（4）

     total=0
End Sub
Private Sub Command1_Click（　　）
     Dim A As Integer,B As Integer
     Dim C As Integer'變量C存儲數(shù)字正確（含位置正確）的數(shù)字個數(shù)
     Dim guess As String,i As Integer,t1 As String,t2 As String
     guess=Text1．Text
     A=0：C=0
     For i=1 To 4
           t1=Mid（result,i,1）
           t2=Mid（guess,i,1）
           If t1=t2 Then A=A+1
           If

②InStr（result,t2）＞0

②InStr（result,t2）＞0

 Then C=C+1
     Next i
     total=total+1
     B=

③C-A

③C-A

     List1．AddItem Str（total） &““& guess &““& Str（A） &“A“& Str（B） &“B“
     If A=4 Then
           If total＜=8 Then
               Label2．Caption=“太厲害了！您只用了“& total &“次．“
           Else
               Label2．Caption=“繼續(xù)鍛煉！您共花了“& total &“次．“
           End If
     End If
End Sub
'RndCode 函數(shù)用于隨機產(chǎn)生待猜測的n位不重復數(shù)字字符
Function RndCode（n As Integer） As String
     Dim x As Integer,i As Integer
     Randomize
     num=0：RndCode=““
     Do While num＜n
          x=Int（Rnd*10）'隨機產(chǎn)生一個[0，9]的數(shù)字
          If flag（x）=False Then
                flag（x）=True
                num=num+1
                RndCode=RndCode & x
           End If
     Loop
End Function
（2）如果某次游戲過程如圖2所示，則第7次要猜測成功，應輸入

2513

2513

．
A.6321          B.6312          C.2531         D.2513．