关于上题的程序的控制结构的说法不正确的是（   ）

A．顺序结构包含了选择和循环结构

B．选择结构是由块条件语句构成

C．选择结构包含了循环结构

D．循环结构包含了选择结构

有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（   ）

A．1

B．3

C．123

D．321

小明编写一个模拟qq登录的VB程序。当输入用户名、密码和验证码，点击登录按钮后，会跳出信息框提示是否验证成功。部分程序与流程图如下所示：

uname = Text1.Text '输入用户名
psd = Text2.Text    '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “” ' Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “    ”
Else
MsgBox “    ”
方框中正确的语句是（ ）。

A．①中“验证成功”	B．②中“输出用户名或密码有误”
C．②中“验证成功	D．③中“输出验证码错误”

某算法要实现0到100的偶数之和，流程图如图所示。则ißi+2被执行的次数是

A．50

B．51

C．100

D．101

小明利用所学的信息技术知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况。语文学考成绩分A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.accdb”的数据表“Chinese”中，数据表“Chinese”的结构如图所示。


VB程序运行界面如题图所示，在文本框Text1中输入查询的等级，单击“查询”按钮Command1，在列表框List1中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签Label2处显示学生的人数，如果人数为0,则在列表框中显示“没有该等级的学生”。按此要求编写程序如下，在下划线处填上合适的代码。
Private Sub Command1_Click()
Dim stuna(1 To 100) As String '存放学生姓名的数组定义为stuna
Dim stunum(1 To 100) As String '存放学生学号的数组定义为stunum
Dim i As Integer, j As Integer, n As Integer
Dim t As String
Dim cn As New ADODB.Connection '连接数据库
Dim rs As New ADODB.Recordset
Dim strSQL As String
cn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\stugrade.accdb "
cn.Open
strSQL = "select * from     ①  where 语文等级='" + Text1.Text + "'"
Set rs.ActiveConnection = cn
rs.Open strSQL
n = 0
Do While Not rs.EOF
②
stuna(n) = rs.Fields("姓名").Value
stunum(n) = rs.Fields("学号").Value
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
List1.Clear '清除列表框
If n =" 0" Then
List1.AddItem "没有该等级的学生"
Else
For i =" 1" To n - 1 '按姓名排序
For j =" n" To     ③   Step -1
If ④  Then [:学。科。网Z。X。X。K]
t =" stunum(j):" stunum(j) =" stunum(j" - 1): stunum(j - 1) = t
t =" stuna(j):" stuna(j) =" stuna(j" - 1): stuna(j - 1) = t
End If
Next j
Next i
For i =" 1" To n
List1.AddItem stunum(i) + "  " + stuna(i)
Next i
Label2.Caption = "该等级的学生共有" + Str(n) + "名"
End If
End Sub
（1）       
（2）       
（3）       
（4）       

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


（1）应用程序界面设计时，添加“list1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的______________（填写相应编号）
（2）解决此问题的相应程序如下，请根据题意将程序补充完整。
Private Sub  Command1_click ( )   
Dim x As Integer, s As Long, y As Integer, i As Integer
For i =" 0" To 9999
S =" 590000" + i
If ________①________  Then
x=" s" mod 10
y =" (s" Mod 100) \ 10
If x =" y" Then
_________②______     
End If
End If
Next i
End Sub

在 VB 中，下列程序段执行后，变量 s 的值是
s=1
For k="1" To 3
s=s+1
Next k

A．1

B．3

C．4

D．6

有如下 VB 程序，它的输出结果是
S=0
For i="1" To 10
If i mod 2="0" Then S="S+i"
Next i
Print “S=”;S

A．S=0

B．S=25

C．S=30

D．S=55

将以下程序段补充完整。
问题：往一个足够大的盒子里放小球，第一次放1个，第二次放2个，第三次放3个……，即每次放的小球数比上一次多1个。问放到第几次盒子里的小球才能多于300个？输出答案。n 表示放球的次数，sum表示小球的总数。
Dim n as integer , sum as integer 
n=0  
sum=0  
Do While sum<=300
n =____   ①  ______
sum =____  ②____   
Loop
Print “放到第” & ___   ③___  & “次盒子里的小球才能多于300个”

有如下VB程序段：
Dim i As Integer, c As String, s As String, t As String
s ＝ "2012 Hero"： t ＝ ""
For i ＝ 1 To Len(s)
c＝ Mid(s, i, 1)
If c >＝ "a" And c <＝ "z" Then t ＝ t ＋ c
Next i
Text1.Text ＝ t
该程序段运行后，文本框Text1中显示的内容是（）

A．2012

B．Hero

C．ero

D．2012 H