就业数据资源平台
当前位置：首页 > Visual Basic
全国计算机等级考试二级VB模拟试题13

答案  
























一、选择题（每题2分，共计70分）

1.下列叙述中正确的是
A、线性表是线性结构
B、栈与队列是非线性的结构
C、线性链表是非线性结构
D、二叉树是线性结构
A       B       C       D      
2.一个队列的入列序列是1，2，3，4，则队列的输出系列是____。
A、4，3，2，1
B、1，2，3，4
C、1，4，3，2
D、3，2，4，1
A       B       C       D      
3.对树中的一个结点x，在先根序列中的序号为pre(x)，在后根序列中的序号为post(x)。若树中结点x是结点y的祖先，下列四个条件哪个条件正确____。
A、pre (x)
B、pre (x)
post (y)

C、pre (x)>pre (y)和post (x)D、pre (x)>pre (y)和post (x)>post (y)
A       B       C       D      
4.对n个记录的文件进行堆排序，最坏情况下的执行时间为
A、O(log2n)
B、O(n)
C、O(nlog2n)
D、O(n2)
A       B       C       D      
5.在面向对象数据模型中，子类不但可以从其超类中继承所有的属性和方法，而且还可以定义自己的属性和方法，这有利于实现
A、可移植性
B、可扩充性
C、安全性
D、可靠性
A       B       C       D      

答案





















6.程序设计属于软件开发过程的____阶段。
A、设计
B、编程
C、实现
D、编码
A       B       C       D      
7.下面不属于软件设计原则的是
A、抽象
B、模块化
C、自底向上
D、信息隐蔽
A       B       C       D      
8.DDL是____。
A、操作DB语言
B、定义DB的语言
C、自含语言
D、宿主语言
A       B       C       D      
9.下列关于数据库数据模型的说法中，哪一个是不正确的？
A、任何一张二维表都表示一个关系
B、层次模型的数据结构是有向树结构
C、在网状模型中，一个子结点可以有多个父结点
D、在面向对象模型中每一个对象都有一个唯一的标识
A       B       C       D      
10.设有关系R，S和T如下。关系T是由关系R和S经过哪种操作得到的？
R S T
┌─┬─┬─┐┌─┬─┬─┐┌─┬─┬─┬─┬─┐
│A │B │C ││B │D │E ││A │B │C │D │E │
├─┼─┼─┤├─┼─┼─┤├─┼─┼─┼─┼--┤
│1 │2 │3 ││4 │1 │6 ││1 │2 │3 │7 │1 │
│4 │1 │6 ││2 │7 │1 ││3 │2 │4 │7 │1 │
│3 │2 │4 │└─┴─┴─┘└─┴─┴─┴─┴─┘
└─┴─┴─┘
A、R∪S
B、R－S
C、R×S
D、R连接S
A       B       C       D      

答案





















11.下面程序段的功能是_____。
Dim X As New FileSystemObject
For Each Mydri In X.Drives
Debug.Print Mydri.DriveLetter
Next Mydri
A、在窗体上显示系统当前工作驱动器盘符
B、在窗体上显示系统能够使用的所有驱动器盘符
C、在立即窗口显示系统能够使用的所有驱动器盘符
D、在立即窗口显示系统当前工作驱动器盘符
A       B       C       D      
12.Visual Basic运行时，当用户向文本输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发文本框的____事件。
A、Click
B、DblClick
C、GotFocus
D、Change
A       B       C       D      
13.要使标签中显示的文本靠右显示，则应将其Alignment属性设置为____。
A、0
B、1
C、2
D、4
A       B       C       D      
14.下列关于菜单的说法中，错误的是____。
A、每个菜单项都是一个控件，与其他控件一样也有其属性和事件
B、除了Click事件之外，菜单项不可以响应其他事件
C、菜单项的索引号可以不连续
D、菜单项的索引号必须从1开始
A       B       C       D      
15.程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是
A、MouseDown
B、MouseUp
C、Load
D、Click
A       B       C       D      
















































































































































