在ＶＢ中，有如下程序段，该程序段执行后，变量x的值是
x=0
for  i=1  to  5
x=x+i-1
next i

A．0

B．5

C．15

D．10

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim n As Integer
Dim m As Integer
m = 0
For n =" 1" To 20
If n Mod 3 <> 0 Then m =" m" + n \ 3
Next n 
Text1.text = Str(m)
End Sub
程序运行后，如果单击命令按钮，则文本框Text1中显示的内容是    (    )

A．15

B．18

C．42

D．24

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如1图所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。
(1)在应用程序界面设计时，为添加“计费”按钮，应使用2图所示的“控件工具箱”中的____（请填写相应编号），并在3图所示的“属性窗口”中，将______属性值设置为“计费”。

(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <=" 60" Then
zyfy = 0
ElseIf zysj <=" 120" Then
zyfy = 1
ElseIf zysj <=" 180" Then
_______
ElseIf zysj Mod 60 =" 0" Then
zyfy =" (zysj" - 180) / 60 * 3 + 3
Else
zyfy =" (Int((zysj" - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub

一个六位数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 指的是循环到若条件成立则退出循环

输入19，输出的结果为 。
Dim s As String '定义变量s为字符串类型
Dim n As Long
n = InputBox("n")
s = ""
Do While n > 0
a =" n" Mod 2
s =" Str(a)" + s  '将数字a转换成字符，连接在字符串s的左边
n =" n" \ 2
Loop
Print s