找出满足各位数字之和等于5的所有三位数可采用的算法是（    ）。

A．解析算法

B．冒泡排序

C．枚举算法

D．选择排序

某超市在晚上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）__________  

用VB编程解决一个问题：求所有五位数中满足能被17整除且十位数字为5的数之和。
（1）本题的所有五位数所指的范围是1~10000，10000~99999，10000~90000，还是11111~99999？写出本题的所有五位数所指的范围。
（2）算术运算符：除/、整除\、求余Mod。例子，设五位数为参数i，则i\10000为万位，（i\1000）Mod 10 为千位，类推，则五位数中十位数字为（ ），i  Mod 10为个位。写出五位数中十位数字为5的表示式。
（3）将本题程序填写完整。
Private Sub Command1_Click()
s = 0
For i =   To  
If   i Mod 17 = 0    And    =5   Then
s = s + i
End If
Next i
Print  s
End Sub
（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．调小）。

小强在双十一购物期间忘记了支付宝账户密码，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：
①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。
程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

图1   图2
（1）应用程序界面设计时，为添加“ List1”对象，应使用图2所示的“控件工具箱”中的________（填写相应编号）。
（2）请根据题意将解决此问题的相应程序补充完整。
Private Sub  Command1_click ()   
Dim x As Integer, s As Long,
Dim y As Integer, i As Integer
For i = 0 To 9999
S = 590000 + i
If ①________  Then
x= s mod 10
y = ②________
If x = y Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
（3）该模块采用的算法是（_____）

A．枚举

B．查找

C．排序

D．解析

小骆设计了一个程序，用来统计一段文字中句子的数量。规定以“。”或者“？”或者“！”结束的为句子。窗体界面和程序如下所示，请回答问题。

图1 图2
(1)应用程序界面设计时，用来输入文字的对象，使用了图2所示的“控件工具箱”中的 ________________(填写相应数字)，
(2)Private Sub Command1_Click()
Dim s As String, r As String, k As Integer
k ＝ 0
s＝Text1.Text
For i ＝ 1 To Len(s)
①
If r ＝"。" Or r ＝"！"  Or r ＝"？"  Then ②
Next i
Label1.Caption ＝"本段文字中含" + Str(k) + "句语句。"
End Sub
在程序划线处填写适当的表达式或语句，以实现程序功能。
程序中①划线处应填入____________________________。
程序中②划线处应填入____________________________。

有如下程序，要使Label1中显示的值是30，划线处应该填(　　)
Dim i As Integer，s As Integer
s＝0
For i＝2 To ________ Step 2
　s＝s＋i
Next i
Label1.Caption＝Str(s)

A．8

B．9

C．10

D．12

某算法的部分流程图如下图所示，图中使用的程序结构有 (　　)

A．顺序结构和选择结构

B．选择结构和循环结构

C．顺序结构和循环结构

D．顺序、选择和循环结构