猜数字是一种古老的密码破译类益智小游戏．通常由两个人玩，也可以由一个人和电脑玩，其标准规则为：
1）一方出数字，出数字的人要想好一个无重复数字的4位数（如0165，5234等），不能让猜的人知道；
2）另一方猜数字，每猜一个数字，出数者根据结果给出“几A几B的提示”，其中A前面的数字表示位置正确的数字个数，而B前面的数字表示数字正确但位置不对的数字个数．（如要猜5234，猜的人给出5346，则提示1A2B）；
3）重复第二步的猜测过程，直到猜中（即提示4A0B）为止．
小林编写了一个和电脑猜数字的VB程序，其功能如下：窗体加载时，调用自定义函数产生待猜的4位数字，并初始化猜测次数．用户在文本框Text1中输入猜的数字，单击“我猜”按钮Command1，程序进行判断，并将结果显示在列表框List1中．猜中后，在标签框Label2中根据猜测次数给出评语．程序运行效果如图1所示．
（1）实现上述功能的VB程序如下，请在横线处填入合适代码．
Dim result As String,total As Integer
Dim flag（0 to 9）As Boolean'标记下标对应的数字是否存在，初值默认为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存储数字正确（含位置正确）的数字个数
     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=“继续锻炼！您共花了“& total &“次．“
           End If
     End If
End Sub
'RndCode 函数用于随机产生待猜测的n位不重复数字字符
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）'随机产生一个[0，9]的数字
          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．