学习VBWord文档格式.docx
《学习VBWord文档格式.docx》由会员分享，可在线阅读，更多相关《学习VBWord文档格式.docx（16页珍藏版）》请在冰豆网上搜索。
D．ABCDE，#02-02-2002#，E-2
8、在某过程中已说明变量a为Integer类型、变量s为String类型，过程中的以下四组语句中，不能正常执行的是 8 。
A．s＝2*a+IB．s＝"
237"
"
.11"
:
a＝s
C．s＝2*a>
3D．a＝2:
s＝16400*a
9、针对语句IfI=1ThenJ＝1，下列说法正确的是 9 。
A．I＝1和J＝1均为赋值语句
B．I＝1和J＝1均为关系表达式
C．I＝1为关系表达式，J＝1为赋值语句
D．I＝1为赋值语句，J＝1为关系表达式
10、设a为Integer型变量，s为Single变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示的结果与执行语句a＝s:
Text1=a的结果相同的有 10 个。
（1）a=Int（s）:
Text1=a
（2）a=Fix（s）:
Text1=a
（3）a=CInt（s）:
Text1=a（4）a=Format（s,“#####”）:
A.1B.2C.3D.4
11、运行下面程序，单击命令按钮Command1，则立即窗口上显示的结果是 11 。
PrivateSubCommand1_Click（）
DimAAsInteger,BAsBoolean,CAsInteger,DAsInteger
A=20/3:
B=True:
C=B:
D=A+C
Debug.PrintA,D,A=A+C
EndSub
A．76FalseB．6.65.5False
C．76A＝6D．78A=8
12、为菜单上访问键被显示成带下划线的字母，请在要作为访问键的字母前面键入一个 12 号。
A．"
-"
B．"
&
"
C．"
#"
D．"
+"
13、下列程序
s$="
abcdefabcdefabcdef"
k=InStr（s$,"
c"
）
DoWhilek>
0
n=n+1
s$=Mid（s$,k+1）
Loop
Printn
运行后输出结果是 13 。
A．1B．2C．3D．4
14、可用Print方法在PictureBox控件上显示文本信息，若想清除这些信息，可用的方法是 14 。
A．CloseB．RemoveC．ClearD．Cls
15、下面有关数组处理的叙述中，不正确的是 15 。
①在过程中用ReDim语句定义的动态数组，其下标的上下界可为赋了值的变量
②在过程中，可以使用Dim、Private和Static语句定义数组
③用ReDim语句重新定义动态数组时，不得改变该数组的数据类型
④可用Public语句在窗体模块的通用说明处定义一个全局数组
A．①②③④B．①③④C．①②③D．②④
16、窗体上有一个通用对话框控件CommonDialog1，有下列语句：
CommonDialog1.Action=ShowSave
其表示为 16 __。
A．显示“打开”对话框B．显示“另存为”对话框
C．显示“颜色”对话框D．显示“字体”对话框
17、在VB中，下列关于控件的属性或方法中，搭配错误的有有 17 个。
1）Timer1.Interval2）List1.Cls3）Text1.Print
4）List1.RemoveTtem5）Vscroll1.Value6）Picture1.Print
A.0B.1C.2D.3
18、用来指示是否能够使用TAB键来将焦点从一个对象移动到另一个对象的属性是 18 。
A．EnabledB．TopC．IndexD．TabStop
19、定义两个过程PrivateSub1（St（）AsString）和PrivateSub2（Ch（）AsString*6），在调用过程中用DimS（3）AsString*6，A（3）AsString定义了两个字符串数组。
下面调用语句中正确的有 19 。
①CallSub1（S）②CallSub1（A）③CallSub2（A）④CallSub2（S）
A．①②B．①③C．②③D．②④
20、在窗体上放置了DrivelistBox、DirListBox和FileListBox等三个控件，下面 20 语句一定不会改变相应控件的Path或Drive属性。
A.Drive1.ListIndex=2B.Dir1.ListIndex=-2
C.File1.FileName="
a:
\*.*"
D.File1.Path=Drive1.Drive
21、下面所列的控件中，其值既能在程序设计时设定，又能在程序运行时通过赋值改变的是 21 。
A.List1.ListCountB.Text1.IndexC.Dir1.PathD.Label1.Visible
22、下面有 22 语句，可以将列表框List1中的当前选定的列表项的值替换成“ABC”。
A.List1.AddItem"
ABC"
List1.ListIndex
B.List1.Text="
C.List1.List（List1.ListIndex）="
D.前三项均可
23、函数CInt（-3.5），Int（-3.5），Fix（-3.5）的值分别是有 23 。
A.-3,-4,-3B.-4,-4,-3C.-3,-4,-4D.-4,-3,-3
24、对于某对象的SetFocus和GotFocus描述正确的是有 24 。
A．SetFocus是方法，GotFocus事件
B．SetFocus是事件，GotFocus是事件
C．SetFocus是方法，GotFocus是方法
D．SetFocus是事件，GotFocus是方法
25、对正实数x的第四位小数四舍五入的VB表达式是有 25 。
A.0.001*Int（x+0.005）B.0.001*（1000*x+0.5）
C.0.001*Int（1000*x+5）D.0.001*Int（1000*（x+0.0005））
26、下列有关数组的说法中，不正确的是有 26 。
A.在窗体模块中不可以定义全局数组
B.可以使用Erase语句释放所有数组所占据的存储空间
C.语句DimX（3.6+2）AsInteger定义了一个维上界是6的一维的整形数组
D.形参数组的类型可以是定长字符串类型
27、以下不属于VisualBasic系统的文件类型是 27 。
A..frmB..batC..vbgD..vbp
28．下列程序
Dimx,y
PrivateSubForm_Click（）
x=1:
y=1:
z=1
fun1（x）
Printx;
y;
z
PrivateSubfun1（a）
x=a+x:
y=a+x:
z=a+y
运行后输出结果是 28 。
A．111B．231C．234D．221
29、下列说法正确的是 29 。
A．窗体文件的扩展名为.vbp
B．一个窗体对应一个窗体文件
C．VisualBasic中的一个工程只包含一个窗体
D．VisualBasic中一个工程最多可包含256个窗体文件
30、下列程序
a=3
t=InputBox（"
请输入一个整数"
SelectCaset
CaseIs>
b=a+1
CaseIs=0
b=a+2
CaseElse
b=a+5
EndSelect
Printa;
b
运行时，从键盘输入5，输出的结果是 30 。
A．15B．34C．11D．55
二、填空题（40分，每填空2分）
1、正确表示命题“A是一个带小数的正数，且B是一个带小数的负数”的逻辑表达式是 【1】 。
2、下列程序的功能是：
产生只有两位数的数组，然后用冒泡法对数组进行从小到大排序，请完善下列程序。
OptionBase1
PrivateSubForm_Click（）
Dimarr（10）AsInteger
Fori=1To10
arr（i）= 【2】
Nexti
Print"
原来数组：
Printarr（i）;
Print
Fori=1To9
Forj=i+1To10
If 【3】 Then
t=arr（i）
arr（i）=arr（j）
arr（j）=t
EndIf
Nextj
排序后数组：
3、运行下面的程序，当单击窗体时，窗体上第一行内容是 【4】 ，第三行内容是 【5】 ，第四行内容是 【6】 。
OptionExplicit
DimxAsInteger,yAsInteger
DimaAsInteger,bAsInteger
a=5:
b=3
Callsub1（a,b）
Printa,b
Printx,y
PrivateSubsub1（ByValmAsInteger,nAsInteger）
DimxAsInteger,yAsInteger
x=m+n:
y=m-n
m=fun1（x,y）
n=fun1（x,y）
PrivateFunctionfun1（aAsInteger,bAsInteger）AsInteger
x=a+b:
y=a–b
fun1=x+y
EndFunction
3、为了在TextBox控件中显示多行文本，要将 【7】 属性设置为True。
4、执行Command1_Click事件过程时，共输出 【8】 行数据，其中第三行输出结果为 【9】 。
dunno3
PublicFunctiondunno（MAsInteger）
DimvalueAsInteger
IfM=0Then
value=3
Else
value=dunno（M-1）+5
EndIf
dunno=value
PrintM,value
5、执行下面的程序，单击窗体，则在窗体上显示的第一行是 【10】 ，第二行是 【11】
Dima（3,3）AsInteger,iAsInteger,jAsInteger
Fori=1To3
Forj=1To3
a（i,j）=（i-1）*2+j
Nextj
Nexti
Fori=jTo3
Printa（j,i）;
Print
7、执行下面程序，单击命令按钮Command1后，窗体上显示的第一行内容是 【12】 ，第二行内容是 【13】 ，最后一行内容是 【14】 。
DimAAsInteger,BAsInteger,KAsInteger
A=2:
B=4
K=Fun（（A）,B）
K=Fun（A,B）
PrintK+B-A
PrivateFunctionFun（NAsInteger,MAsInteger）AsInteger
StaticKAsInteger
N=N+M
K=K+N
M=M+K
Fun=N+M
PrintFun;
N;
M
6、在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码：
DimKAsInteger
DimentryAsString,itemAsString
entry="
EDCBA"
ForK=Len（entry）To1Step-1
item=LCase（Mid（entry,K,1））&
K
List1.AddItemitem
NextK
运行此程序，单击窗体后在窗体的列表框中显示的第四个列表项内容是 【15】 。
7、将任意一个两位正整数N的个位数与十位数对换得到新数的VB表达式是 【16】 。
8、下列程序
PrivateSubform_Click（）
Dima（3,3）
a（i,j）=i*j
Sum=0
Forn=1To3
Form=nTo3
Sum=Sum+a（m,n）
Nextm
Nextn
PrintSum
运行时输出的结果是 【17】 。
9、下列VB6.0程序的功能是：
计算并输出1到200以内所有的素数且个位数是1的所有整数，请将程序补充完整。
DimiAsInteger
n=0
Fori=2To200
If 【18】 Then
Print"
满足条件的数和个数＝"
;
i,n
PrivateFunctionfun1（nAsInteger）AsBoolean
fun1=True
Fori=2ToSqr（n）
Ifn/i=Int（n/i）Then 【19】 :
ExitFor
10、有下列程序：
DimaAsInteger,bAsInteger
x=23:
y=2
t=fun1（x,y）
Printt
Functionfun1（ByValxAsInteger,ByValyAsInteger）AsInteger
DoWhiley<
>
t=x\y
x=y
y=t
fun1=x
程序执行后，变量t输出的结果是 【20】 。
班级：
学号：
姓名：
答题卡
一、选择题
题号
A
B
C
D
1、
2、
3、
4、
5、
6、
7、
8、
9、
10、
11、
12、
13、
14、
15、
16、
17、
18、
19、
20、
21、
22、
23、
24、
25、
26、
27、
28、
29、
30、
二、填空题
【1】
【11】
【2】
【12】
【3】
【13】
【4】
【14】
【5】
【15】
【6】
【16】
【7】
【17】
【8】
【18】
【9】
【19】
【10】
【20】
《VB程序设计》课程期末笔试试卷答案
1.B
2.C
3.B
4.B
5.D
6.B
7.A
8.D
9.C
10.B
11.A
12.B
13.C
14.D
15.D
16.B
17.C
18.D
19.D
20.B
21.D
22.C
23.B
24.A
25.D
26.B
27.B
28.B
29.B
30.B
【1】A>
0AndA<
Int（A）AndB<
0AndB<
Int（B）
【11】45
【2】Int（90*Rnd）+10
【12】16610
【3】arr（i）>
arr（j）
【13】401228
【4】106
【14】56
【5】516
【15】d2
【6】106
【16】Val（Right（CStr（N）,1）+Left（CStr（N）,1））
或（NMod10）*10+N\10
【7】MultiLine
【17】25
【8】四
【18】fun1（i）AndiMod10=1
【9】213
【19】fun1=False
【10】123
【20】11
升级会员 