《VB程序设计基础》模拟试题Word文档格式.docx
《《VB程序设计基础》模拟试题Word文档格式.docx》由会员分享，可在线阅读，更多相关《《VB程序设计基础》模拟试题Word文档格式.docx（17页珍藏版）》请在冰豆网上搜索。
（√）7.x2是合法的变量名。
（）8.按照文件的存取方式及其组成结构可以分为两种类型：
文本文件和随机文件。
（√）9.Do…LoopUntil语句实现循环时，不管条件真假，首先无条件地执行一次
循环。
）10.标签没有change事件和setFocus方法。
）11.VB对象就是窗体和控件。
）12.要实现同样的循环控制，在DoWhile…Loop和DO…LoopWhile循环结构中给定的循环条件是一样的。
）13.文本框和标签通过同一属性在窗体上显示文字。
（）14.能够改变复选框背景颜色的属性是BackColor。
（）15.当图片框Picturebox控件的Autosize属性为true时，超过图片框尺寸的图片其超过部分会被图片框截去。
）16.所有对象的属性都可以在属性窗口中设定。
）17.Msgbox函数建立的信息框既能显示信息又能输入用户的信息。
（）18.使用Open语句可以创建新的顺序文件。
）19.要在窗体上添加控件，不能通过双击工具箱中对应的控件图标实现。
）20.TextBox与Label有许多共同的特点，它们都能显示和输入文字。
（√）21.方法Form1.show与Form1.visible=True是等效的。
（√）22.Do…LoopUntil语句实现循环时，不管条件真假，首先无条件地执行一次循环。
）23.函数Str（26）与Str（-26）的值的长度相同。
（√）24.每个Vb对象都有name属性。
（）25.在VisualBasic中，向过程传递参数时，按地址传递参数是缺省的。
（√）26.Do…Loopuntil语句实现循环时，只要条件是假，循环将一直进行下去。
）27.文本框和标签通过同一属性在窗体上显示文字。
）28.要实现同样的循环控制，在DoWhile…Loop和DO…LoopWhile循环结构中给定的循环条件是一样的。
（√）29.将焦点主动设置到指定的控件或窗体上，应采用Setfocus方法。
）30.使用Open语句可以创建新的顺序文件。
●写出下面的程序运行结果
1.程序1
PrivateSubForm_load（）
MsgBox"
你好"
EndSub
运行结果：
____弹出消息框,提示为”你好”_________。
2.程序2
DimNumber
Number=8
SelectCaseNumber
Case1To5
Print"
Between1and5"
Case6To10
Print"
Between6and10"
CaseElse
Notbetween1and10"
EndSelect
_____Between6and10________。
3.程序3
DimSubCommandl_Click（）
Textl.Text="
07"
EndSub
DimSubCommand2_Click（）
秋季"
单击Command2按钮后，再单击Command1按钮，在文本框中显示：
__07___。
4.程序4
PrivateSubForm_Click（）
ForI=lTo100
Sum=Sum+I
NextI
PrintSum
运行结果:
5050。
5.程序5
VB程序"
EndSub
_____弹出消息框,提示为”VB程序”________。
6.程序6
PrivateSubForm_Activate（）
DimSAsSingle
DimIAsInteger
S=1
ForI=1To5
S=S*I
Next
5!
="
;
S
________________120_________________。
7.程序7
Private
Sub
Form_Activate（）
Dim
s
As
Long
I
Integer
S
=
For
I
1
To
6
S+I^2
Next
Print"
S
="
S
End
Sub
91。
一．判断题（正确的划√，错误的划×
，每小题1分，共10分）
（√）1、面向对象程序设计是一种以对象为基础，由事件驱动对象来执行的设计方法。
）2、所有对象的属性都可以在属性窗口中设定。
（√）3、把当前窗体form1隐藏，用form1.hide和me.hide语句均可。
（√）4、变量的声明有两种方法，即使用“类型说明符”和使用“类型说明词”均可。
）5、判断数值X是否在[0，100]范围可用关系表达式：
0<
=X<
=100.
（√）6、文本框控件没有Caption属性。
）7、Dima1,a2AsInteger语句表示声明的变量a1和a2都为整型变量。
（√）8、执行Do-LoopWhile语句时，不管条件真假，首先会无条件地执行一次循环。
）9、Rnd（x）产生[0，1]之间的随机数。
（√）10、每个VisualBasic对象都有Name属性。
二．选择题（以下只有一项是正确的，每题2分，共40分）
（）1、不是VisualBasic的特点的选项是：
Ａ．可视编程B．面向过程C．事件驱动D．面向对象
（）2、如果把一个人当作对象，那么“身高”相当于这个对象的:
Ａ．属性 Ｂ．方法 Ｃ．事件 Ｄ．特征
（）3、以下哪项不是合法的变量名？
A．file_1B．file1Ｃ．file-1Ｄ．file_1_12
（）4、求从文本框中输入密码时在文本框中只显示*号，则应在此文本框的属性窗口中设置：
A．Text属性值为*B．Caption属性值为*
C．Password属性值为空D．Passwordchar属性值为*
（）5、哪个是算术运算符：
Ａ．ImpＢ．Mod Ｃ．NotＤ．Eqv
（）6、Integer类型的变量可存的最大整数为：
Ａ．255 Ｂ．256Ｃ．32768 Ｄ．32767
（）7、下列哪一个是日期型常量：
Ａ．"
2/1/99"
Ｂ．2/1/99 Ｃ．#2/1/99# Ｄ．{2/1/99}
（）8、用于获得字符串S从第5个字符开始的3个字符的函数是：
Ａ．Mid（S,5,3） Ｂ．Middle（S,5,3）
Ｃ．Right（S,5,3） Ｄ．Left（S,5,3）
（）9、为使计时器对象每隔5秒钟产生一个时钟事件（Timer事件），则其Interval属性值应设置为：
Ａ．5 Ｂ．300 Ｃ．500 Ｄ．5000
（）10、对一个窗体对象，其最先发生的事件是：
A．ClickＢ．DbClickＣ．LoadＤ．UnLoad
（）11、下列4个选项中,可以单独的构成一条语句的选项是：
A．对象名.属性名B．对象名.方法名
C．对象名.事件名 Ｄ．对象名.控件名
（）12、若x是一个正实数，将千分位四舍五入，保留两位小数的VB表达式为:
A．0.01*Int（x+0.005）B．0.01*Int（100*（x+0.005））
C．0.01*Int（100*（x+0.05））D．0.01*Int（x+0.05）
（）13、下列表达式中，合法的ＶisualBasic表达式有：
Ａ．（－b+sqr（b*b+4a*c））/2/a
Ｂ．Cos（a）^2-Atn（a）
Ｃ．Sqr（Y^3+3*（A*A+6B*B））
Ｄ．1/（X+1/Y+5A）
（）14、在一个语句行内写多条语句时，语句之间应该用什么符号分隔？
A．逗号
B．分号
C．顿号
D．冒号
（）15、计算结果为0的表达式是：
A．Int（3.4）+Int（-3.8） B．Int（3.4）+Fix（-3.8）
C．Fix（3.4）+Fix（-2.8） D．Fix（3.4）+Int（-3.8）
（）16、下列程序段执行后输出的结果是：
x=int（Rnd+4）
SlectCasex
Case5
优秀"
Case4
良好"
Case3
及格"
CaseElse
不及格"
EndSelect
Ａ．优秀 Ｂ．良好 Ｃ．及格 Ｄ．不及格
（）17、循环结构Fori=0to10Step2的执行次数是：
Ａ．4 Ｂ．5 Ｃ．6 Ｄ．7
（）18、“x是小于100的非负数”，用VB表达式表示，正确的是：
Ａ．x<
100B．0<
=xAndx<
100
Ｃ．0<
=x<
100Ｄ．0≤xOrx<
（）19、要判断两个整型变量A和B中有且只有一个为0，不能使用下面哪一个逻辑表达式（）。
Ａ．A=0AndB<
>
0orA<
0andB=0
Ｂ．A=0XorB=0
Ｃ．A*B=0AndA<
B
Ｄ．A*B=0And（A=0OrB=0）
（）20、下列程序段循环结构执行后，i的输出值是：
Ａ．２５ Ｂ．１０
Ｃ．１１ Ｄ．因为y的初值不知道，所以不确定
Fori=1to10Step2
y=y+i
Nexti
Printi
三．填空题（每空2分，共20分）
1.语句optionexplicit的作用是强制变量声明 。
2.把条件10≤Ｘ＜１２写成Visualbasic表达式为：
10<
=xandx<
12 。
3．将数学式
写成VB表达式为：
________________________________________________________________________。
4.逻辑符And、Or、Not按优先级排序为：
。
5．选拔身高（T）超过1.7米且体重（W）小于62.5公斤的人，表示该条件的布尔表达式为：
T>
1.7andW<
62.5 。
6.声明一个值为3.14的常量Pi的语句为Constpi=3.14_。
7.在过程中定义Dimx（9,1to10）asInteger,则数组中共拥有__________个元素。
8.要使一个按钮无效，则可把它的Enable属性设为False（True、False）。
9.设X是大于300且能被3整除的奇数，关于X的表达式为：
______（x>
300）and（xMod3=0）and（xMod2<
0）_______________________。
10．定时器控件的Interval属性值是指时间间隔，单位为毫秒；
当每隔此间隔的时间，定时器会触发一次计时器事件。
四.程序填空题：
（每空3分，共12分）
1．如下程序运行后,变量S的值为120,i的值为6。
OptionExplicit
PrivateSubCommand1_Click（）
DimiAsInteger
StaticSAsInteger
S=1
Fori=1To5
S=S*i
Nexti
PrintS
2．以下程序是求1—100之间所有的“偶数”之和。
请填空。
Dimsasinteger
Dimiasinteger
S=0
Fori=2to100step2
S=S+i
PrintS
五．程序阅读题（每小题2分，共4分）
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private
Command1_Click（）
For
n
5
If
Mod
3
<
0
Thenm
m
+
\
Next
Print
Printm
End
程序运行后，如果单击命令按钮，则窗体上显示:
n=_____6________;
m=2
六．程序设计题，请将以下横线中的代码补充完整。
（每空2分,共14分）
1．假设某班共有学生N人，编写程序统计该班学生的VisualBasic考试成绩，并显示出60分以下、60—70、70—80、80—90以及90分以上的学生人数各是多少？
程序代码如下：
Privatesubform_click（）
Dimscoreassingle‘score表示考生的实际分数
Dimx1%,x2%,x3%,x4%,x5%‘x1,x2,x3,x4,x5分别表示各个分数段的人数
DimIasinteger‘I表示循环变量
DimNasinteger‘N表示参考总人数
N=val（inputbox（“请输入参考总人数:
”））
ForI=1ton
Score=val（inputbox（“请输入成绩:
SelectcaseScore
Caseis>
=90
X1=x1+1
Caseis>
=80
X2=x2+1
=70
X3=x3+1
=60
X4=x4+1
Caseelse
X5=x5+1
EndSelect
Nexti
Print“90分以上：
”，x1；
“人”
Print“80—90分：
”，x2；
Print“70—80分：
”，x3；
Print“60—70分：
”，x4；
Print“60分以下：
”，x5；
Endsub
实验六思考题:
设s,m,n均为String类型的变量,编程实现:
如果s中包含字串m,则将s中的字串m部分替换为n后生成一个新串并输出.要求s,m,n的值均由用户输入.
DimsAsString
DimmAsString
DimnAsString
DimlsAsString
DimkAsInteger
s=InputBox（"
请输入S字符串"
）
Text2.Text=s
m=InputBox（"
请输入m字符串"
Text3.Text=m
n=InputBox（"
请输入n字符串"
Text4.Text=n
i=InStr（s,m）
k=i+Len（m）
ls=Left（s,i-1）
Text1.Text=ls+n+Mid（s,k）'
text1.Text=left（s,i-1）+n+mid（s,k）
PrivateSubForm_Click（）
Dima%,b%,c%,tempAsDouble
a=Val（InputBox（"
请输入a"
））
b=Val（InputBox（"
请输入b"
c=Val（InputBox（"
请输入c"
Ifa>
bThen
temp=a
a=b
b=temp
EndIf
cThen
a=c
c=temp
Ifb>
temp=b
b=c
Printa;
b;
c
PrintResult
或者PrivateSubcmdselect_Click（）
DimxAsSingle,yAsSingle
DimOperatorAsString
DimresultAsSingle
x=Val（InputBox（"
输入第一个数：
"
,0））
Operator=InputBox（"
输入运算法：
,"
+"
y=Val（InputBox（"
输入第二个数:
SelectCaseOperator
Case"
:
result=x+y
-"
result=x-y
*"
result=x*y
/"
result=x/y
EndSelect
Printresult
1、PrivateSubForm_Click（）
Dimx%,y%,z%
请输入第一门课程成绩"
请输入第二门课程成绩"
z=Val（InputBox（"
请输入第三门课程成绩"
If（（x+y+z）/3）>
95Or（x=100Andy=100Andz>
=80）Or（x=100Andz=100Andy>
=80）Or（y=100Andz=100Andz>
=80）Then
该同学获得一等奖"
ElseIf（x+y+y）/3>
90Or（x=100Andy>
=75Andz>
=75）Or（y=100Andx>
=75）Or（z=100Andx>
=75）Then
该同学获得二等奖"
ElseIfx>
=70Andy>
=70Andz>
=70Then
该同学获得三等奖"
Else
该同学没
升级会员 