小施想编写一个VB程序帮助弟弟练习最大公约数的计算，程序运行界面如下图所示。单击“生成题目”按钮Command1生成两个两位随机正整数，分别显示在左边的文本框Text1和中间的文本框Text2中。在右边的文本框Text3中输入结果并按回车键后，如果结果正确，将在该文本框右边的标签Label3中显示“√”，否则显示“×”。请在画线处填入合适的代码。
Dim  r As  Integer‘用于存放最大公约数
Private Sub Command1_Click （　　）
Dim   i    As  Integer
Dim   m   As  Integer
Dim   n   As  Integer
Randomize
     （1）

m=Int（Rnd*90）+10

m=Int（Rnd*90）+10

n=Int （ Rnd*90）+10
Text1．Text=Str （ m ）：Text2．Text=Str （ n ）
Text3．Text=““：Label3．Caption=““
If  m＞n  Then  r=n    Else    r=m
For  i=r  To  1  Step-1
If  m  Mod  i=0   （2）

And

And

 n  Mod i=0   Then
r=i
Exit   For
End If
Next i
End Sub
Private Sub Text3_KeyPress （ KeyAscii  As  Integer）
If  KeyAscii=13  Then
If  r=（3）

Then

Then

 Then  Label3．Caption=“√“Else  Label3．Caption=“ד
End If
End Sub