现有如下Visual Basic程序段：

s = 0 ：x = 2：y = 49

Do While x <= Sqr(y)

s = s + x
x = x + 2

Loop

该程序段运行后，x的值是（  ）

A．2

B．6

C．8

D．12

小明的支付宝帐号密码忘记了，但他还零星记得有关于密码的一些信息：
①密码是八位数字，前两位为19
②最后两位数字是91
③能被77和133整除
程序界面如图所示，单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

解决此问题的相应的程序如下：
Private Sub Command1_Click()
Dim i As Long, s As Long
For i = 0 To 9999
s = _____①______ 's表示该八位数密码
If  ② Then   '符合密码的条件，s能被77和133整除
List1.AddItem Str(s)
End If
Next i
End Sub
（1）在应用程序界面设计时，添加“List1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的【小题1】（填写相应的编号）。
（2）将窗体Form1上显示的文本“Form1”改为“寻找密码”，可在其属性窗口中将属性【小题2】的属性值修改为“寻找密码”。
（3）解决此问题的算法是【小题3】。（填：枚举算法/解析算法/查找算法）
（4）在程序①和②下划线处，填入适当的语句或表达式，把程序补充完整：
程序中①下划线处应填入【小题4】
程序中②下划线处应填入【小题5】

用Visual Basic随机函数产生10~99的幸运号码，下列符合要求的表达式是（  ）

A．Int(Rnd() * 9) + 90	B．Int(Rnd() * 90) + 10
C．Int(Rnd() * 89) + 10	D．Int(Rnd() * 99) + 1

下列可以作为Visual Basic变量名的是（  ）

A．2016-dim

B．2016dim

C．dim

D．dim_2016

现有如下Visual Basic程序段：

Dim a(1 To 10) As Integer

a(10) = 1

a(9) = 2

For x = 8 To 1 Step -1

  a(x) = a(x + 1) + a(x + 2)

Next x

该程序段运行后，a(6)的值是（  ）

A．5

B．8

C．11

D．13

现有如下Visual Basic程序段：

S = 0

For I = _____ to 3 step -1

S = S + i

Next I

该程序段运行后，语句S = S + i共执行了4次，则下划线处应是（  ）

A．0

B．1

C．5

D．6

有算法部分流程图如图所示，当输入的数为0时程序退出，要想实现这个功能，则图中虚线部分的内容是（  ）

A．	B．
C．	D．

求[1,100]之间所有奇数之和s的部分算法流程图如图所示。为了实现此算法，图中判断框①和处理框②处可填入的是（  ）

A．① s = s + i   ② i = i + 1	B．① s = s + i  ② i = i + 2
C．① i = i + 1 ② s = s + i	D．① i = i + 2  ② s = s + i

以下程序段中循环体执行的次数是（）

s = 0

i = 0

Do While s < 10

  i = i + 1

  s = s + i * i

Loop

A．3

B．2

C．1

D．4

阅读程序，写出运行结果

Dim i As Integer

Dim x As Integer

Dim y As Integer

y=30

For i=1  To  3

x=Val(InputBox(“x=”))

If  y< x   Then

y=x

End If

Next  i

Print  y

程序运行后，依次输入：36  87  51

运行后输出结果是_________________。