vb期末考试题BWord格式文档下载.docx
- 文档编号:16534104
- 上传时间:2022-11-24
- 格式:DOCX
- 页数:10
- 大小:32.60KB
vb期末考试题BWord格式文档下载.docx
《vb期末考试题BWord格式文档下载.docx》由会员分享,可在线阅读,更多相关《vb期末考试题BWord格式文档下载.docx(10页珍藏版)》请在冰豆网上搜索。
C.ModD.>
=将数学表达式
12.设有如下变量声明:
DimNowDateAsDate,则给变量NowDate赋值正确的表达式是()。
A.NowDate=#6/6/2003#B.NowDate=#"
6/6/2003"
#
C.NowDate=Date("
)D.NowDate=Format("
m/d/yy"
"
)
13.表达式33MOD17-10\3*Sgn(10)的值是()。
A.-14B.13C.12D.0
14.下面的运算符中优先级最高的是()。
A.AndB.>
=C.*D.&
15.如果x是一个正实数,对x的第二位小数四舍五入的表达式是()。
A.Int(x+0.05)B.0.1*Int(10*(x+0.05))
C.0.01*Int(100*(x+0.5))D.Int(x+0.5)
16.以下声明变量的语句中错误的是()。
A.DimVar1=’ABC’B.ConstVar2=123
C.DimVar3AsIntegerD.StaticVar4AsInteger
17.窗体模块保存在一个扩展名为()的文件中。
A.bas
B.cls
C.frm
D.bmp
18.当文本框的()属性为True时,该文本框能够显示多行文字。
A.ValueB.TabIndexC.IndexD.MultiLine
19.下列控件中不能改变大小的是()。
A.Text1BoxB.LabelC.TimerD.PictureBox
20.执行以下程序段输出结果为()。
a$="
abbacddcba"
Fori=6To2Step-2
X=Mid(a,i,i)
Y=Right(a,i)
z=UCase(X&
Y)
Nexti
Printz
A.ABA
B.BBBA
C.ABBABA
D.AABAAB
21.下面哪一项不是结构化程序设计的基本结构()。
A.过程结构B.顺序结构C.选择结构D.循环结构
22.下列数组声明语句中正确的是()。
A.Dima[3,4]Asinteger
B.Dima(3,4)AsInteger
C.Dima(n,n)Asinteger
D.Dima(34)AsInteger
23.VB的应用程序中,决定程序流向的是()。
A.对象B.方法C.属性D.事件
24.在窗体模块的通用变量声明区中通过Dim声明的变量()。
A.可以在不同窗体的过程中使用。
B.可以在工程之间使用。
C.只能在该窗体模块的某一个过程中使用。
D.在该窗体模块的所有过程中都可以使用。
25.VB采用()的编程方法。
A.面向对象B.面向过程C.面向问题D.面向用户
26.执行下面的程序段后,x的值为()。
x=5
Fori=10To1Step-2
x=x+int(i/5)
A.6B.7C.8D.10
27.在列表框中当前被选中的列表项的内容由下列那一个属性得到()。
A.ListB.TextC.ListIndexD.Index
28.设有以下循环结构:
DO
循环体
loopwhile<条件>
则以下叙述中错误的是()。
A.若“条件”是一个为0的常数,则一次也不执行循环体
B.“条件”可以是关系表达式、逻辑表达式或常数
C.循环体中可以使用ExitDo语句
D.如果“条件”总是为True,则不停地执行循环体
29.下列()属性是文本框控件的默认属性。
A.Caption
B.Value
C.Name
D.Text
30.当条件为真(True)时,执行循环体的循环语句是()。
A.DoWhile……LoopB.DoUntil……Loop
C.Do……UntilLoopD.For……Next
二.写出程序运行结果(每题4分,共20分)
1.写出下列代码运行后窗体上显示的结果是()。
PrivateSubForm_Activate()
DimiAsInteger
Fori=1To3
test
EndSub
Subtest()
DimxAsInteger,mAsString
Staticy,n
x=x+1
y=y+1
m=m&
"
*"
n=n&
Print"
x="
;
x,"
y="
y,"
m="
m,"
n="
n
2.下面的程序段执行后,单击窗体,窗体上显示结果是()。
PrivateSubForm_Click()
Dima()
ReDima(1To3)
a(i)=i
ReDimPreservea(1To5)
Fori=4To5
a(i)=2*i
Fori=1To5
Printa(i);
3.在窗体上有一命令按钮Command1,下面的程序段执行后,单击命令按钮,输出结果是()。
PrivateSubCommand1_Click()
DimkAsInteger
Fori=1To2
Forj=1To3
k=k+1
Nextj
Printk
4.在窗体上画一个Command1命令按钮,命令按钮Command1的Click事件代码如下所示,程序运行后单击命令按钮,则窗体上显示的是()。
DimaAsInteger
a=Int(Rnd)+5
SelectCasea
Case5
Print"
优秀"
Case4
良好"
Case3
通过"
CaseElse
未通过"
EndSelect
5.运行下面的程序,单击命令按钮COMMAND1后,窗体上显示结果是()。
fstr="
abcdef"
s="
"
l=Len(fstr)
Fori=1Tol\2
s=s&
Mid(fstr,i,1)&
Mid(fstr,l-i+1,1)
Next
Prints
三.程序填空(每空2分,共20分)
1.X,Y,Z是输入的三个大小互不相同的数,完成下列程序,求出大小居中者输出到文本框上。
DimxAsInteger,yAsInteger,zAsInteger
x=Val(Text1.Text)
y=Val(Text2.Text)
z=Val(Text3.Text)
Ifx>
yThen
t=x:
x=y:
y=(①)
EndIf
Ify<
zThen
m=(②)
ElseIfx>
m=x
Else
m=(③)
中间数是:
m
2.假定建立了一个工程,该工程包括两个窗体Form1、Form2,启动窗体为Form1。
要求当单击Form1中的命令按钮Command1时,判断在文本框中输入密码是否正确。
若密码输入正确Form1窗体卸载,显示窗体Form2,否则重新输入密码,请将程序补充完整。
IfLcase(Trim(Text1.Text))="
abcd"
Then
(④)Form1
Form2.(⑤)
MsgBox"
密码错误,请重新输入!
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
3.下面程序的功能是:
生成20个10~99之间的随机数,首先将它们每行5个数输出,然后查找并输出该数组中元素的最大值。
请将程序填写完整。
OptionBase1
Dima(20)AsInteger
DimmaxAsInteger
Randomize
Fori=1To20
a(i)=(⑥)
IfImod5=0ThenPrint
Ifa(i)>
maxThen(⑦)
Next
最大值是:
max
4.以下程序用于计算1!
+2!
+3!
+…+10!
,请将程序填写完整。
t=1:
n=1:
Sum=0
DoUntiln(⑧)
t=t*(⑨)
Sum=Sum+(⑩)
n=n+1
Loop
sum="
Sum
四.编写程序(每题10分,共30分)
1、计算奖金。
企业利润I低于5000元的,奖金为利润的1%,当5000<
=I<20000,超过5000元部分奖金为1.5%;
当20000<
=I<
50000元,除20000元以下的按上述方法计算外,超过20000元部分按2%计算奖金;
当I>
=50000元时,超过50000元部分按3.5%计算奖金。
I由键盘输入,要求输出相应的奖金数。
2、下列程序的功能是:
用函数调用求e=1+1/1!
+1/2!
+……+1/n!
的值,直到最后一项小于10-6为止。
要求:
(1)阶乘的计算用自定义函数jc过程来做。
(2)结果输出到窗体上。
Functionjc(XAsInteger)
EndFunction
3、设计一个100分钟倒计时器,用户界面见左图。
窗体FORM1上添加一个文本框控件Text1和时钟控件Timer1,两个命令按钮Command1和Command2,各控件的在设计阶段的属性设置见下表:
控件名称
属性名称
属性值
Form1
Caption
倒计时
Text1
Text
01:
40:
00
Command1
Command2
暂停
Timer1
Enable
False
Interval
1000
编写时钟Timer事件和两个命令按钮Command1、Command2的Click事件代码。
●当单击Command1时,在文本框控件Text1中显示100分钟到计时的时、分、秒,显示格式如图所示;
且Command1不可用。
●单击Command2时,计时暂停,同时Command2上显示“继续”;
再次单击Command2,接着上次结果继续到计时。
●倒计时结束时,出现信息框“时间到!
”的提示。
PrivateSubCommand2_Click()
PrivateSubTimer1_Timer()
答案表:
系别____________班级__________学号(最后两位)_____姓名____________
一单选题(每题1分)
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
二写出程序运行结果(每题4分)
三程序填空(每空2分)
①
②
③
④
⑤
⑥
⑦
⑧
⑨
⑩
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb 期末 考试题