09年VB.docx
- 文档编号:3752052
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:13
- 大小:21.54KB
09年VB.docx
《09年VB.docx》由会员分享,可在线阅读,更多相关《09年VB.docx(13页珍藏版)》请在冰豆网上搜索。
09年VB
一、 选择题(每小题2分,共70分)
下面各题A)、B)、C)、D)四个选项中,只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上。
答在试卷上不得分。
(1)下列数据结构中,属于非线性结构的是
A)循环队列 B)带链队列 C)二叉树 D)带链
(2)下列数据结构中,能够按照“先进先出”原则存取数据的是:
A)循环队 B) C)队列 D) 二叉树
(3)对于循环队列,下列叙述中正确的是‖d
A)队头指针是固定不变的
B)队头指针是一定大于队尾指针
C)队头指针一定小于队尾指针
D)队头指针可以大于队尾指针,也可以小于队尾指针
(4)算法的空间复杂度是指b
A)算法在执行过程中所需要的计算机存储空间
B)算法所处理的数据量
C)算法程序中的语句或指令条数
D)队头指针可以大于队尾指针,也可以小于队尾指针
(5)软件设计中划分模块一个准则是b
A)低内聚低耦合 B) 高内聚低耦合
C) 低内聚高耦合 D) 高内聚高耦合
(6)下列选项中不属于结构化程序设计原则的是a
A)可封装 B)自顶向下 C)模块化 D)逐步求精
(7)软件详细设计产生的图如下:
该图是:
A)N-S图 B)PAD图 C)程序流程图 D)E-R图
(8)数据库管理系统是c
A)操作系统的一部分 B)在操作系统支撑下的系统软件
C)一种编译系统 D)一种操作系统
(9)在E-R中,用来表示实体联系的图形是a
A)椭形图 B)矩形 C)菱形 D)三角形
(10)有三个关系R,S和T如下:
其中关系T由关系R和S通过某种操作得到,该操作为b
A)选择 B)投影 C)交 D)并
(11)以下变量名中合法的是:
c
A)x2-1 B)Print C)Str_n D)2x
(12)把数学表达式(5x+3)/(2y-6)表示为正确的VB表达式应该是:
d
A) (5x+3)/(2y-6) B)x*5+3/2*y-6
C)(5*X+3) D)(X*5+3)/(y*2-6)
(13)下面有关标准模块的叙述中,错误的是:
a
A)标准模块不完全由代码组成,还可以有窗体。
B)标准模块中的Private过程中不能被工程中的其他模块调用。
C)标准模块中文件扩展名为.bas
D)标准模块中的全局变量可以被工程中的任何模块引用。
(14)下面控件中,没有Caption 属性的是c
A)复选框 B)单选按钮 C)组合框 D)框架
(15)用来设置文字字体是否斜体的属性是:
d
A)FonUnderline B)FontBold C)Fontslope D)FontItalic
(16)若看到程序中有以下事件过程,则可以肯定的是,当程序运行时b
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "VB program"
End Sub
A) 用鼠标左键单击名称为“Command1”的命令按钮时,执行此过程。
B) 用鼠标左键单击名称为“MouseDown”的命令按钮时,执行此过程。
C) 用鼠标右键单击名称为“MouseDown”的命令按钮时,执行此过程。
D) 用鼠标左键或右键单击名称为“Click”的控件时,执行此过程。
(17)可以产生30-50(含30和50)之间的随机整数的表达式是a
A)Int (Rnd*21+30) B)Int(Rnd*20+30)
C) Int(Rnd*50-Rnd*30) D)Int(Rnd*20+50)
(18)在程序运行时,下面的叙述中正确的是c
A)用鼠标右键单击窗体中无控件的部分,会执行窗体的Form_load事件过程。
B)用鼠标左键单击窗体的标题栏,会执行窗体的Form_Click事件过程。
C)只装入而不显示窗体,也会执行窗体的Form_Load事件过程。
D)装入窗体后,每次显示该窗体时,都会执行窗体的Form_Click事件过程。
(19)名称为Command1的命令按钮和名称为Text1的文本框b
Private Sub Command1_Click()
Text1.Text = "程序设计"
Text1.Text = "程序设计"
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text = "等级考试"
End Sub
运行以上程序,单击命令按钮后:
A) 文本框中显示的是“程序设计”,且焦点在文本框中。
B) 文本框中显示的是“等级考试”,且焦点在文本框中。
C) 文本框中显示的是“程序设计”,且焦点在命令按钮上。
D) 文本框中显示的是“等级考试”,且焦点在命令按钮上。
(20)有名称为Opiton1的单选按钮,且程序中有语句:
If Option1.value=True then
下面语句中与该语句不等价的是c
A) Option1.Vulue then B)If Option1=True then
C)If value=True then D)If Option then
(21)设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。
下面叙述中正确的是:
a
A)程序运行时,若使滚动块向左移动,滚动条胡value属性值就增加。
B)程序运行时,若使滚动块向左移动,滚动条的value属性值就减少。
C)由于滚动条的MAX属性值小于Min属性值,程序会出错。
D)由于滚动条的Max属性值小于Min属性值,程序运行时滚动条的长度会缩为滚动块无法移动。
(22)有如下过程代码
连续3次调用var_dim过程,第3次调用时的输出是:
d
A) 2 1 B)2 3 C) 6 1 D) 6 3
(23)在窗体上画1个命令按钮,并编写如下事件过程:
运行程序,单击命令按钮,窗体上显示的内容为:
A) 5 3 1 1 B)5 4 3 2 1
C)4 3 2 1 1 D)4 4 3 2 1 1
(24)在窗体上面1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
Dim a(3, 3)
For m = 1 To 3
For n = 1 To 3
If n = m Or n = 4 - m Then
a(m, n) = m + n
Else
a(m, n) = 0
End If
Print a(m, n);
Next n
Next m
End Sub
运行程序单击命令按钮,窗体上显示的内容为:
A) 2 0 0 B)2 0 4 C)2 3 0 D) 2 0 0
0 4 0 0 4 0 3 4 0 0 4 5
0 0 6 4 0 6 0 0 6 0 5 6
(25)设有以下函数过程:
Function fun(a As Integer, b As Integer)
Dim c As Integer
If a < b Then
c = a:
a = b:
b = c
End If
c = 0
Do
c = c + a
Loop Until c Mod b = 0
fun = c
End Function
若调用函数fun时的实际参数都是自然数,则函数返回的是:
b
A)a、b的最大公约数 B)a、b的最小公约数
C)a除以b的余数 D) )a除以b 的商的整数部分
(26)窗体上有1个名称为text1文本框,1个名称为Timer1的计时器控件,其Iterval属性值为5000,Enabled属性值是True。
Timer1的事件过程如下:
c
Private Sub Timer1_Timer()
Static flag As Integer
If flag = 0 Then flag = 1
flag = -flag
If flag = 1 Then
Text1.ForeColor = &HFF& '&HFF&为红色'
Else
Text1.ForeColor = &HC000& '&HC000&为绿色'
End If
End Sub
以下叙述中正确的是
A) 每次执行此事件过程时,flag的初始值均为0
B) Flag的值只可能取0或1
C) 程序执行后,文本框中的文字每5秒改变一次颜色
D) 程序有逻辑错误,Else分支总也不能被执行
(27)为计算1+2+2^2+2^3+2^4+…+2^10的值,并把结果显示在文本框text1中,若编写如下事件过程:
Private Sub Command1_Click()
Dim a%, s%, k%
s = 1
a = 2
For k = 2 To 10
a = a * 2
s = s + a
Next k
Text1.Text = s
End Sub
执行此事件过程中发现结果是错误的,为能够得到正确结果,应做的修改是:
b
A) 把s=1 改为 s=0 B)把For k=2 to 10 改为 For k=1 to 10
C)交换语句 s=s+a和a=a*2的顺序 D)同时进行B)、C)两种修改
(28)标准模块中有如下程序代码:
Public x As Integer, y As Integer
Sub var_pub()
x = 10:
y = 20
End Sub
在窗体上有1个命令按钮,并有如下事件过程:
Private Sub Command
1_Click()
Call var_pub
x = x + 100
y = y + 100
Print x, y
End Sub
运行程序后单击命令按钮,窗体上显示的是:
d
A)100 100 B)100 120 C)110 100 D)110 120
(29)设a、b都是自然数,为求a除以b的余数,某人编写了以下函数:
Funciton fun(a as Integer ,b as Integer )
While a > b
a = a - b
Wend
fun = a
End Function
在调试时发现函数是错误的,为使函数能产生正确的返回值,应做的修改是:
d
A)把a=a-b改为a=b-a B)把a=a-b改为a=a\b
C)把while a>b改为 while ab改为 while a>=b
(30)下列关于通用对话框CommanDialog1的叙述中,错误的是a
A)只要在“打开”对话框中选择了文件,并单击“打开”按钮,就可以将选中的文件打开。
B)使用CommonDialog1.showcolor方法,可以显示“颜色”对话框。
C)Cancelerror属性用于控制用户单击“取消”按钮关闭对话框时,是否显示出错警告。
D)在显示“字体”对话框前,必须先设置CommonDialog1.showcolor的Flags属性,否则会出错。
(31)在利用菜单编辑器设计菜单时,为了把组合键”Alt+X”设置为"退出(X)
菜单项的访问键,可以将该菜单项的标题设置为c
A)退出(X&) B)退出(&X) C)退出(X#) D)退出(#X)
(32)在窗体上画1个命令按钮和1个文本框,其名称分别为command1和text1,再编写如下程序:
Dim ss As String
Private Sub text1_keypress(keyascii As Integer)
If Chr(keyascii) <> "" Then
ss = ss + Chr(keyascii)
End Sub
Private Sub Command1_Click()
Dim m As String, i As Integer
For i = Len(ss) To 1 Step -1
m = m + Mid(ss, i, 1)
Next
End Sub
(33)窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enabed属性值是True。
要求程序运行后,圆每秒向右称动100,当圆遇到Line2时则停此移动。
为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:
Private Sub Timer1_Timer()
For k = Line1.X1 To Line2.X1 Step 100
If Shape1.Left + Shape1.Width < Line2.X1 Then
Shape1.Left = Shape1.Left + 100
End If
Next k
End Sub
运行程序时发现圆立即移动了右边的直线处,与题目要求的移动方式不符。
为得到与题目要求相符的结果,下面修改方案中正确的是:
b
A) 把计时器的Interval属性设置为1
B) 把For K=Line1.X1 To Line2.X1 Step 100和Next 两行删除
C) 把For K=Line1.X1 To Line2.X1 Step 100改为For K=Line2.X1 To Line1.X1 Step 100
D) 把 If shape1.left+shape1.width (34)下列有关文件的叙述中,正确的是: c A)以Output方式打开一个不存在的文件时,系统将显示出错信息 B) 以Append方式打开的文件,既可以进行读操作,也可以进行写操作 C)在随机文件中,每个记录的长度是固定的。 D)无论是顺序文件还是随机文件,其打开的语句和打开方式都是完全相同的。 (35)窗体如图1所示,要求程序运行时,在文本框text1中输入一个姓氏,单击“删除“按钮(名称为command1),则可删除列表框中list1中所有该姓氏的项目,若编写以下程序来实现此功能: Private Sub Command1_Click() Dim n%, k% n = Len(Text1.Text) For k = 0 To List1.ListCount - 1 If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If Next k End Sub 在调试时发现,如输入“陈”,可以正确删除所有姓“陈”的项目,但输入“刘”则只删除了“刘邦”、“刘备”2项,结果如图2所示。 这说明程序不能适应所有情况,需要修改。 正确的改方案是把 For k=0 to list1.listcount-1改为 A) For k=list1.listcount-1 to 0 step -1 B) For k=0 to list1.listcount C) For k=1 to list1.listcount-1 D) For k=1 to list1.listcount 二、 填空题(每空2分,共30分) 请将每空的正确答案写在答题卡上,答在试卷上不得分 (1)某二叉树有5个度为2的结占以及3个度为1的结点,则该二叉树中共有 14个结点。 (2)程序流程图中的菱形框表示的是【逻辑条件】 (3)软件开发过程主要分为需求分析、设计、编码与测试四个阶段,其中【需求分析】阶段产生软件需求规格说明书。 (4)在数据库中,实体集之间的联系可以是一对一或一对多或多对多的,那么“学生”和“可选课程”的联系为【4】 (5)人员基本信息一般包括: 身份证号、姓名、性别、年龄等。 其中可以作为主关键字的是【5】 (6)工程中有Form1、Form2两个窗体,Form1窗体外观如图1所示,程序运行时在form1中名称为text1的文本框中输入一个值(圆的半径),然后单击命令按钮“计算并显示”(其名称为command1),则显示form2窗体,且根据输入的圆的半径计算圆的面积,并在Form2的窗体上显示出来,如图2所示,如果单击命令按钮时,则文本框中输入的不是数值,则用信息框显示“请输入数值数据! ,请填空: 图1 图2 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入半径" ElseIf Not IsNumeric( 【6】) then MsgBox "请输入数值数据" Els r = Val(【7】) Form2.Show 【8】.Print"圆的面积是"& 3.14*r*r End If End Sub (7)设有整型变量s,取值范围为0-100,表示学生的成绩。 有如下程序段: If s > 90 Then Level = "A" ElseIf s >= 75 Then Level = "B" ElseIf s >= 60 Then Level = "C" Else Level = "D" End If 下面用Select case 结构改写上述程序,使两段程序所实现的功能完全相同,请填空: Private Sub Form_Load() Select Case s Case 【9】 >= 90 Level = "A" Case 75 To 89 Level = "B" Case 60 To 74 Level = "C" Case 【10】 Case 75 To 89 Level = "D" 【11】 (8)窗体上有名称为command1的命令按钮,事件过程及2个函数过程如下: Private Sub Command1_Click() Dim x As Integer, y As Integer x = 3 y = 5 z = fy(y) Print fx(fx(x)), y End Sub Function fx(ByVal a As Integer) a = a + a fx = a End Function Function fy(ByVal a As Integer) a = a + a fy = a End Function 运行程序,并单击命令按钮,则窗体上显示的2个值依次是【12】和【13】. (9)窗体上有称称为command1的命令按钮及名称为text1,能显不多行文本的文本框,程序运行后,如果单击命令按钮,则可打开磁盘文件c: \test.txt,并将文件中的内容(多行文本)显示在文本框中,下面是实现此功能的程序,请填空: Private Sub Command1_Click() Text1.Text = "" Number = FreeFile Open "c: \test.txt" For Input As Number Do While Not EOF 【14】. Line Input #Number, s text1 , Text = text1.Text + 【15】 + Chr(13) + Chr(10) Loop Close Number End Sub 2009年9月二级Visual Basic 试卷答案 一、选择题: 11-15: CDACD 16-20: DACBC 21-25: ACABB 26-30: CDDDA 31-35: CDBCA 二、填空题 1、14 2、逻辑条件 3、需求分析 4、多对多 5、身份证号 6、Text1.Text 7、Text1.Text 8、Form2 9\、Is 10、Else 11、End Select 12、12 13、10 14、Number 15、S
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 09 VB