VB重修复习题.docx
《VB重修复习题.docx》由会员分享，可在线阅读，更多相关《VB重修复习题.docx（74页珍藏版）》请在冰点文库上搜索。
VB重修复习题
模拟试题1
1选择题（每小题2分，共70分）
1.下列叙述中正确的是__________
A）栈是“先进先出”的线性表
B）队列是“先进后出”的线性表
C）循环队列是非线性结构
D）有序线性表既可以采用顺序存储结构，也可以采用链式存储结构
2.支持子程序调用的数据结构是__________
A）栈B）树C）队列D）二叉树
3.某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是__________
A）10B）8C）6D）4
4.下列排序方法中，最坏情况下比较次数最少的是__________
A）冒泡排序B）简单选择排序C）直接插入排序D）堆排序
5.软件按功能可以分为：
应用软件、系统软件和支撑软件〔或工具软件）。
下面属于应用软件的是__________
A）编译程序B）操作系统C）教务管理系统D）汇编程序
6.下面叙述中错误的是__________
A）软件测试的目的是发现错误并改正错误
B）对被调试的程序进行“错误定位”是程序调试的必要步骤
C）程序调试通常也称为Debug
D）软件测试应严格执行测试计划，排除测试的随意性
7.耦合性和内聚性是对模块独立性度量的两个标准。
下列叙述中正确的是__________
A）提高耦合性降低内聚性有利于提高模块的独立性
B）降低耦合性提高内聚性有利于提高模块的独立性
C）耦合性是指一个模块内部各个元素间彼此结合的紧密程度
D）内聚性是指模块间互相连接的紧密程度
8.数据库应用系统中的核心问题是__________
A）数据库设计B）数据库系统设计C）数据库维护D）数据库管理员培训
9.有两个关系R，S如下：
R
S
A
B
C
A
B
a
3
2
a
3
b
0
1
b
0
c
2
1
c
2
由关系R通过运算得到关系S，则所使用的运算为__________
A）选择B）投影C）插入D）连接
10.将E-R图转换为关系模式时，实体和联系都可以表示为__________
A）属性B）键C）关系D）域
11.执行语句 Dim X, Y As Integer ，以下叙述正确的是__________
A）X和Y均被定义为整型变量
B）X和Y均被定义为变体类型变量
C）X被定义为整型变量，Y被定义为变体类型变量
D）X被定义为变体类型变量，Y被定义为整型变量
12.以下关系表达式中，其值为True的是__________
A）"XYZ">"XYz"B）"VisualBasic"<>"visualbasic"
C）"the"="there"D）"Integer"<"Int"
13.执行以下程序段
a$="Visual Basic Programming"
b$="C++"
c$=UCase（Left$（a$,7））&b$& Right$（a$,12）后，变量c$ 的值为__________
A）Visual Basic Programming B）VISUALC++ Programming
C）Visual C++ Programming D）VISUAL BASIC Programming
14.下列叙述中正确的是__________
A）MsgBox语句的返回值是一个整数
B）执行Msgbox语句并出现信息框后，不用关闭信息框即可执行其他操作
C）MsgBox语句的第一个参数不能省略
D）如果省略MsgBox语句的第三个参数（Title），则信息框的标题为空
15.在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数，以下可以实现实现上述操作的事件过程是__________
A）Private Sub Text1_Change（）
Label1.Caption = Str（Len（Text1.Text））
End Sub
B）Private Sub Text1_Click（）
Label1.Caption = Str（Len（Text1.Text））
End Sub
C）Private Sub Text1_Change（）
Label1.Caption = Text1.Text
End Sub
D）Private Sub Label1_Change（）
Label1.Caption = Str（Len（Text1.Text））
End Sub
16.在窗体上画两个单选按钮（名称分别为Option1、Option2，标题分别为“宋体”和“黑体”）、一个复选框（名称为Check1，标题为“粗体”）和一个文本框（名称为Text1，Text属性为“改变文字字体”），窗体外观如图所示。
程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是__________
A） Option1.Value = False
Check1.Value = True
B） Option1.Value = True
Check1.Value = 0
C） Option1.Value = True
Check1.Value = 2
D） Option1.Value = True
Check1.Value = 1
17.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（）
c = 1234
c1 = Trim（Str（c））
For i = 1 To 4
Print __________
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在横线上应填入的内容为__________
A）Right（c1,i） B）Left（c1,i）
C）Mid（c1,i,1） D） Mid（c1,i,i）
18.假定有以下程序段
Fori=1 To 3
For j=5 To 1 Step -1
Print i*j
Next j
Next i
则语句 Print i*j 的执行次数是__________
A）15 B）16 C）17 D）18
19.在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1）,然后编写如下事件过程：
PrivateSubCommand1_Click（）
x=0
DoWhilex<50
x=（x+2）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
EndSub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为__________
A）1和0 B）2和72 C）3和50 D）4和168
20.阅读程序：
PrivateSubCommand1_Click（）
a=0
Forj=1To15
a=a+jMod3
Nextj
Printa
EndSub
程序运行后，单击窗体，输出结果是__________
A）105 B）1 C）120 D）15
21.以下说法中正确是的__________
A）当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程
B）因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程
C）若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同
D）在KeyPress事件过程中，KeyAscii参数可以省略
22.语句 Dim a（-3 To 4,3 To 6）As Integer 定义的数组的元素个数是__________
A）18 B）28 C）21 D）32
23.在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
OptionBase1
PrivateSubCommand1_Click（）
Dima
a=Array（1,2,3,4）
j=1
Fori=4To1Step-1
s=s+a（i）*j
j=j*10
Nexti
Prints
EndSub
程序运行后，单击命令按钮后，其输出结果是
A）4321 B）1234 C）34 D）12
24.假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中有错误的
是__________
A）数组中每个命令按钮的名称（Name属性）均为Command1
B）若未做修改，数组中每个命令按钮的大小都一样
C）数组中各个按钮使用同一个Click事件过程
D）数组中每个命令按钮的Index属性值都相同
25.在窗体上面画一个命令按钮，名称为Command1，然后编写如下代码：
OptionBase0
PrivateSubCommand1_Click（）
DimA1（4）AsInteger,A2（4）AsInteger
Fork=0To2
A1（k+1）=InputBox（"请输入一个整数"）
A2（3-k）=A1（k+1）
Nextk
PrintA2（k）
EndSub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为__________
A）0 B）1 C）2 D）3
26.以下关于函数过程的叙述中，正确的是__________
A）函数过程形参的类型与函数返回值的类型没有关系
B）在函数过程中，过程的返回值可以有多个
C）当数组作为函数过程的参数时，既能按值方式传递，也能按地址方式传递
D）如果不指明函数过程参数的类型，则该参数没有数据类型
27.在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：
PrivateSubfunc（LAsLabel）
L.Caption="1234"
a=a*a
EndSub
PrivateSubForm_Load（）
Label1.Caption="ABCD"
Label2.Caption=10
EndSub
PrivateSubCommand1_Click（）
a=Val（Label2.Caption）
Callfunc（Label1）
Label2.Caption=a
EndSub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为__________
A）ABCD和10 B）1234和100
C）ABCD和100 D）1234和10
28.在窗体上画一个命令按钮（名称为Command1），并编写如下代码：
FunctionFun1（ByValaAsInteger,bAsInteger）AsInteger
DimtAsInteger
t=a-b
b=t+a
Fun1=t+b
EndFunction
PrivateSubCommand1_Click（）
DimxAsInteger
x=10
PrintFun1（Fun1（x,（Fun1（x,x-1）））,x-1）
EndSub
程序运行后，单击命令按钮，输出结果是__________
A）10 B）0 C）11 D）21
29.以下关于过程及过程参数的描述中，错误的是__________
A）过程的参数可以是控件名称
B）调用过程时使用的实参的个数应与过程形参的个数相同
C）只有函数过程能够将过程中处理的信息返回到调用程序中
D）窗体可以作为过程的参数
30.有如下通用过程：
PublicFunctionFun（xStrAsString）AsString
DimtStrAsString,strLAsInteger
tStr=""
strL=Len（xStr）
i=strL/2
DoWhilei<=strL
tStr=tStr&Mid（xStr,i+1,1）
i=i+1
Loop
Fun=tStr&tStr
EndFunction
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimS1AsString
S1="ABCDEF"
Text1.Text=LCase（Fun（S1））
EndSub
程序运行后，单击命令按钮，文本框中显示的是__________
A）ABCDEF B）abcdef C）defdef D）defabc
31.在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1），并把窗体的KeyPreview属性设置为True，然后编写如下代码：
DimSaveAllAsString
PrivateSubForm_Load（）
Show
Text1.Text=""
Text1.SetFocus
EndSub
PrivateSubCommand1_Click（）
Text1.Text=LCase（SaveAll）+SaveAll
EndSub
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
SaveAll=SaveAll+Chr（KeyAscii）
EndSub
程序运行后，直接用键盘输入：
VB，再单击命令按钮，则文本框中显示的内容
为__________
A）vbVB B）不显示任何信息 C）VB D）出错
32.设有以下程序：
PrivateSubForm_Click（）
x=50
Fori=1To4
Y=InputBox（"请输入一个整数"）
Y=Val（Y）
IfYMod5=0Then
a=a+Y
x=Y
Else
a=a+x
EndIf
Nexti
Printa
EndSub
程序运行后，单击窗体，在输入对话框中依次输入15、24、35、46，输出结果为________
A）100 B）50 C）120 D）70
33.以下关于菜单的叙述中，错误的是__________
A）当前窗体为活动窗体时，用Ctrl+E键可以打开菜单编辑器
B）把菜单项的Enabled属性设置为False，则可删除该菜单项
C）弹出式菜单在菜单编辑器中设计
D）程序运行时，利用控件数组可以实现菜单项的增加或减少
34.以下叙述中错误的是__________
A）在程序运行时，通用对话框控件是不可见的
B）调用同一个通用对话框控件的不同方法（如ShowOpen 或ShowSave）可以打开不同的对话框
C）调用通用对话框控件的ShowOpen方法，能够直接打开在该通用对话框中指定的文件
D）调用通用对话框控件的ShowColor方法，可以打开颜色对话框
35.设在工程文件中有一个标准模块，其中定义了如下记录类型：
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。
下列能够完成该操作的事件过程
是__________
A）PrivateSubCommand1_Click（）
DimBAsBooks
Open"Person.txt"ForOutputAs#1
B.Name=InputBox（"输入姓名"）
B.TelNum=InputBox（"输入电话号码"）
Write#1,B.Name,B.TelNum
Close#1
EndSub
B）PrivateSubCommand1_Click（）
DimBAsBooks
Open"Person.txt"ForInputAs#1
B.Name=InputBox（"输入姓名"）
B.TelNum=InputBox（"输入电话号码"）
Print#1,B.Name,B.TelNum
Close#1
EndSub
C）PrivateSubCommand1_Click（）
DimBAsBooks
Open"Person.txt"ForOutputAs#1
B.Name=InputBox（"输入姓名"）
B.TelNum=InputBox（"输入电话号码"）
Write#1,B
Close#1
EndSub
D）PrivateSubCommand1_Click（）
Open"Person.txt"ForInputAs#1
Name=InputBox（"输入姓名"）
TelNum=InputBox（"输入电话号码"）
Print#1,Name,TelNum
Close#1
EndSub
2填空题（每空2分，共30分）
1.假设用一个长度为50的数组（数组元素的下标从0到49）作为栈的存储空间，栈底指针bottom指向栈底元素，栈顶指针top指向栈顶元素，如果bottom=49，top=30（数组下标），则栈中具有【1】个元素。
2.软件测试可分为白盒测试和黑盒测试。
基本路径测试属于【2】测试。
3.符合结构化原则的三种基本控制结构是：
选择结构、循环结构和【3】。
4.数据库系统的核心是【4】。
5.在E-R图中，图形包括矩形框、菱形框、椭圆框。
其中表示实体联系的是【5】框。
6.窗体如图所示，其中汽车是名称为Image1的图像框，命令按钮的名称为Command1，计时器的名称为Timer1，直线的名称为Line1。
程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。
请填空完成下面的属性设置和程序，以便实现上述功能。
1） Timer1的Interval属性的值应事先设置为【6】
2） Private Sub Command1_Click（）
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer（）
If Image1.Left>=【7】Then
Image1.Left=【8】-100
End If
End Sub
7.设窗体上有一个名称为Combo1的组合框，并有以下程序：
PrivateSubCombo1_KeyPress（KeyAsciiAsInteger）
If【9】=13Then'回车符的ASCII码是13
Fork=0ToCombo1.ListCount-1
IfCombo1.Text=Combo1.List（k）Then
Combo1.Text=""
ExitFor
EndIf
Nextk
IfCombo1.Text<>""Then
Combo1.AddItem【10】
EndIf
EndIf
EndSub
程序的功能是：
在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部，
请填空。
8.在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。
下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的Ascii码之和，并显示在窗体上，请填空。
PrivateSubCommand1_Click（）
Dimch$,asciiAsInteger
Open"myfile.txt"For【11】As#1
WhileNotEOF
（1）
LineInput#1,ch
ascii=toascii（【12】）
Printascii
Wend
Close#1
EndSub
PrivateFunctiontoascii（mystr$）AsInteger
n=0
Fork=1To【13】
n=n+Asc（Mid（mystr,k,1））
Nextk
toascii=n
EndFunction
9.本程序实现文本加密。
先给定序列：
a1、a2、……、an，它们的取值范围是1～n，且互不相同。
加密算法是：
把原文本中第k个字符放到加密后的文本的第ak个位置处。
若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”使文本长度为n后再加密。
例如：
若给定序列a1、a2、……、a7分别为2，5，3，7，6，1，4
当文本为“PROGRAM”时，加密后的文本为“APOMRRG”
当文本为“PROGRAMMING”，加密后的文本为“APOMRRGMING”
当文本为“THANK”时，加密后的文本为“*TA*HKN”
下面的过程code实现这一算法。
其中参数数组a（）中存放给定序列（个数与数组a的元素个数相等）a1、a2、……、an的值，要加密的文本放在参数变量mystr中。
过程执行完毕，加密后的文本仍放在变量mystr中，请填空。
OptionBase1
PrivateSubcode（a（）AsInteger,mystrAsString）
DimchAsString,clAsString
n=UBound（a）-Len（my
升级会员 