变量psd存储该用户密码，则psd的数据类型应定义为
（A）Integer （B）Single （C）Boolean （D）String 10. 在Visual Basic中，从字符串\中截取\的表达式是 （A）Mid(\ （B）Mid(Good morning, 6, 7) （C）Mid(\ （D）Mid(\11. 若x是正整数，则下列能用于描述\是否为奇数\的Visual Basic条件表达式是
（A）2 Mod x = 1 （B）x Mod 2 = 1 （C）x \\ 2 = 0 （D）Int(x / 2) = 1 12. 将整数型变量n的值显示在文本框Text1中，正确的语句是 （A）Text = n （B）Val(Text1) = n
（C）Text1.Text = Str(n) （D）Str(Text1.Text) = n
13. 某校有5位学生参加学生会主席竞选，得票数依次为110，98，3，150，67。使用选择排序的方法对得票数进行从大到小排序，需要进行数据互换的次数是 （A）5 （B）4 （C）3 （D）2 14.在Visual Basic中，有如下程序： Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer Dim d As Integer
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = min(a, b) + min(b, c) Text4.Text = Str(d) End Sub
Function min(x As Integer, y As Integer) As Integer If x < y Then min = x Else min = y End Function
运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text4中显示的是 （A）-10 （B）-5 （C）2 （D）6
第九套
7. 计算梯形面积的算法描述如下： ①输入上底a、下底b和高h
②计算梯形面积s(计算公式为：s=(a+b)*h/2) ③输出结果 ④结束
上述算法属于
（A）解析算法 （B）排序算法 （C）递归算法 （D）枚举算法
8. 在Visual Basic中，要在窗体中的标签对象Label1上显示文字\请输入验证码：\，应改变的标签对象属性是
（A）Width （B）Font （C）Caption （D）Top 9. 有如下Visual Basic程序段： Private Sub Label1_DblClick() Dim x As Integer, y As Integer x = 5 y = 15
Text1.Text = Str(x + y) End Sub
能运行这段程序的事件是
（A）单击命令按钮Command1 （B）单击标签Label1 （C）双击标签Label1 （D）单击文本框Text1 10. 在Visual Basic中，表达式Fix(1.8)的值是 （A）2 （B）1.8 （C）1 （D）0.8
11. 以下Visual Basic程序段是一个完整的Do语句，则划线处的语句应该是 Do While n < 10 n = n + 3 s = s * n _______
（A）Loop （B）End Do （C）End Sub （D）Next n 12. 在Visual Basic中，设整型变量x、y的值分别是2、16，则能在文本框Text1中显示“a = 18”的语句是
（A）Text1.Text = \
（B）Text1.Text = \（C）Text = \ （D）Text1.Text = \
13. 篮球联赛中，有5个班级的比赛积分依次为14，11，13，8，9。若采用冒泡排序算法对其进行从小到大排序，则完成第二遍时的结果是 （A）8，11，13，14，9 （B）8，9，13，14，11 （C）8，9，14，11，13 （D）14，13，11，9，8
14. 有一数列1，2，3，5，8，13，……，从第3项起，每项等于它相邻的前2项之和。求在该数列中第一个超过1000的数是第几项。解决此问题的部分算法流程图如图所示：
图中空白处理框①和②处应填入的是
（A）① b ← a （B）① i ← i + 1 ② i ← i + 1 ② b ← a
（C）① a ← c （D）① i ← i + 1 ② i ← i + 1 ② a ← b
第十套
7. 如图所示，流程图所表示的算法属于
（A）枚举算法 （B）排序算法 （C）解析算法 （D）对分算法 8. 在Visual Basic窗体中，当前对象的属性窗口如下图所示，下列说法正确的是
（A）该对象属于命令按钮类 （B）该对象属于标签类
（C）当前该对象的Font属性值为“仿宋体” （D）当前该对象的Caption属性值是“用户” 9. 在Visual Basic中，下列能作为变量名的是
（A）a_5 （B）a-5 （C）5a （D）A&5 10. 在Visual Basic中，表达式500 + Len(\的值是
（A）100 （B）504 （C）\（D）5004
11. x = 5，语句If x < 5 Then y = 1 - x Else y = x - 1执行后，变量y的值是
（A）4 （B）-4 （C）False （D）True 12. 运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出错信息。发生\类型不匹配\错误时所执行的语句是 Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = 10 '① b = 20 '② Text1.Text = \③ End Sub '④
（A）① （B）② （C）③ （D）④
13. 某校通过政府招投标中心采购一套多媒体教学设备，有5家单位参加竞标，竞标价分别为19万、15万、21万、13万、12万元人民币。若采用选择排序算法对标价从大到小排序，需要进行数据互换的次数是 （A）1 （B）2 （C）3 （D）4 14. 在Visual Basic中，有如下程序： Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer Dim d As Integer
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = min(a, b) - min(b, c) Text4.Text = Str(d) End Sub
Function min(x As Integer, y As Integer) As Integer If x < y Then min = x Else min = y End Function
运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6后，单击命令按钮Command1，文本框Text4中显示的是
（A）-10 （B）-5 （C）0 （D）6