A.1B.-1C.TrueD.False
5.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
a$=″VisuaLBasic″
PrintString（3,a$）
EndSub
程序运行后，单击命令按钮，在窗体上显示的内容是（）
A.VVVB.VisC.sicD.11
6.设有如下程序段：
x=2
Fori=1To10Step2
x=x+i
Next
运行以上程序后，x的值是（）
A.26B.27C.38D.57
7.以下叙述中错误的是（）
A.在KeyPress事件过程中不能识别键盘的按下与释放
B.在KeyPress事件过程中不能识别回车键
C.在KeyDown和KeyUp事件过程中，将键盘输入的“A”和“a”视作相同的字母
D.在KeyDown和KeyUp事件过程中，从大键盘上输入的“1”和从右侧小键盘上输
入的“1”被视作不同的字符
8.执行如下两条语句后，窗体上显示的是（）
a=9.8596
PrintFormat（a,″$00,00.00″）
A.0,009.86B.$9.86C.9.86D.$0,009.86
9.在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。
然后编写如下事件过程：
PrivateSubCommand1_Click（）
CommonDialog1.FileName=″″
CommonDialog1.Filter=″Allfile｜*.*｜（*.Doc）｜*.Doc｜（*.Txt）｜*.Txt″
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle=″VBTest″
CommonDialog1.Action=1
EndSub
对于这个程序，以下叙述中错误的是（）
A.该对话框被设置为“打开”对话框
B.在该对话框中指定的默认文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件（*.Txt）
10.设一个工程由两个窗体组成，其名称分别为Form1和Form2,在Form1上有一个名称为Command1的命令按钮。
窗体Form1的程序代码如下：
PrivateSubCommand1_Click（）
DimaAsInteger
a=10
Callg（Form2,a）
EndSub
PrivateSubg（fAsForm,xAsInteger）
y=IIf（x>10,100,-100）
f.Show
f.Caption=y
EndSub
运行以上程序，正确的结果是（）
A.Form1的Caption属性值为100
B.Form2的Caption属性值为-100
C.Form1的Caption属性值为-100
D.Form2的Caption属性值为100
11.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：
PrivateSubCommand1_Click（）
DimxAsInteger
StaticyAsInteger
x=10
y=5
Callf1（x,y）
Printx,y
EndSub
PrivateSubf1（ByRefx1AsInteger,y1AsInteger）
x1=x1+2
y1+y1+2
EndSub
程序运行后，单击命令按钮，在窗体上显示的内容是（）
A.105B.125C.107D.127
12.设有如下程序：
OptionBase1
PrivateSubCommand1_Click（）
Dima（10）AsInteger
DimnAsInteger
n=InputBox（″输入数据″）
Ifn<10Then
CallGetArray（a,n）
EndIf
EndSub
PrivateSubGetArray（b0AsInteger,nAsInteger）
Dimc（10）AsInteger
j=0
Fori=1Ton
b（i）=CInt（Rnd0*100）
Ifb（i）/2=b（i）＼2Then
j=j+1
c（j）=b（i）
EndIf
Next
Printj
EndSub
以下叙述中错误的是（）
A.数组b中的偶数被保存在数组c中
B.程序运行结束时，在窗体上显示的是c数组中元素的个数
C.GetArray过程的参数n是按值传送的
D.如果输入的数据大于10，则窗体上不显示任何信息
13.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
OptionBase1
PrivateSubCommand1_Click（）
Dima
a=Array（1,2,3,4,5）
Fori=1ToUBound（a）
a（i）=a（i）+i-1
Next
Printa（3）
EndSub
程序运行后，单击命令按钮，则在窗体上显示的内容是（）
A.4B.5C.6D.7
14.阅读程序：
OptionBase1
PrivateSubForm_Click（）
Dimarr,Sum
Sum=0
arr=Array（1,3,5,7,9,11,13,15,17,19）
Fori=1To10
Ifarr（i）/3=arr（i）＼3Then
Sum=Sum+arr（i）
EndIf
Enxti
PrintSum
EndSub
程序运行后，单击窗体，输出结果为（）
A.13B.14C.27D.15
15.在窗体上画一个名称为File1的文件列表框，并编写如下程序：
PrivateSubFile1_DblClick（）
x=Shell（File1.FileName,1）
EndSub
以下关于该程序的叙述中，错误的是（）
A.x没有实际作用，因此可以将该语句写为：
CallShell（File1.FileName,1）
B.双击文件列表框中的文件，将触发该事件过程
C.要执行的文件的名字通过File1.FileName指定
D.File1中显示的是当前驱动器、当前目录下的文件
16.在窗体上画1个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
a=0
Fori=1To2
Forj=1To4
IfjMod2<>0Then
a=a-1
EndIf
a=a+1
Nextj
Nexti
Printa
EndSub
程序运行后，单击命令按钮，输出结果是（）
A.0B.2
C.3D.4
17.执行以下程序段
a$=″abbacddcba″
Fori=6To2Step-2
X=Mid（a,i,i）
Y=Left（a,i）
z=Right（a,i）
z=UCase（X&Y&z）
Nexti
Printz
输出结果为（）
A.ABAB.BBABBA
C.ABBABAD.AABAAB
18.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
OptionBase1
PrivateSubCommand1_Click（）
DimaAsVariant
a=Array（1,2,3,4,5）
Sum=0
Fori=1To5
Sum=Sum+a（i）
Nexti
x=Sum/5
Fori=1To5
Ifa（i）>xThenPrinta（i）;
Nexti
EndSub
程序运行后，单击命令按钮，在窗体上显示的内容是（）
A.12B.123C.345D.45
19.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Mode12组成。
Model1代码如下：
PublicxAsInteger
PublicyAsInteger
SubS1（）
x=1
S2
EndSub
SubS2（）
y=10
Form1.Show
EndSub
Model2的代码如下：
SubMain（）
S1
EndSub
其中SubMain被设置为启动过程。
程序运行后，各模块的执行顺序是（）
A.Form1→Model1→Model2
B.Model1→Model2→Form1
C.Model2→Model1→Form1
D.Model2→Form1→Model1
20.数据的存储结构是指（）
A.存储在外存中的数据B.数据所占的存储空间量
C.数据在计算机中的顺序存储方式D.数据的逻辑结构在计算机中的表示
21.下列关于栈的描述中错误的是（）
A.栈是先进后出的线性表
B.栈只能顺序存储
C.栈具有记忆作用
D.对栈的插入与删除操作中，不需要改变栈底指针
22.对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（）
A.冒泡排序为n/2
B.冒泡排序为n
C.快速排序为n
D.快速排序为n（n-1）/2
23.对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为（）
A.log2nB.n/2C.nD.n+1
24.下列对于线性链表的描述中正确的是（）
A.存储空间不一定是连续，且各元素的存储顺序是任意的
B.存储空间不一定是连续，且前件元素一定存储在后件元素的前面
C.存储空间必须连续，且前件元素一定存储在后件元素的前面
D.存储空间必须连续，且各元素的存储顺序是任意的
25.下列对于软件测试的描述中正确的是（）
A.软件测试的目的是证明程序是否正确
B.软件测试的目的是使程序运行结果正确
C.软件测试的目的是尽可能多地发现程序中的错误
D.软件测试的目的是使程序符合结构化原则
26.为了使模块尽可能独立，要求（）
A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强
B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱
C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱
D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强
27.下列描述中正确的是（）
A.程序就是软件
B.软件开发不受计算机系统的限制
C.软件既是逻辑实体，又是物理实体
D.软件是程序、数据与相关文档的集合
28.数据独立性是数据库技术的重要特点之一。
所谓数据独立性是指（）
A.数据与程序独立存放
B.不同的数据被存放在不同的文件中
C.不同的数据只能被对应的应用程序所使用
D.以上三种说法都不对
29.用树形结构表示实体之间联系的模型是（）
A.关系模型
B.网状模型
C.层次模型
D.以上三个都是
30.在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。
程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。
以下能实现上述操作的事件过程是（）
A.PrivateSubText1_Change（）
Command1.Caption=″计算机等级考试″
EndSub
B.PrivateSubCommand1_Click（）
Caption=″计算机等级考试″
EndSub
C.PrivateSubForm1_Click（）
Text1.Caption=″计算机等级考试″
EndSub
D.PrivateSubCommand1_Click（）
Text1.Text=″计算机等级考试″
EndSub
31.设a=5,b=4,c=3,d=2，下列表达式的值是（）
3>2*bOra=cAndb<>cOrc>d
A.1B.True
C.FalseD.2
32.设a=″MicrosoftVisualBasic″，则以下使变量b的值为″VisualBasic″的语句是（）
A.b=Left（a,10）B.b=Mid（a,10）
C.b=Right（a,10）D.b=Mid（a,11,10）
33.假定有如下的窗体事件过程：
PrivateSubForm_Click（）
a＄=″MicrosoftVisualBasic″
b＄=Right（a＄,5）
c＄=Mid（a＄,1,9）
MsgBoxa＄,34,b＄,c＄,5）
EndSub
程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（）
A.MicrosoftVisualB.Microsoft
C.BasicD.5
34.设a=″a″,b=″b″,c=″c″,d=″d″,执行语句x=IIf（（ad）,″A″,″B″）后,x的值为（）
A.″a″B.″b″
C.″B″D.″A″
35.为了使命令按钮（名称为Command1）右移200，应使用的语句是（）
A.Command1.Move-200
B.Command1.Move200
C.Command1.Left=Command1.Left+200
D.Command1.Left=Command1.Left-200
1.设有如下程序段：
a$=″BeijingShanghai″
b$=Mid（a$,InStr（a$,″g″）+1）
执行上面的程序段后，变量b$的值为__【1】__。
2.以下程序段的输出结果是__【2】__。
num=0
Whilenum<=2
num=num+1
Wend
Printnum
3.某二叉树中度为2的结点有18个，则该二叉树中有__【1】__个叶子结点。
4.在面向对象方法中，类的实例称为__【2】__。
5.诊断和改正程序中错误的工作通常称为__【3】__。
6.在关系数据库中，把数据表示成二维表，每一个二维表称为__【4】__。
7.问题处理方案的正确而完整的描述称为__【5】__。
8.以下语句的输出结果是__【6】__。
PrintInt（12345.6789*100+0.5）/100
9.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
PrivateSubFrom_Click（）
Text1.Text=″VB程序设计″
EndSub
PrivateSubText1_Change（）
Picture1.Print″VBProgramming″
EndSub
程序运行后，单击窗体，则在文本框中显示的内容是__【7】__，而在图片框中显示的内容是__【8】__。
10.阅读下面的程序：
PrivateSubForm_Click（）
DimCheckAsBoolean,CounterAsInteger
Check=True
Counter=5
Do
DoWhileCounter<20
Counter=Counter+1
IfCounter=10Then
Check=False
ExitDo
EndIf
Loop
LoopUntilCheck=False
PrintCounter
EndSub
程序运行后，单击窗体，输出结果为__【9】__。
11.设有如下程序：
PrivateSubForm_Click（）
DimaAsInteger,sAsInteger
n=8
s=0
Do
s=s+n
n=n-1
LoopWhilen>0
Prints
EndSub
以上程序的功能是__【10】__。
程序运行后，单击窗体，输出结果为__【11】__。
12.设有如下程序：
OptionBase1
PrivateSubCommand1_Click（）
Dimarr1
DimMinAsInteger,iAsInteger
arr1=Array（12,435,76,-24,78,54,866,43）
Min=__【12】__
Fori=2To8
Ifarr1（i）Nexti
Print″最小值是：
″;Min
EndSub
以上程序的功能是：
用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。
请填空。
13.在名称为Form1的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
PrivateSubForm_Click（）
Open″d:
＼test＼smtext1.txt″ForInputAs#1
DoWhileNot__【14】__
LineInput#1,aspect＄
whole＄=whole＄+aspect＄+Chr＄（13）+Chr＄（10）
Loop
Text1.Text=whole＄
Close#1
Open″d:
＼test＼smtext2.txt″ForOutputAs#1
Print#1,__【15】__
Close#1
EndSub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。
请填空。
1-10ACBDABBDDB
11-20DCBCADBDCD
21-30BDCACBDDCA
31-35BBCDC
__1__Shanghai
_2__3
__1__19
__2__对象
__3__程序调试
____关系
__5__算法
__6__11345.68
_7__VB程序设计__8__VBProgramming
__9__10
_10__计算1到8的和。
__11__输出结果为36
__12__arr1（0）__13__Min=arr1（i）
__14__EOF
（1）__15__Text1.Text
1.在窗体上画一个文本框，然后编写如下事件过程：
PrivateSubForm_Click（）
x=InputBox（″请输入一个整数″）
Printx+Text1.Text
EndSub
程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容为（）
A.123B.456
C.579D.123456
2.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗中把计时器的Interval属性设置为100，Enabled属性设置为False。
程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。
以下是实现上述操作的程序：
PrivateSubCommand1_Click（）
Timer1.____
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Time
EndSub
在____处应填入的内容是（）
A.Enabled=TrueB.Enabled=False
C.Visible=TrueD.Visible=False
3.假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（）
A.选择图片框，然后按Del键
B.执行语句Picture1.Picture=LoadPicture（″″）
C.执行语句Picture1.Picture=″″
D.选择图片框，在属性窗口中选择Picture属性条，然后按回车键
4.在窗体上画一个名称为List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目。
当单击列表框中的某个项目时，在标签中显示被选中项目的名称。
下列能正确实现上述操作的程序是（）
A.PrivateSubList1_Click（）
Label1.Caption=List1.ListIndex
EndSub
B.PrivateSubList1_Click（）
Label1.Name=List1.ListIndex
EndSub
C.PrivateSubList1_Click（）
Label1.Name=List1.Text
EndSub
D.PrivateSubList1_Click（）
Label1.Caption=List1.Text
EndSub
5.在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimiAsInteger,xAsInteger
Fori=1To6
Ifi=1Thenx=i
Ifi<=4Then
x=x+1
Else
x=x+2
EndIf
Nexti
Printx
EndSub
升级会员 