16.从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是
A、Left
B、Mid
C、String
D、Instr
A       B       C       D      
17.下列语句正确的是____。
A、If X<3*Y , X>Y Then Y=X3
B、If X<3*Y And X>Y Then Y=X3
C、If X<3*Y : X>Y Then Y=X3
D、If X<3*Y And X>Y Then Y=X* *3
A       B       C       D      
18.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Move 500,500
End Sub
程序运行后，单击命令按钮，执行的操作为
A、命令按钮移动到距窗体左边界、上边界各500的位置
B、窗体移动到距屏幕左边界、上边界各500的位置
C、命令按钮向左、上方向各移动500
D、窗体向左、上方向各移动500
A       B       C       D      
19.在窗体中添加一个命令按钮，并编写如下程序：
Private Sub Command1_Click()
a%=2/3
b%=32/9
Print a%,b%
End Sub
运行下列程序，输出结果为_____。
A、1 4
B、0 3
C、1 3
D、0 4
A       B       C       D      
20.在表示长整数时，可用作长整数的尾部符号是____。
A、#
B、!
C、&
D、$
A       B       C       D      
21.改变驱动器列表框的Drive属性值将激活____事件。
A、Change
B、Scroll
C、KeyDown
D、KeyUp
A       B       C       D      
22.要清除已经在图片框Picture1中打印的字符串而不清除图片框中的图像，应使用语句_____。
A、P1.Cls
B、P1.Print""
C、P1.Picture=""
D、Picture1.Picture=""
A       B       C       D      
23.要判断在文本框内是否按下了回车键，可以在文本框的____事件过程中进行判断。
A、Change
B、Click
C、KeyPress
D、GotFocus
A       B       C       D      
24.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
A、单选按钮
B、图片框
C、通用对话框
D、文本框
A       B       C       D      
25.假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是____。
A、Add 12,12
B、Call(2*x,Sin(1.57))
C、Call Add x,y
D、Call Add(12,12,x)
A       B       C       D      
26.当窗体上添加了一个标签控件Label1之后，标签控件缺省的Name属性和Caption属性为____；执行语句
Labell.Caption="Visual Basic"之后，标签控件的Name属性和Caption属性为"Visual Basic"。
A、"Label"
B、"Caption"
C、"Label1"
D、"Label"
A       B       C       D      
27.在程序代码中将图片文件mypic.jpg装入图片框Picturel的语句是：____。
A、Picturel.picture="mypic.jpg"
B、Picturel.image="mypic.jpg"
C、Picturel.picture=LoadPicture("mypic.jpg")
D、LoadPicture("mypic.jpg")
A       B       C       D      
28.如果一个正数从高位到低位上的数字递减，则称此数为降序数。例如，96321、52
等都是降序数。本程序当单击命令按钮时从键盘输出一个正整数，调用numDecl过程判断
输入的数是否是降序数，并在单击事件过程中输出判断结果。
Private Sub Command1_Click()
Dim n As Long, flag As Boolean
n = InputBox("请输入一个正整数")
Call numDec1(n, flag)
If _____ Then
Print n; "是降序数"
Else
Print n; "不是降序数"
End If
End Sub
Private Sub numDec1(n As Long, flag As Boolean)
Dim x As String, i As Integer
x = Trim(Str(n))
For i = 1 To Len(x)
If Mid(x, i, 1) < Mid(x, i + 1, 1) Then Exit For
Next i
If i = Len(x) + 1 Then flag = True Else flag = False
End Sub
A、flag=false
B、flag
C、Not flag
D、flag=0
A       B       C       D      
29.在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A、15和1
B、27和3
C、195和3
D、600和4
A       B       C       D      
30.下面事件过程实现从键盘输出两个变量的值，变换这两个变量的值，并将交换结
果显示在立即窗口中。
Private Sub Form_Load()
Dim a As Double,b As Double,c As Double
a=Val(InputBox("请输入a"))
b=____
c=a;a=b;b=c
Debug.Pring a
Debug.Print b
End Sub
供选择的答案：
A、Val(InputBox("请输入b"))
B、(InputBox("请输入b"))
C、Val(InputBox("请输入a"))
D、(InputBox("请输入a")
A       B       C       D      
31.在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text1和Text2，编写如下两个事件过程
Dim str As String,str1 As String
Private Sub form_load( )
Text1.Text=" "
Text2.Text=" "
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
str=str & Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
str1=str1 & Chr(KeyCode)
End Sub
Private Sub Command1_Click( )
Text1.Text=str
Text2.Text=str1
str=" "
str1=" "
End Sub
当在设计阶段把窗体的KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母aaa，然后单击命令按钮，则文本框Text1中显示的内容为：
A、aaa
B、不显示任何信息
C、AAA
D、出错
A       B       C       D      
32.假定编写如下事件过程：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And 3) = 3 Then
Print "Hello"
End If
End Sub
程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下哪个操作：
A、只能按下左按钮并拖动
B、只能按下右按钮并拖动
C、必须同时按下左、右按钮并拖动
D、按下左按钮拖动或按下右按钮拖动都可
A       B       C       D      
33.对窗体编写如下代码：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a=Array(237,126,87,48,498)
m1=a(1)
m2=1
If KeyAscii=13 Then
For i=2 To 5
If a(i)>m1 Then
m1=a(i)
m2=i
End If
End If
Next i
End If
Print m1
Print m2
End Sub
程序运行后，按回车键，输出结果为____。
A、48
4
B、237
1
C、498
5
D、498
4
A       B       C       D      
34.新建立窗体中画一个命令按钮，其中事件代码如下：

