某电信部门规定:拨打市内电话时,如果通话时间不超过3分钟(含3分钟),则收取通话费0.2元,如果通话时间超过3分钟,则超过部分以每分钟0.1元收取通话费(通话时间为整数)。下面是计算通话费用的流程图和程序,请认真分析并回答问题。根据题意,完善流程图,填写空白处。

①  
下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。
请填写程序空白处。
Private Sub Command1_Click()
Dim    as
  ‘定义 x 为整型
x = Val(Text1.Text)
    Then
‘条件语句 

显出通话时间不超过3分钟时的电话费
Else
Text2.Text =" Str(0.2" + 0.1 * (x - 3)) ‘显出通话时间超过3分钟时的电话费
End If
End Sub
这段程序属于    ⑥ 结构程序设计。
当前题号:1 | 题型:填空题 | 难度:0.99
将1、1、2、3、5、8、13、21、……数列的前20项存入a数组的正确程序段是_______。
A.B.
C.D.
当前题号:2 | 题型:选择题 | 难度:0.99
以下流程图的运行结果是_______。
A.4 9B.5 9
C.4 5D.9 5
当前题号:3 | 题型:选择题 | 难度:0.99
写出下面流程图所表述的算法的功能▁▁▁▁
A.降序排序
B.求最大值
C.交换输出
D.判断是否是偶数
当前题号:4 | 题型:选择题 | 难度:0.99
若输入两数1,-4,输出结果_______
A.-5B.-3
C.5D.3
当前题号:5 | 题型:选择题 | 难度:0.99
若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
当前题号:6 | 题型:选择题 | 难度:0.99
已知出租车计费方法如下:路程在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,则应付金额为________元
实现该程序所用的算法结构属于______________(选择结构/循环结构)
当前题号:7 | 题型:填空题 | 难度:0.99
在Visual Basic中,若a=4,b=3,c=10,则执行完下列语句后,变量c的值为(    )
If a+b>c Then
c=a+1
Else
c=b-1
End If
A.2B.10C.5D.4
当前题号:8 | 题型:选择题 | 难度:0.99
下列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
当前题号:9 | 题型:填空题 | 难度:0.99
有如下Visual Basic程序段:
s=1
for i=" 1" to 11 step 3
s=s*i
next i
语句s=s*i共执行的次数为(   )
A.11B.10C.5D.4
当前题号:10 | 题型:选择题 | 难度:0.99