若输入两数1，-4，输出结果_______

A．-5	B．-3
C．5	D．3

若X=78，则下列程序运行后的运行结果为▁▁。
INPUT  X
IF  X<60  THEN
PRINT  “BuJeGe”
ELSE
IF  X<70  THEN
PRINT  “JeGe”
ELSE
IF  X<85  THEN
PRINT  “ZhengDeng”
ELSE
PRINT  “YouXiu”
END IF
END IF
END IF

A．YouXiu

B．ZhengDeng

C．JeGe

D．BuJeGe

在某银行取款机上，用户银行卡密码验证的过程如下图所示：当用户输入密码时，若第1次输入错误，第2次输入才正确，则整个操作过程的执行流程是（    ）

A．①→②→③→④→⑤

B．①→②→③→④→⑥→⑦

C．①→②→③→④→⑥→②→③→④→⑤

D．①→②→③→④→⑥→⑦→②→③→④→⑤

下列程序运行后的运行结果为▁▁▁。
X=8：Y=X：Z=10
IF  X<=Y  THEN
PRINT X；Y；
ELSE
IF  Z>=X  THEN
PRINT  Z
END IF
END IF

A．108

B．8 8

C．10 10

D．810

已知出租车计费方法如下：路程在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，则应付金额为________元
实现该程序所用的算法结构属于______________（选择结构/循环结构）

每次将一张白纸沿垂直和水平中线对半撕成四张纸片，然后取其中一张纸片照这样再撕成四张纸片，一直这样下去，计算撕了n次后纸片的总张数，现在要用VB来实现该程序。程序界面及功能如下图所示，在文本框中输入撕的次数，单击计算按钮，显示纸片数。

请完善并改正下面的程序代码：
Private Sub Command1_Click()
Dim i, n, s As Integer
n =" Val(Text1." Caption)   ‘① 获得撕纸片的次数
s=1 ‘s为纸片数，初始时为1
For i =" 1" To n
  ② ‘计算撕了n次后的纸片数量
Next i
Label2.Caption = Str(s) 显示最终的纸片数
End Sub
注释①所在行语句中有错误,应改为_____________
在横线②中填入正确的语句_______________
在用VB设计应用程序时，一般经历的阶段的正确顺序是__________（填字母顺序）
a 运行调试程序   b 问题和算法分析
c 应用程序界面设计 d 事件处理过程代码编写

下列为部分VB程序语句代码：(    )
s=32
For i="1" To 10 Step
s=s/2
Next i
上述程序语句执行结束后，s的值为2，则循环语句的步长（划横线处）应填(    )

A．1

B．2

C．3

D．4

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 10
a(i) =" a(i-1)" + i
Next i
Text1.Text = Str(a(5))
End Sub
运行程序，单击命令按钮Command1后，在文本框Text1中显示的内容为（   ）

A．5

B．10

C．15

D．21

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是 ，文本框Text2中显示的内容是 。
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0"
n=10
for i =" 2" to 10 step 3[:Zxxk.Com]
If  n  Mod  i =" 0"  Then 
c = c+i
else
c=" c" * i
end if
next i
Text1.Text = Str(i)
Text2.Text = Str(c)
End Sub

有如下Visual Basic程序段：
s=1
for i=" 1" to 11 step 3
s=s*i
next i
语句s=s*i共执行的次数为（   ）

A．11

B．10

C．5

D．4