For x=4 To 1 Step -1
For y=1 To 5-x
Print Tab(y+5);"*";
Next y
Print
Next x

窗体运行后，单击命令按钮，输出结果是
A、****
***
**
*
B、*
**
***
****
C、*****
****
***
**
D、*
***
*****
A       B       C       D      
35.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i As Integer,j As integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A、15
B、14
C、13
D、12
A       B       C       D      
36.二分查找法的平均查找长度为____。
A       B       C       D      
1.数据结构是相互之间存在的一种或多种特定的关系的数据元素的集合，它包括三个方面的内容，分别是____和算法。
输入答案，中间不含空格:
2.软件测试的过程一般按4个步骤进行，即____、集成测试、验收测试（确认测试）和系统测试。
输入答案，中间不含空格:
3.数据库维护包括____、完整性保护、故障恢复和并发控制。
输入答案，中间不含空格:
4.层次模型的缺点是不能直接表示______联系。
输入答案，中间不含空格:
5.设A=2,B=-4,则表达式3*A>5 Or B+8<0的值是_____。
输入答案，中间不含空格:
6.要将窗体定义成一个对话框,且具有以下属性：包含控制菜单框和标题栏,不包含最大化和
最小化按钮,运行时不能改变尺寸。可以将窗体的BorderStyle属性设置为__________。
输入答案，中间不含空格:
7.若A=20,B=80,C=70,D=30,则表达式A+B>160 Or (B*C>200 And Not D>60)的值是______。
输入答案，中间不含空格:
8.使通用对话框控C1显示为一个标准的字体对话框,应使用语句：______
输入答案，中间不含空格:
9.设有程序
Option Base 1
Private Sub Command1_Click()
Dim arr1,Max as Integer
arr1=Array(12,435,76,24,78,54,866,43)
_____=arr1(1)
For i=1 To 8
If arr1(i)>Max Then______
Next i
Print"最大值是："；Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
输入答案，中间不含空格:
10.上一题 第 2 空
输入答案，中间不含空格:
11.以下程序代码使用二维数组A表示矩阵,实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1,其余元素值全为0。
Private Sub Command1_Click()
Dim A(4, 4)
For i = 1 To 4
For j = 1 To 4
A(____) = 0
Next j
A(____) = 1
A(____) = 1
Next i
For i = 1 To 4
For j = 1 To 4
Print A(i, j);
Next j
Print
Next i
End Sub
输入答案，中间不含空格:
12.上一题　第 2 空
输入答案，中间不含空格:
13.上一题　第 3 空
输入答案，中间不含空格:
14.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=10
For i=1 To k
a(i)=i
Next i
For i=1 To 3
p(i)=a(i)*2
K=k+p(i)
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是____。
输入答案，中间不含空格:







