A=-1
PrintA
PrintA
考生答案:
正确答案:
C
（24）下列程序段的执行结果为
a=2
b=0
SelectCasea
Case1
SelectCaseb
Case0
Print"**0**"
Case1
Print"**1**"
EndSelect
Case2
Print"**2**"
EndSelect
A）**0**
B）**1**
C）**2**
D）0
正确答案:
C
（25）在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分虽为Label1、Label2，标题分别为空白和"共有文件"的标签。
编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。
如图所示。
能够正确实现上述功能的程序是
A）PrivateSubDir1_Change（）
File1.Path=Dir1.Path
EndSub
PrivateSubDive1_Change（）
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
EndSub
B）PrivateSubDir1_Change（）
File.Path=Dir1.Path
EndSub
PrivateSubDive1_Change（）
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
EndSub
C）PrivateSubDir1_Change（）
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
EndSub
PrivateSubDrive1_Change（）
Dir1.Path=Drive1.Drive
Label1.Caption=File1.ListCount
EndSub
（D）PrivateSubDir1_Change（）
File1.Path=Dir1.Path
Label1.Caption=File1.ListCount
EndSub
PrivateSubDive1_Change（）
Dir1.Path=Drive1.Drive
Label1.Caption=File1.List
EndSub
正确答案:
C
（26）设有声明语句
OptionBase1
Dimb（-1To10,2To9,20）AsInteger
则数组b中全部元素的个数
A）2310
B）1920
C）1500
D）1658
正确答案:
B
（27）单击命令按钮，下列事件过程的执行结果为
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=40:
y=72
CallPtoP（x,y）
Printx;y
EndSub
PublicSubPtoP（ByvalnAsInteger,ByValmAsInteger）
n=n＼10+2
m=m＼10+2
EndSub
A）0 8
B）40 72
C）4 50
D）78 50
正确答案:
B
（28）下列程序的执行结果为
PrivateSubCommand1_Click（）
DimpAsInteger,qAsInteger
p=12:
q=20
CallValue（p,q）
Printp;q
EndSub
PrivateSubValue（ByValmAsInteger,ByValnAsInteger）
m=m*2:
n=n-5
Printm;n
EndSub
A）20 12
20 15
B）12 20
12 25
C）24 15
12 20
D）24 12
12 15
考生答案:
正确答案:
C
（29）在窗体上画一个命令按钮，然后编写如下程序：
PrivateSubCommand3_Click（）
Cop2
Cop3
Cop4
EndSub
SubCop（aAsInteger）
StaticxAsInteger
x=x+a
Printx;
EndSub
程序运行后，单击命令按钮，输出结果为
A）234
B）259
C）354
D）243
正确答案:
B
（30）有如下事件过程，单击命令按钮扣，输出结果为
PrivateSubCommand1_Click（）
Dimb%（1To4）,j%,t#
Forj=1To4
b（j）=j
Nextj
t=Tax（b（））
Print"t=";t,
EndSub
FunctionTax（a（）AsInteger）
Dimt#,i%
t=1
Fori=2ToUBound（A）
t=t*a（i）
Nexti
Tax=t
EndFunction
A）t＝18
B）t＝24
C）t＝30
D）t＝32
正确答案:
B
（31）设在窗体上有一个文本框，然后编写如下的事件过程：
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）不发生变化
正确答案:
D
（32）设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是
A）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
IfButton=2ThenPopupMenuBt,2
EndSub
B）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
PopupMenuBt
EndSub
C）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
PopupMenuBt,0
EndSub
D）PrivateSubForm_MouseDown（ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle）
If（Button=vbLeftButton）Or（Button=vbRightButton）ThenPopupMenuBt
EndSub
正确答案:
A
（33）在窗体上画一个通用对话框，其Name属性为Cont，再画一个命令按钮，Name属性为Command1，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Cont.FileName=""
Cont.Flags=vbOFNFileMustExist
Cont.Filter="AllFiles|*.*"
Cont.FilterIndex=3
Cont.DialogTitle="OpenFile"
Cont.Action=1
IfCont.FileName=""Then
MsgBox"Nofileselected"
Else
OpenCont.FileNameForInputAs#1
DoWhileNotEOF
（1）
Input#1,b$
Printb$
Loop
EndIf
EndSub
以下各选项，对上述事件过程描述错误的是
A）该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件
B）选择后单击"打开"按钮，所选择的文件名即作为对话框的FileName属性值
C）Open对话框不仅仅用来选择一个文件，还可以打开、显示文件
D）过程中的"Cont.Action=1"用来建立Open对话框，它与Cont.ShowOpen等价
正确答案:
C
（34）已知使用Show方法的格式为：
［窗体名称］.Show［模式］，如果要使窗体是"模态型"窗体，则"模式"值为
A）True
B）0
C）1
D）False
正确答案:
C
（35）下面叙述不正确的是
A）对顺序文件中的数据操作只能按一定的顺序操作
B）顺序文件结构简单
C）能同时对顺序文件进行读写操作
D）顺序文件中只能知道第一个记录的位置
正确答案:
C
二、填空题
（1）当线性表采用顺序存储结构实现存储时，其主要特点是【1】。
正确答案:
1.（逻辑结构中相邻的结点在存储结构中仍相邻）
（2）软件工程的出现是由于【2】。
正确答案:
1.（软件危机的出现）
（3）单元测试又称模块测试，一般采用【3】测试。
正确答案:
1.（白盒法）
（4）数据库恢复是将数据库从【4】状态恢复到某一已知的正确状态。
正确答案:
1.（错误）
（5）数据的基本单位是【5】。
正确答案:
1.（数据元素）
（6）下列语句的输出结果是【6】。
PrintFormat$（6658.6,"000,000.00"）
正确答案:
1.（006,658.60）
（7）如果在D盘当前文件夹下已经存在名为PIC.dat的顺序文件，那么执行语句Open"D:
＼PIC.dat"ForAppendAs#1之后将【7】。
正确答案:
1.（在文件尾添加新内容）
（8）在有下面一个程序段从文本框中输入数据，如果该数据满足条件，除以6余2，除以5余3，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
PrivateSubCommand1_Click（）
num=Val（Text1.Text）
If【8】Then
Printnum
Else
Text1.Text=""
【9】
EndIf
EndSub
正确答案:
1.（numMod6=2AndnumMod5=3）2.（Text1.SetFocus）
（9）下面的程序的作用是利用随机函数产生10个100~300（不包含300）之间的随机整数，打印其中7的倍数的数，并求它们的总和，请填空。
SubTOF（）
Randomize
DimsAsDouble
Dima（10）AsInteger
Fori=0To9
【10】
Next
Fori=0To9
If【11】Then
Printa（i）
s=s+a（i）
【12】
Nexti
Print
Print"S=";s
EndSub
正确答案:
1.（a（i）=Int（Rnd*200+100））2.（a（i）Mod7=0）3.（EndIf）
（10）下面的程序是计算给定函数的值，自变量x，y的值用InputBox函数输入，函数如下：
f（x,y）=
程序不完整，请填空，将程序的补充完整。
OptionExplicit
DimxAsSingle
DimyAsSingle
DimzAsSingle
PrivateSubCommand1_Click（）
x=Val（InputBox（"x="））
y=Val（InputBox（"y="））
EndSub
PrivateSubCommand2_Click（）
If【13】Then
z=x^2+y^2
ElseIf【14】Then
z=x^2-2*y^2
【15】
z=y^2-3*x^2
EndIf
Form1.Print"当x，y的值为：
";x,y
Form1.Print"f（x,y）的值为：
";z
EndSub
正确答案:
1.（x>0Andy>0）2.（x<0Andy>0）3.（Else）
升级会员 