VB期末考试试题AB卷文档格式.docx
《VB期末考试试题AB卷文档格式.docx》由会员分享，可在线阅读，更多相关《VB期末考试试题AB卷文档格式.docx（12页珍藏版）》请在冰豆网上搜索。
A、LeftB、WidthC、TopD、Height
2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（D）属性为False。
A、TxetB、EnabledC、VisibleD、Multline
3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（C）的事件。
A、KeyPressB、KeyDownC、ClickD、Keyllp
4.一下（D）对象不具有Clear方法。
A、列表框B、组合框C、剪贴框D、图片框
5.软件列表中设定“文件列表”显示文件类型应改该控件的（D）属性。
A、PathB、FileNameC、NameD、Patterw
6．组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style属性值应为（B）
A、0B、1C、2D、3
7.下列可调整图片框的大小以适合图片的属性是（B）
A、StretchB、autosizeC、pictureD、oledropmode
8.要想清除文本框中的内容则可利用（ A ）进行。
A、CaptionB、TextC、ClearD、Cls
9.下列表达式中，其值为0的是（C）
A、7/9B、7mod15C、7\9D、15mod9
10.求以10为底X的常用对数的表达式为（A）
A、LoG（X）/LoG（10）B、LN（X）C、LoG（X）/LoG（E）D、LoG（X）
二、
填空题（每空2分，共20分）
1．代数式的VisualBasic表达式是sqr（（x^3+exp（-6）*log（y））*atn（a*3.14159/180）/（x*x+y*y））
2.设x=2,y=4,a=4,b=6,表达式（a>
xXorb<
x）ORx<
y
IMPy<
b的结果为True。
3．a和b中有仅只有一个不为1，相应的VisualBasic逻辑表达式为a<
>
1xorb<
1。
4．把条件为1£
x£
5写成VB表达式为:
x>
=1andx<
=5。
5.语句Line（1000,1000）-Step（2000,1500）,vbRed,BF的含义是：
在窗体上绘制以角点为（2000，2000）和（4000，3500）的红色实心的矩形。
6．用随机函数产生10个100～500的整数，其表达可为：
forI=1to10
a（i）=100+int（400*rnd）
nextI。
7．当x=2时，语句ifx=2thenPrintx=2的结果值是True。
8.StaticPrivateSubcmdSum_Click（）
DimSumasinteger
Sum=2*Sum+1
EndSub
问：
第三次单击命令按钮cmdSum后，Sum的值为：
7。
9．声明单精度常量g（重力加速度）代表9．8可写成：
constg=9.8。
10．欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又可调用系统中已有的应用程序c:
\windows\notepad.exe,可在程序代码窗口必要的地方添加语句：
shell（“c:
\windows\notepad.exe”）。
三、编程题
1随机产生n个两位正整数（n由对话框输入，切n>
0）。
求出其中的偶数之和，并在标签框Labol1上显示。
程序写在命令按钮Command1的click事件中。
PrivateSubCommand1_Click（）
DimnAsInteger
DimiAsInteger,sumAsLong
n=Val（InputBox（"
Pleaseinputainteger"
"
InputNvalue"
））
Fori=1Ton
rnddat=（10+Int（90*Rnd））
IfrnddatMod2=0Then
sum=sum+rnddat
EndIf
Nexti
Label1.Caption=sum
2由输入对话框中输入100个数值数据，放入数组a，将其中的整数放入数组b，然后运用选择分类将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。
注：
程序写在窗体form的click事件上。
PrivateSubForm_Click（）
Dima（1To100）
Dimb（）asinteger
DimiAsInteger,jAsInteger,kAsInteger,posAsInteger,tempasinteger
Fori=1To100
a（i）=Val（InputBox（"
Pleaseinputdata"
Ifa（i）=Int（a（i））Then
j=j+1
ReDimPreserveb（j）
b（j）=a（i）
EndIf
Fork=1Toj-1
pos=k
Form=kToj
Ifb（m）<
b（pos）Thenpos=m
Nextm
Ifk<
posThen
temp=b（k）
b（k）=b（pos）
b（pos）=temp
Nextk
Fork=1Toj
IfkMod5=0ThenPrintb（k）ElsePrintb（k）;
四、
程序阅读题（每小题6分，共18分）
1．程序1：
DimYAsInteger
PrivateStubCommand_Click（）
DimXAsInteger
X=1
Y=1
CallAA（Y+1）
Z=BB（X）
PrintX,Y,Z
PrivateSubAA（ByValZAsInteger）
Y=Z+X
Z=X+Y
PrivateFunctionBB（ByRefYAsInteger）
Y=Y+1
BB=X+Y
EndFunction
结果：
（222）
2．程序2：
privatesubForm_click（）
N=3
DimA（3，3）AsInteger
ForI=IToN
ForJ=IToN
A（I,
J）=（J–l）*N+I
NextJ
NextI
ForI=2ToN
ForJ=1ToI–1
TEMP=A（I,
J）
A（I,
J）=A（J,
I）
A（J,
I）=TEMP
ForX=1ToN
PrintX,A（X,N+X-I）,A（X,X）
NextX
EndSub
（1
0
4
2
7
8
31112）
3．程序3：
PrivateSubForm_click（）
Dimf1AsInteger,f2AsInteger,f3AsInteger
Open"
c:
\a1.dat"
ForOutputAs#1
f1=2:
f2=3
Print
#1,"
NO."
;
3,f1
4,f2
ForI=5To7
f3=f1+f2
Print#1,"
I,f3
f1=f2
f2=f3
Close#1
写出文件a1.dat的最终结果。
（
NO.3
2
NO.4
3
NO.5
5
NO.6
8
NO.7
13）
五、
程序填空题（每小题9分，共18分）1.从计算机输入三个数,找出中间数
PrivateSubFindMidNum（）
X=INPUTBOX（“PLEASEINPUTTHEFIRSTNUMBER”）
Y=INPUTBOX（“PLEASEINPUTTHESECONDNUMBER）
Z=INPUTBOX（“PLESSEINPUTTHETHIRDNUMBER）
IF（X<
Y
）THEN
A=X
X=Y
Y=A
ENDIF
IF（Y>
=Z）THEN
PRINTY
ELSEIF（X>
=Z）THEN
PRINTZ
ELSE
PRINTX
ENDIF
EndSub
2.
打印以下杨辉三角形
1
1
1
3
4
6
5
10
Dim
升级会员 