有如下一段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．③中“输出验证码错误”

VB语句List1.addItem d(i) 的作用是把数组d的数据添加到列表框对象List1中。该语句中的“addItem”是（   ）

A．属性名

B．属性值

C．方法

D．事件

变量a中存储了一个字符，能够正确判断该字符为数字字符“0”-“9”的VB表达式是（   ）

A．Asc(a)>="0" Or Asc(a)<=9

B．“0”<=a<=”9”

C．a<="”0”" Or a>=”9”

D．a>="”0”" and a<=”9”

编写VB程序，实现计算器的简单计算功能：通过0~9的数字和小数点符号输入计算数据，单击选择“+、-、*、/”等运算，最后点击“=”按钮在文本框Text1中显示运算结果。界面如第14题-1图所示，回答下列问题：

（1）要修改窗体的显示名称为“计算器”，应选择第14题-2图所示的  属性。
（2）为实现上述功能，输入数据是非常重要的部分，以下是数字按钮“1”中的代码，用于在Text1中输入数字“1”，请在划线处输入合适的代码。
Private Sub Command11_Click()
Dim fuhao As ①     '用于存储+、-、*、/等运算符号
Dim x As Single  '用于存储第一个运算数
Dim y As Single  '用于存储第二个运算数
Text1.Text = ②
If  fuhao = "" Then
x = Val(Text1.Text)
   ③    
y = Val(Text1.Text)
End If
End Sub
（3）运行测试通过之后，如果想让其他人能够直接运行使用，应该生成 格式文件。

如下图所示，在Visual Basic工程设计中，要在命令按钮command1中显示“确定”，则下列操作正确的是( )

A．在Text属性值中输入“确定”

B．在Caption属性值中输入“确定”

C．在Font属性值中输入“确定”

D．在Name属性值中输入“确定”

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

A．50

B．51

C．100

D．101

对输入的两个整数a和b，找出其中的较大者赋给c并输出。解决该问题的算法流程图如右图所示，流程图中虚线框部分的内容可为

A．

B．

C．

D．

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如第1图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（2图) 中将
____________属性的属性值修改为“转换”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If_________Then '(选填字母,从下列A、B、C、D四个选项中选取一项）
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While__________'(选填字母,从下列A、B、C、D四个选项中选取一项）
f =" i" * 9 / 5 + 32    '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
_________'（填程序代码）
Loop
End Sub
划线①、②处的选项:

A．i <= t2

B．f <= t2

C．t1 > t2

D．i < f

小明利用所学的信息技术知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况。语文学考成绩分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）