VB期末考试试题AB卷文档格式.docx
- 文档编号:13742146
- 上传时间:2022-10-13
- 格式:DOCX
- 页数:12
- 大小:19.95KB
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
#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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 期末考试 试题 AB