答案





















21.改变驱动器列表框的Drive属性值将激活____事件。
A、Change
B、Scroll
C、KeyDown
D、KeyUp
A       B       C       D      
22.要清除已经在图片框Picture1中打印的字符串而不清除图片框中的图像，应使用语句_____。
A、P1.Cls
B、P1.Print""
C、P1.Picture=""
D、Picture1.Picture=""
A       B       C       D      
23.要判断在文本框内是否按下了回车键，可以在文本框的____事件过程中进行判断。
A、Change
B、Click
C、KeyPress
D、GotFocus
A       B       C       D      
24.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是
A、单选按钮
B、图片框
C、通用对话框
D、文本框
A       B       C       D      
25.假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是____。
A、Add 12,12
B、Call(2*x,Sin(1.57))
C、Call Add x,y
D、Call Add(12,12,x)
A       B       C       D      

答案







































































































26.当窗体上添加了一个标签控件Label1之后，标签控件缺省的Name属性和Caption属性为____；执行语句
Labell.Caption="Visual Basic"之后，标签控件的Name属性和Caption属性为"Visual Basic"。
A、"Label"
B、"Caption"
C、"Label1"
D、"Label"
A       B       C       D      
27.在程序代码中将图片文件mypic.jpg装入图片框Picturel的语句是：____。
A、Picturel.picture="mypic.jpg"
B、Picturel.image="mypic.jpg"
C、Picturel.picture=LoadPicture("mypic.jpg")
D、LoadPicture("mypic.jpg")
A       B       C       D      
28.如果一个正数从高位到低位上的数字递减，则称此数为降序数。例如，96321、52
等都是降序数。本程序当单击命令按钮时从键盘输出一个正整数，调用numDecl过程判断
输入的数是否是降序数，并在单击事件过程中输出判断结果。
Private Sub Command1_Click()
Dim n As Long, flag As Boolean
n = InputBox("请输入一个正整数")
Call numDec1(n, flag)
If _____ Then
Print n; "是降序数"
Else
Print n; "不是降序数"
End If
End Sub
Private Sub numDec1(n As Long, flag As Boolean)
Dim x As String, i As Integer
x = Trim(Str(n))
For i = 1 To Len(x)
If Mid(x, i, 1) < Mid(x, i + 1, 1) Then Exit For
Next i
If i = Len(x) + 1 Then flag = True Else flag = False
End Sub
A、flag=false
B、flag
C、Not flag
D、flag=0
A       B       C       D      
29.在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,n As Integer
x=1
n=0
Do While x<20
x=x*3
n=n+1
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是
A、15和1
B、27和3
C、195和3
D、600和4
A       B       C       D      
30.下面事件过程实现从键盘输出两个变量的值，变换这两个变量的值，并将交换结
果显示在立即窗口中。
Private Sub Form_Load()
Dim a As Double,b As Double,c As Double
a=Val(InputBox("请输入a"))
b=____
c=a;a=b;b=c
Debug.Pring a
Debug.Print b
End Sub
供选择的答案：
A、Val(InputBox("请输入b"))
B、(InputBox("请输入b"))
C、Val(InputBox("请输入a"))
D、(InputBox("请输入a")
A       B       C       D      
31.在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text1和Text2，编写如下两个事件过程
Dim str As String,str1 As String
Private Sub form_load( )
Text1.Text=" "
Text2.Text=" "
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
str=str & Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
str1=str1 & Chr(KeyCode)
End Sub
Private Sub Command1_Click( )
Text1.Text=str
Text2.Text=str1
str=" "
str1=" "
End Sub
当在设计阶段把窗体的KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母aaa，然后单击命令按钮，则文本框Text1中显示的内容为：
A、aaa
B、不显示任何信息
C、AAA
D、出错
A       B       C       D      
32.假定编写如下事件过程：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And 3) = 3 Then
Print "Hello"
End If
End Sub
程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下哪个操作：
A、只能按下左按钮并拖动
B、只能按下右按钮并拖动
C、必须同时按下左、右按钮并拖动
D、按下左按钮拖动或按下右按钮拖动都可
A       B       C       D      
33.对窗体编写如下代码：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a=Array(237,126,87,48,498)
m1=a(1)
m2=1
If KeyAscii=13 Then
For i=2 To 5
If a(i)>m1 Then
m1=a(i)
m2=i
End If
End If
Next i
End If
Print m1
Print m2
End Sub
程序运行后，按回车键，输出结果为____。
A、48
4
B、237
1
C、498
5
D、498
4
A       B       C       D      
34.新建立窗体中画一个命令按钮，其中事件代码如下：

