一个六位数n，它的高二位与低二位恰好相同，同时又能被97整除，如109610、196619等。编写VB程序，统计所有符合条件的六位数的个数。
Dim n As Long    '六位数
Dim g2 As Integer '高二位
Dim d2 As Integer '低二位
Dim t As Integer '计数
t = 0
n = 100000
Do
g2= ______①______
d2= ______②______

Loop Until n>=1000000
Print t
‘备注：loop until 指的是循环到若条件成立则退出循环

在Visual Basic中，执行语句x=Asc(Chr(Abs(-70)))，则变量x的数据类型是 （  ）

A．实数型

B．字符型

C．整数型

D．逻辑型

要求编写一个“二进制加法”的VB程序，功能如下：在文本框Textl中输入一个二进制数，文本框Text2中输入另一个二进制数，单击“加法”按钮Command1后，在文本框Text3中显示二进制表示的和，程序运行界面如图a所示。

(1)在设计程序界面时，应使用图b所示“控件工具箱”中的____________(填写相应编号)添加按钮Commandl。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Commandl_Click()

Dim s1 AsString，s2 As String，s3 As String，tmp As String

Dim i As Integer，t As Integer，k As Integer

s1=Text1.Text：s2=Text2.Text

If Len(s1)<Len(s2) Then tmp=sl：sl=s2：s2=tmp

For i=1 To Len(s1)-Len(s2)

s2="0"+s2

Next i

i=Len(s1)：k=0

Do While i>=1

t=Val(Mid(sl，i，1))+Val(Mid(s2，i，1))+k
If t>=2 Then
s3=___________：k=1
Else
s3=t&s3：k=0
End If
i=___________
Loop
If k=1 Then s3="1"+s3
Text3.Text=s3
End Sub
(3)运行该程序，输入数据如图a所示，程序执行完毕时，变量k的值为_________。

下列赋值语句错误的是（    ）。

A．a="b+c"

B．m=m*i

C．x=y-1

D．5y=abs(x)

如果一个整数是另一个整数的平方，则称该数是“完全平方数”。例：4=2*2，9=3*3，所以4，9是完全平方数。下列表达式能判断整数m为完全平方数的是（   ）
①(Sqr(m))^2=m
②Int(Sqr(m))=Sqr(m)
③m/Int(Sqr(m))=m\Int(Sqr(m))
④Int(Sqr(m))^2=m

A．①②

B．②③

C．②④

D．③④