已知出租车计费方法如下：路程在3公里以内（包含3公里）收起步价10元，路程超过3公里不超过10公里（包含10公里）部分按每公里2元计费，超出10公里部分按每公里3元计费。现要设计一个VB出租车计费系统程序，在路程文本框中中输入路程数，单击计算按钮可以计算出应付金额并显示到金额文本框中，请回答以下问题：

图一

在设计该程序界面时，要从图二界面到图一界面，需要进行哪些设置？
________________________________________________________________
________________________________________________________________
为计算按钮添加单击事件后，并在其中添加程序代码，代码如下：
Dim d As Single
Dim f As Single
d = Val(Text1.Text)
If d <=" 3" Then  ‘3公里以下计费
f =" 10"
end if
If d > 3 And d <=" 10" Then    ‘3公里至10公里计费
‘①
End If
If d > 10 Then ‘10公里以上计费
'②
End If
Text2.Text = Str(f)
请完善以上程序代码，在①，②处填入正确的语句
①________________________________
②________________________________
完善程序代码后，若输入路程数为10，则应付金额为________元
实现该程序所用的算法结构属于______________（选择结构/循环结构）

某算法流程图如图所示, 执行该算法，当i的值为3时，下列说法正确的是（ ）

A．输出s的值

B．程序出错

C．执行语句s=s+s*i和i=i+1

D．语句s=s+s*i已经执行了1次

下列是用来检测某地区酸雨程度的程序，程序调试过程中提示①处出现语法错误，则这一行正确的语句应该为 。
Dim ph As Single, s As String
ph = Val(Text1.Caption) '①
If ph <=" 4.7" Then
s = "重度酸雨区"
Else
If ph <=" 5.6" Then
s = "轻中度酸雨区"
Else
s = "非酸雨区"
End If
End If
Label2.Caption = s

“如果 a，b，c 中任意一个为 0，那么 y＝y2＋1”。能实现该功能的 VB 语句是(    )

A．If a ＝ 0 And b ＝ 0 And c = 0 Then y ＝ y*y ＋ 1

B．If a * b * c＝ 0 Then y ＝ y^2 ＋ 1

C．If a ＝ 0, b ＝ 0, c = 0 Then y ＝ y^2 ＋ 1

D．If a ＝ b ＝ c = 0 Then y ＝ y*y ＋ 1

以下两个VB程序段，其中变量m和n为正整数，下列说法不正确的是（   ）

程序1： If m<n Then t=m：m=n：n=t End If Do While m Mod n＜＞0 r=m Mod n m=n n=r Loop Text1.Text=Str（n）

程序： 2n2 Do Whife m 程序2 Do While m＜＞n Do While m＞n m=m-n Loop Do While n>m n=n-m Loop Loop Textl.Text=Str（n）

 

A．“程序1”和“程序2”中的代码实现相同的功能

B．若变量m和n的值为25，35，则“程序1”代码运行后文本框Text1显示“5”

C．“程序2”中的输出语句改为Textl.Text=Str(m)，会影响文本框Textl显示的内容

D．若变量m和n的值为11，7，则“程序2”代码运行后文本框Text1显示“1”