For x=4 To 1 Step -1
For y=1 To 5-x
Print Tab(y+5);"*";
Next y
Print
Next x

窗体运行后，单击命令按钮，输出结果是
A、****
***
**
*
B、*
**
***
****
C、*****
****
***
**
D、*
***
*****
A       B       C       D      
35.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i As Integer,j As integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A、15
B、14
C、13
D、12
A       B       C       D      
36.二分查找法的平均查找长度为____。
A       B       C       D      
1.数据结构是相互之间存在的一种或多种特定的关系的数据元素的集合，它包括三个方面的内容，分别是____和算法。
输入答案，中间不含空格:
2.软件测试的过程一般按4个步骤进行，即____、集成测试、验收测试（确认测试）和系统测试。
输入答案，中间不含空格:
3.数据库维护包括____、完整性保护、故障恢复和并发控制。
输入答案，中间不含空格:
4.层次模型的缺点是不能直接表示______联系。
输入答案，中间不含空格:
5.设A=2,B=-4,则表达式3*A>5 Or B+8<0的值是_____。
输入答案，中间不含空格:
6.要将窗体定义成一个对话框,且具有以下属性：包含控制菜单框和标题栏,不包含最大化和
最小化按钮,运行时不能改变尺寸。可以将窗体的BorderStyle属性设置为__________。
输入答案，中间不含空格:
7.若A=20,B=80,C=70,D=30,则表达式A+B>160 Or (B*C>200 And Not D>60)的值是______。
输入答案，中间不含空格:
8.使通用对话框控C1显示为一个标准的字体对话框,应使用语句：______
输入答案，中间不含空格:
9.设有程序
Option Base 1
Private Sub Command1_Click()
Dim arr1,Max as Integer
arr1=Array(12,435,76,24,78,54,866,43)
_____=arr1(1)
For i=1 To 8
If arr1(i)>Max Then______
Next i
Print"最大值是："；Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
输入答案，中间不含空格:
10.上一题 第 2 空
输入答案，中间不含空格:
11.以下程序代码使用二维数组A表示矩阵,实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1,其余元素值全为0。
Private Sub Command1_Click()
Dim A(4, 4)
For i = 1 To 4
For j = 1 To 4
A(____) = 0
Next j
A(____) = 1
A(____) = 1
Next i
For i = 1 To 4
For j = 1 To 4
Print A(i, j);
Next j
Print
Next i
End Sub
输入答案，中间不含空格:
12.上一题　第 2 空
输入答案，中间不含空格:
13.上一题　第 3 空
输入答案，中间不含空格:
14.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=10
For i=1 To k
a(i)=i
Next i
For i=1 To 3
p(i)=a(i)*2
K=k+p(i)
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是____。
输入答案，中间不含空格:







答案





















