以下流程图描述的算法执行结果是

A．3

B．6

C．9

D．2

阅读下面两段Visual  Basic程序：

为使两段程序运行后有相同的结果，左框内划线处的内容为

A．t=20

B．t=21

C．t=1

D．t=22

Visual Basic是一种面向对象的程序设计语言，对象的三要素是(   )

A．属性、事件、方法

B．控件、属性、事件

C．窗体、控件、过程

D．窗体、控件、模块

为使下面左右框内的VB程序段实现相同的功能，则左框内划线处填写的代码应该是（   ）
 

A．t=2

B．t=6

C．t=t+1

D．t=t+2

Visual Basic规定窗体文件的扩展名是 (    )

A．fer

B．frm

C．vbp

D．bas

以下程序段是一个完整的Visual Basic的Do语句，则划线处的语句应该是（   ）。
Do While a<=5
s=s+a : a=a+1
________________

A．End If

B．End Sub

C．Next a

D．Loop

某超市在晚上7：30－8：30期间，对于在货架上已超过2天的带叶蔬菜，收银机自动将价格下降50%。用来描述某种蔬菜是否降价的处理过程，合适的算法流程是（    ）。

A．循环模式

B．重复模式

C．选择模式

D．顺序模式

下面的程序是求100以内奇数和S的值（S=1+3+5+7...+99），请把空缺的地方填写完整（填数字、变量名称、或者属性名称等）。
Private Sub Command1_Click()
Dim s  As Integer
Dim i  As Integer
s=（1）
For i  = 1  to  100  Step （2）
s=s+i
Next （3）
Label1.（4）=Str(s)
End Sub
填空结果：
（1）________  （2）________  （3）________  （4）__________  

在Visual Basic中，若a=4，b=3，语句If a>b Then c=a+1  Else c=b-1执行后，下列说法正确的是（  ）。

A．执行了语句c=a+1

B．先执行c=a+1，再执行c=b-1

C．执行了语句c=b-1

D．先执行c=b-1，再执行c=a+1

编写VB程序，实现如下功能：单击“启动”按钮Command1，在列表框List1内每隔2秒输出一个由30个大、小写字母组合成的字符串，运行界面如图所示，程序代码如下。
(字母A和字母a的ASCII码值分别为65、97)

(1)该程序除窗体外使用了________（填数字）个对象。
(2)为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Timer1.Enabled = _________________________'①
End Sub
Private Sub Timer1_Timer()
Dim s As String, c As String
Dim a As Integer, e As Integer, h As Integer
Randomize
s = ""
For a = 1 To 30
e = Int(Rnd() * 52 + 1)
If e <= 26 Then
h = e + 64
Else
h = _________________________'②
End If
c = _________________________'③
s = s + c
Next a
List1.AddItem s
End Sub
(3)为了减缓字符串的出现速度，可将Timer1的Interval属性值________（选填，填字母：

A．调大、

B．调小）。