计算机vb考试题库.docx
《计算机vb考试题库.docx》由会员分享，可在线阅读，更多相关《计算机vb考试题库.docx（18页珍藏版）》请在冰豆网上搜索。
计算机vb考试题库
计算机vb考试题库
一、选择题
1、任何控件都有的属性是（）。
A.BackColor
B.Caption
C.Name
D.BorderStyle
2、设计数据库的存储结构属于（ ）
A.需求分析
B.概念设计
C.逻辑设计
D.物理设计
3、某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（ ）。
A.在工程属性对话框中把"启动对象"设置为Form2
B.在Forml的Load事件过程中加入语句LoadForm2
C.在Form2的Load事件过程中加入语句Form2.Show
D.把Form2的TabIndex属性设置为l，把Form1的TabIndex属性设置为2
4、设有如下通用过程：
PublicFunctionFun（xStrAsString）AsString
DimtStrAsString，strLAsInteger
tStF=""
strL=Len（xStr）
i=1DoWhilei<=strL/2
tStr=Tstr&Mid（xStr，i，1）&Mid（xStr，strL-i+1，1）
i=i+l
Loop
Fun=tStr
EndFunction
在窗体上画一个名称为Command1的命令按钮。
然后编写如下的事件过程：
PrivateSubCommandI_Click（）
DimS1AsString
S1="abedef"
PrimUCase（Fun（S1））
EndSub
程序运行后，单击命令按钮，输出结果是（ ）。
A.ABCDEF
B.abcdef
C.AFBECD
D.DEFABC
5、下列关于栈的描述正确的是（ ）。
A.在栈中只能插入元素而不能删除元素
B.在栈中只能删除元素而不能插入元素
C.栈是特殊的线性表，只能在一端插入或删除元素
D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素
6、下列程序段的运行结果是（ ）。
Subsele（ ）
DimnAsInteger
i=21：
n=3
DoWhilei>n
i=i-n
Loop
Printi
EndSub
A.2
B.4
C.5
D.3
7、复选框的Value属性为0时，表示该复选框（ ）。
A.未被选中
B.被选中
C.框内有灰色的勾
D.操作有误
8、在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。
程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。
下面能实现此功能的事件过程是（ ）。
A.PrivateSubCheck1_Click（IndexAsInteger）
Text1.Text=""
Fork=0To3
IfCheck1（k）.value=1Then
Text1.Text=Text1.Text&Check1（k）.Caption&""双引号中是空格EndIfNextk
EndSub
B.PrivateSubCheck1_Click（IndexAsInteger）
Fork=0To3
IfCheck1（k）.Value=1Then
Text1.Text=Text1.Text&Check1（k）.Caption&""双引号中是空格
EndIf
Nextk
EndSub
C.PrivateSubCheck1_Click（IndexAsInteger）
Text1.Text=""Fork=0To3IfCheck1（k）.Value=1Then
Text1.Text=Text1.Text&Check1（Index）.Caption&""双引号中是空格
EndIf
Nextk
EndSub
D.PrivateSubCheck1_Click（IndexAsInteger）
Text1.Text=""Fork=0To3
IfCheck1（k）.Value=1Then
Text1.Text=Text1.Text&Check1（k）.Caption&""双引号中是空格
ExitFor
EndIf
Nextk
EndSub
9、在窗体上添加一个命令按钮，名为Command1，其单击事件中有下列程序段，则事件过程执行后，文本框中输出
（ ）。
Fori=1To4
Forj=1To3
x=3
Fork=1To2
x=x+3
Nextk
Nextj
Nexti
Textl.Text=Str（x）
A.3
B.6
C.9
D.12
10、下列关于Sub过程的叙述正确的是（ ）。
A.一个Sub过程必须有一个ExitSub语句
B.一个Sub过程必须有一个EndSub语句
C.在Sub过程中可以定义一个Function过程
D.可以用Goto语句退出Sub过程
11、下列叙述中正确的是（）。
A.在窗体的Form_Load事件过程中定义的变量是全局变量
B.局部变量的作用域可以超出所定义的过程
C.在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程
D.在调用过程时，所有局部变量被系统初始化为0或空字符串
12、编写如下两个事件过程：
PrivateSubForm_KeyDown（KeyCodeAsInteger，ShiftAsInteger）
PrintChr（KeyCode）
EndSub
PrivateSubForm_KeyPress（KeyAsciiAsInteger）
PrintChr（KeyAscii）
EndSub
在一般情况下（即不按住Shift键也未锁定大写键时）运行程序，如果按键盘上的"A"键，则程序输出的结果是（ ）。
A.A
a
B.a
A
C.A
A
D.a
a
13、在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：
OptionBase0
PrivateSubCommand1_Click（）
DimA1（4）AsInteger，A2（4）AsInteger
Fork=0To2
A1（k+1）=InputBox（"请输入一个整数"）
A2（3-k）=A1（k+1）
NextkPrintA2（k）
EndSub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（ ）。
A.0
B.1
C.2
D.3
14、下面语句正确的是（ ）。
A.Ifx<3*yand=""x="">yTheny=x^3
B.Ifx<3*yand=""x="">yTheny=3x
C.Ifx<3*yx="">yTheny=x^3
D.Ifx<3*yand=""x="">yTheny=x**3
15、下面程序的输出结果是（ ）。
PrivateSubCommand1_Click（）
Ch$="ABCDEF"
procch：
Printch
EndSub
PrivateSubproc（chAsString）
s=""
Fork=Len（ch）To1Step-1
s=s&Mid（ch，k，1）
Nextk
ch=s
EndSub
A.ABCDEF
B.FEDCBA
C.A
D.F
16、语句Dima（-3To4，3To6）AsInteger定义的数组元素个数是（ ）。
A.18
B.28
C.21
D.32
17、以下叙述中错误的是（ ）。
A.一个工程中只能有一个SubMain过程
B.窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体
C.窗体的Hide方法和Unload方法的作用完全相同
D.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体
18、在窗体上先后画2个图片框，名称分别为Picture1和banana，banana中添加了香蕉图片，如图1所示，且将banana.DragMode属性设置为1。
要求程序运行时，可以用鼠标把banana拖拽到Picture1中，如图2所示。
能实现此功能的事件过程是（ ）。
A.PrivateSubForm_DragDrop（SourceAsControl，XAsSingle，YAsSingle）
banana.MovePicture1.Left+X，Picture1.Top+Y
EndSub
B.PrivateSubbanana_DragDrop（SourceAsControl，XAsSingle，YAsSingle）
Source.MovePicture1.Left+X，Picture1.Top+Y
EndSub
C.PrivateSubPicture1_DragDrop（SourceAsControl，XAsSingle，YAsSingle）
Source.MovePicture1.Left+X，Picture1.Top+Y
EndSub
D.PrivateSubPicture1_DragDrop（SourceAsControl，XAsSingle，YAsSingle）
banana.Movebanana.Left+X，banana.Top+Y
EndSub
19、用Print方法在Forml窗体中显示出4个#号的正确代码为（ ）。
A.Debug.Print"####"
B.Print"####"
C.Forml-Print"####"
D.Forml.Print"####"
20、一个模块内部各个元素彼此结合的紧密程度的度量称为（ ）
A.耦合性
B.内聚性
C.复杂性
D.数据传输特性
21、函数值和余弦函数值，角度为1，2，3，…，90。
请在空白处填入适当的内容，将程序补充完整。
PrivateTypeAng
KAsInteger
SinxAsSingle
CosxAsSingle
EndType
PrivateSubForm_Click（）
DimYAsSingle
DimiAsInteger
DimKscAsAng
Open____________
Y=3.14159/180
Fori=1To90
Ksc.K=i
Ksc.Sinx=Sin（i*Y）
Ksc.Cosx=Cos（i+Y）
________
Nexti
Close#2
ElldStub
A."..Datal.txt"ForRandomAs#1Len=10Put#1，i，Ksc
B."..Datal.txt"ForRandomAs#1Len=10Put#1，Y，Ksc
C."..Datal.txt"ForRandomAs#1Put#1，i，Ksc
D."..Datal.txt"ForRandomAs#1Put#1，Y，Ksc
22、下列程序运行时输出的结果是（ ）。
OptionBase1
Consta=10
PrivateSubForm_Click0
Dimx（a）AsInteger
k=-1
Fori=1Toa
x（i）=i*k
k=（-1）*k
Nexti
Fori=1To10
Printx（i）
Nexti
EndSub
A.1357910
B.-1-3-5-7-9
C.-12-34-56-78-910
D.1-23-45-67-89-10
23、某人为计算n!
（O
PrivateFunctionfun（nAsInteger）AsLong
DimPAsLong
P=l
Fork=n-1To2Step-1
p=p*k
Nextk
fun=p
EndFunction
在调试时发现该函数过程产生的结果是错误的，程序需要修改。
下面的修改方案中有3种是正确的，错误的方案是（ ）。
A.把p=1改为p=11
B.把Fork=n-1To2Step-1改为Fork=1Ton-1
C.把Fork=n-1To2Step-1改为Fork=1Ton
D.把Fork--n-1To2Step-1改为Fork=2Ton
24、要设置窗体为固定对话框，并包含控制菜单栏和标题栏，但没有最大化和最小化按钮，设置的操作是（ ）。
A.设置BorderStyle的值为FixedToolWindow
B.设置BorderStyle的值为SizableToolWindow
C.设置BorderStyle的值为FixedDialog
D.设置BorderStyle的值为Sizable
25、设在窗体上有一个文本框，然后编写如下的事件过程：
PrivateSubText1_KeyDown（KeyCodeAsInteger，ShiftAsInteger）
ConstAlt=4
ConstKey_F2=&H71
altdown%=（ShiftAndAlt）>0
f2down%=（KeyCode=Key_F2）
Ifaltdown%Andf2down%Then
Text1.Text="abl"
EndIf
EndSub
程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是（）。
A.Alt+F2
B.abl
C.随机出几个数
D.不发生变化
26、在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1），然后编写下列事件过程：
PrivateSubCommand1_Click（）
x=0
DOWhilex<50
x=（x+2）*（x+3）
n=n+l
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
EndSub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
A.1和0
B.2和72
C.3和50
D.4和168
27、下列叙述中错误的是（ ）。
A.软件测试的目的是发现错误并改正错误
B.对被调试的程序进行"错误定位"是程序调试的必要步骤
C.程序调试通常也称为Debug
D.软件测试应严格执行测试计划，排除测试的随意性
28、一个工程必须包含的文件的类型是（）。
A.*.vbp*.frm*.frx
B.*.vbp*.cls*.bas
C.*.bas*.ocx*.res
D.*.frm*.cls*.bas
29、在文本框中输入字符时，通过（）事件过程可以得到字符的ASCII码值。
A.Change
B.GotFocus
C.KeyPress
D.LostFocus
30、在下列关系运算中，不改变关系表中的属性个数但能减少元组个数的是（ ）。
A.并
B.交
C.投影
D.笛卡儿乘积
31、有两个关系R，S如下：
由关系R通过运算得到关系S，则所使用的运算为（ ）。
A.选择
B.投影
C.插入
D.连接
32、一个栈的初始状态为空。
现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再一次出栈，则元素出栈的顺序是（ ）。
A.12345ABCDE
B.EDCBA54321
C.ABCDEl2345
D.54321EDCBA
33、在窗体上建立通用对话框需要添加的控件是（ ）。
A.Data控件
B.Form控件
C.CommonDialog控件
D.VBComboBox控件
34、在窗体上画2个命令按钮，名称分别为Command1、Command2，然后编写下列事件过程。
Constn=5，m=4
Dima（m，n）
PrivateSubCommand1_Click（）
k=1
Fori=1Tom
Forj=1Ton
a（i，j）=k
k=k+1
Nextj
Nexti
EndSub
PrivateSubCommand2_Click（）
summ=0
Fori=1Tom
Forj=1Ton
Ifi=1Ori=mThen
summ=summ+a（i，j）
Else
Ifj=1Orj=nThen
summ=summ+a（i，j）
EndIf
EndIf
Nextj
Nexti
Printsumm
EndSub
过程Command1_Click（）的作用是在二维数组a中存放1个m行n列的`矩阵;过程Command2_Click（）的作用是（ ）。
A.计算矩阵外围一圈元素的累加和
B.计算矩阵除外围一圈以外的所有元素的累加和
C.计算矩阵第1列和最后一列元素的累加和
D.计算矩阵第1行和最后一行元素的累加和
35、下列关于复选框的说法，正确的是（ ）。
A.复选框的Enabled属性用于决定该复选框是否可见
B.复选框的Value属性用于决定该复选框是否被选中
C.复选框的Tabindex属性用于决定该复选框在控件数组中的序号
D.复选框的Visible属性用于决定该复选框是否可用
36、按照"后进先出"原则组织数据的数据结构是（ ）。
A.队列
B.栈
C.双向链表
D.二叉树
37、当一个复选框被选中时，它的Value属性的值是（）。
A.3
B.2
C.1
D.0
38、已知在4行3列的全局数组score（4，3）中存放了4个学生3门课程的考试成绩（均为整数）。
现需要计算每个学生的总分，某人编写程序如下：
OptionBase1
PrivateSubCommand1_Click（ ）
DimsumAsInteger
Sum=0
Fori=1To4
Forj=1To3
Sum=sum+score（i，j）
Nextj
Print"第"&i&"个学生的总分是：
";sumNexti
EndSub
运行此程序时发现，除第1个人的总分计算正确外，其他人的总分是错误的。
程序需要修改。
以下修改方案中正确的是（ ）。
A.把外层循环语句Fori=1TO4改为Fori=1To3内层循环语句Forj=1TO3改为Forj=1TO4
B.把sum=0移到Fori=1TO4和Forj=1TO3之间
C.把sum=sum+score（i，j）改为sum=sum+score（j，i）
D.把sum=sum+score（i，j）改为sum=score（i，j）
39、设有数组定义语句：
Dima（5）AsInteger，List1为列表框控件。
下列给数组元素赋值的语句错误的是（ ）。
A.a（3）=3
B.a（3）=InputBox（"inputdata"）
C.a（3）=List1.ListIndex
D.a=Array（1，2，3，4，5，6）
40、下列（）标识符不能作为VisualBasic的变量名。
A.ABCabe
B.b1234
C.28wed
D.crud
升级会员 