31.在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text1和Text2，编写如下两个事件过程
Dim str As String,str1 As String
Private Sub form_load( )
Text1.Text=" "
Text2.Text=" "
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
str=str & Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
str1=str1 & Chr(KeyCode)
End Sub
Private Sub Command1_Click( )
Text1.Text=str
Text2.Text=str1
str=" "
str1=" "
End Sub
当在设计阶段把窗体的KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母aaa，然后单击命令按钮，则文本框Text1中显示的内容为：
A、aaa
B、不显示任何信息
C、AAA
D、出错
A       B       C       D      
32.假定编写如下事件过程：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And 3) = 3 Then
Print "Hello"
End If
End Sub
程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下哪个操作：
A、只能按下左按钮并拖动
B、只能按下右按钮并拖动
C、必须同时按下左、右按钮并拖动
D、按下左按钮拖动或按下右按钮拖动都可
A       B       C       D      
33.对窗体编写如下代码：
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a=Array(237,126,87,48,498)
m1=a(1)
m2=1
If KeyAscii=13 Then
For i=2 To 5
If a(i)>m1 Then
m1=a(i)
m2=i
End If
End If
Next i
End If
Print m1
Print m2
End Sub
程序运行后，按回车键，输出结果为____。
A、48
4
B、237
1
C、498
5
D、498
4
A       B       C       D      
34.新建立窗体中画一个命令按钮，其中事件代码如下：

For x=4 To 1 Step -1
For y=1 To 5-x
Print Tab(y+5);"*";
Next y
Print
Next x

窗体运行后，单击命令按钮，输出结果是
A、****
***
**
*
B、*
**
***
****
C、*****
****
***
**
D、*
***
*****
A       B       C       D      
35.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i As Integer,j As integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A、15
B、14
C、13
D、12
A       B       C       D      

答案




















二、填空题（每空2分，共计30分）

1.数据结构是相互之间存在的一种或多种特定的关系的数据元素的集合，它包括三个方面的内容，分别是____和算法。
输入答案，中间不含空格:
2.软件测试的过程一般按4个步骤进行，即____、集成测试、验收测试（确认测试）和系统测试。
输入答案，中间不含空格:
3.数据库维护包括____、完整性保护、故障恢复和并发控制。
输入答案，中间不含空格:
4.层次模型的缺点是不能直接表示______联系。
输入答案，中间不含空格:

答案





















5.设A=2,B=-4,则表达式3*A>5 Or B+8<0的值是_____。
输入答案，中间不含空格:
6.要将窗体定义成一个对话框,且具有以下属性：包含控制菜单框和标题栏,不包含最大化和
最小化按钮,运行时不能改变尺寸。可以将窗体的BorderStyle属性设置为__________。
输入答案，中间不含空格:
7.若A=20,B=80,C=70,D=30,则表达式A+B>160 Or (B*C>200 And Not D>60)的值是______。
输入答案，中间不含空格:
8.使通用对话框控C1显示为一个标准的字体对话框,应使用语句：______
输入答案，中间不含空格:
9.设有程序
Option Base 1
Private Sub Command1_Click()
Dim arr1,Max as Integer
arr1=Array(12,435,76,24,78,54,866,43)
_____=arr1(1)
For i=1 To 8
If arr1(i)>Max Then______
Next i
Print"最大值是："；Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
输入答案，中间不含空格:

答案





















10.上一题 第 2 空
输入答案，中间不含空格:
11.以下程序代码使用二维数组A表示矩阵,实现单击命令按钮Command1时使矩阵的两条对角线上的元素值全为1,其余元素值全为0。
Private Sub Command1_Click()
Dim A(4, 4)
For i = 1 To 4
For j = 1 To 4
A(____) = 0
Next j
A(____) = 1
A(____) = 1
Next i
For i = 1 To 4
For j = 1 To 4
Print A(i, j);
Next j
Print
Next i
End Sub
输入答案，中间不含空格:
12.上一题　第 2 空
输入答案，中间不含空格:
13.上一题　第 3 空
输入答案，中间不含空格:
14.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a(1 To 10)
Dim p(1 To 3)
k=10
For i=1 To k
a(i)=i
Next i
For i=1 To 3
p(i)=a(i)*2
K=k+p(i)
Next i
Print k
End Sub
程序运行后，单击命令按钮，输出结果是____。
输入答案，中间不含空格:
就业数据资源平台