《Visual Basic程序设计》试题及其答案6.docx
- 文档编号:4310370
- 上传时间:2022-11-29
- 格式:DOCX
- 页数:12
- 大小:30.64KB
《Visual Basic程序设计》试题及其答案6.docx
《《Visual Basic程序设计》试题及其答案6.docx》由会员分享,可在线阅读,更多相关《《Visual Basic程序设计》试题及其答案6.docx(12页珍藏版)》请在冰豆网上搜索。
《VisualBasic程序设计》试题及其答案6
《VisualBasic程序设计》试题
2004.7
院(系):
班级:
学号:
姓名:
注意事项:
1.本试卷共五大题,满分100分,考试时间120分钟。
2.所有答案请答在答案栏上,答在其它地方无效。
一.填空题(每题1分,共10分)
1.要从字符串“VisualBASIC6.0”中截取子字符串“BASIC”可使用函数(Mid(“VisualBASIC6.0”,8,5))。
2.产生从整数a到整数b之间的随机整数使用的表达式(Int((b-a+1)*Rnd+a))。
3.将x四舍五入到百位(例如,若x=12374.52应舍入成12300),可使用表达式(Int(x/100+0.5)*100)。
4.表达式:
TrueOrNot5–3<=4的值为(True)。
5.表示条件“年份Year能被4整除,但不能被100整除”的逻辑表达式为(YearMod4=0AndyearMod100<>0)。
6.除了在设计阶段通过修改Picture属性装载图形外,还可以使用(LoadPicture)函数在运行程序时装载图形。
7.在程序运行期间,用户在文本框输入的内容,存放到文本框的(Text)属性中。
8.已知数组元素A
(1)=4,A
(2)=2,A(3)=1,A(4)=3,则A(A
(1)+A
(2)-A(4))的值为
(1)。
9.当文本框的Text属性被修改时,会发生(change)事件。
10.假定在用户界面上有多个控件,要在程序中把光标设置在接受输入的控件上,应使用的方法是(SetFocus)。
二.单项选择题(每题1.5分,共30分)
1.给定程序代码:
Text1.text="VisualBasic程序设计",其中的Text1、text和"VisualBasic程序设计"分别表示(c)。
a)控件、属性值和属性b)控件、方法和属性
c)控件、属性和属性值d)事件、方法和属性
2.以下关于表达式的运算顺序,错误的说法是(c)。
a)函数运算最优先
b)最后进行的是逻辑运算
c)关系运算的优先级比算术运算的优先级高
d)取负运算的优先级比求幂运算的优先级低
3.s、t、r为字符串变量,它们的值分别是"xyz"、"321"和"66",执行下列语句后,显示的结果为(d)。
s=s+r:
r=r+t:
Prints;spc
(2);r
a)xyz66387b)"xyz66""387"
c)"xyz66""66321"d)xyz6666321
4.假设A1,A2,A3是布尔变量,其值依次为:
True,True,False,下列表达式的值为False的是(c)。
a)A1AndA2OrA3
b)TrueOrNot(7–3<=4)
c)NotA1AndNotA2
d)NotA1EqvNotA2
5.以下不正确的单行结构条件语句是(d)。
a)Ifx>yThenPrint"x>y"b)IfxThent=t*x
c)IfxMod3=2Then?
xd)Ifx<0Theny=2*x-1:
PrintxEndIf
6.下列Case语句中正确的是(c)。
a)SelectCasex
Case1Or3Or5
y=x*x-1
CaseIs>10
y=x+1
EndSelect
b)SelectCasex
Case1,3,5
y=2*x-1
CaseIsx<=1
Y=2*x+1
EndSelect
c)SelectCasex
CaseIs<=0
y=x-1
CaseIs>0
y=Sqr(x)+1
EndSelect
d)SelectCasex
Casex>=1Andx<=5
y=x-1
CaseIs>10
y=x*x+1
EndSelect
7.设有程序段:
Dimk%
k=3
Dountilk=0
k=k-1
Loop
下面对上述循环语句描述正确的是(c)。
a)循环体1次也不执行b)循环体执行1次
c)循环体执行3次d)循环体执行无限次
8.关于循环语句的说法,正确的是(c)。
a)DoWhile…Loop是先执行循环体再判断条件是否成立
b)DoUntil…Loop是先执行循环体再判断条件是否成立
c)Do…LoopWhile是先执行循环体再判断条件是否成立
d)Do…LoopUntil是先判断条件再决定是否执行循环体
9.下面程序段中循环语句的循环次数是( b)。
Forx=7To1Step-3
Printx
Nextx
a)0b)3c)4d)7
10.使用文本框Text1接受用户输入的口令时,可使用以下选项(c),屏蔽在文本框中输入的内容。
a)Text1.Value="*"b)Text1.Text="*"
c)Text1.PasswordChar="*"d)Text1.Caption="*"
11.要把窗体缩小为其大小的一半(非最大化状态下),可使用以下(b)语句。
a)Form1=Form1/2
b)Form1.Width=Form1.Width/2:
Form1.Height=Form1.Height/2
c)Form1.Left=Form1.Left/2:
Form1.Top=Form1.Top/2
d)Form1.Size=Form1.Size/2
12.列表框不具有的属性是(d)。
a)Nameb)Textc)Sortedd)Value
13.复选框的Value属性值为2时,表示(c)。
a)没有选择该复选框b)选中该复选框
c)该复选框被禁止使用d)该复选框获得焦点
14.下列控件中(d)不能接受GotFocus和LostFocus事件。
a)命令按钮b)组合框c)复选按钮d)计时器
15.设置计时器的时间间隔可以通过(d)属性来实现。
a)Valueb)Textc)Maxd)InterVal
16.设有数组说明语句:
Dim b(-1To1,-1To2),则数组b中元素的个数是( a)。
a)12b)15c)16d)20
17.下列关于数组和记录的说法(a)是不正确的。
a)记录是由可变数目元素组成的结构类型数据
b)记录中的元素可以具有不同的数据类型
c)数组是由固定数目同类元素按一定顺序排列而成的结构类型数据
d)记录是由固定数目元素组成的结构类型数据
18.已知有说明语句
Typedat
yearAsInteger
monthAsInteger
EndType
Typeemp
nameAsString﹡8
sexAsString*1
birthdayAsdat
EndType
DimpersonAsemp
并假设变量person所表示职工的出生日期是“1968年6月”,则下列正确的赋值语句是(d)。
a)year=1968:
month=6
b)birthday.Year=1968:
birthday.month=6
c)person.year=1968:
person.month=6
d)person.birthday.year=1968:
person.birthday.month=6
19.关于变量,不正确的说法是(C)。
a)同一模块中不同级的变量可以同名
b)局部变量只能在它说明的过程中使用
c)在窗体模块中各过程之外用Dim语句定义的变量全都是全局变量
d)不同模块中定义的变量可以同名
20.(a)不能在标准模块中定义。
a)事件过程b)子过程
c)函数过程d)公共过程
三.阅读下面程序,写出程序的运行结果。
(共26分)
1.PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
Forx=1To10Step3
SelectCasex*2
CaseIs<8
y=x+8
Case2
y=x*2
Case8
y=x*3
CaseElse
y=x+10
EndSelect
Printx,y
Nextx
EndSub
运行结果:
19
412
717
1020
2.PublicSubP(ByValxasInteger,ByRefyAsInteger)
x=x+y
y=2*x+y
EndSub
PrivateSubCommand1_Click()
DimxAsInteger,yAsInteger
x=10
y=20
Py,x
Printx,y
Px,y
Printy,x
EndSub
运行结果:
7020
20070
3.PrivateSubCommand1_Click()
Dima%,x%,y%
x=1:
y=1:
a=1
DoUntila>8
IfaMod2=1Then
y=y*a
Else
x=x*a
EndIf
a=a+1
Loop
Print“x=”;x,”y=”;y
EndSub
运行结果:
x=384y=105
4.PrivateSubCommand1_Click()
DimA(1To10)AsInteger,xasInteger
Forx=1To10
Ifx>3Then
A(x)=xMod5
ElseA
(1)A
(2)A(3)A(4)A(5)…
A(x)=x*2Mod924640…
EndIf
Nextx
Forx=1To9
A(x)=A(x)+A(x+1)6101041…
Nextx
Forx=1To10
PrintA(x),
IfxMod4=1ThenPrint
Nextx
EndSub
运行结果:
6
101041
3574
0
5.PrivateSubCommand1_Click()
DimxasInteger,yAsInteger
y=1
Forx=1To10
DoWhiley<28
y=y+x2321…23…26
Ify>20ThenExitDo
Loop
Ify>25ThenExitFor
Nextx
Printx,y
EndSub
运行结果:
326
答案栏:
四.程序填空题(每空2分,共20分)
1.下面事件过程的功能是:
求满足1*2*…*n>10000的最小n值。
PrivateSubCommand1_Click()
Dimn%,t&
n=0:
t=1
While
(1)t<=10000
n=n+1
t=
(2)t*n
Wend
PrintTab(8);"最小n值为:
";n
EndSub
2.在窗体设置一个名为List1的列表框,下面程序的功能是:
当程序运行后,单击窗体,输出的结果为:
计算机学院
电子与信息学院
自动化学院
PrivateSubForm_Click()
Dimi%
Fori=0To(3)List1.ListCount-1
IfiMod2=0Then
Print(4)List1.List(i)
EndIf
Nexti
EndSub
PrivateSubForm_Load()
List1.AddItem"计算机学院"
List1.AddItem"建筑学院"
List1.AddItem"电子与信息学院"
List1.AddItem"机械学院"
List1.AddItem"自动化学院"
EndSub
3.假设数组A和数组B都是已经按从小到大排好序的数组,下面子过程Merge的功能是把A和B合并到数组C中,合并后数组C也从小到大排好序。
PrivateSubMerge(A%(),B%(),C%(),ByValna%,ByValnb%,ByValnc%)
DimiAsInteger,jAsInteger,kAsInteger
i=1:
j=1:
k=1
DoWhilei<=naAndj<=nb
If(5)ThenA(i)
C(k)=A(i)
i=i+1
Else
C(k)=B(j)
j=j+1
EndIf
(6)k=k+1
Loop
DoWhilei<=na
(7)C(k)=A(i)
k=k+1
i=i+1
Loop
DoWhilej<=nb
(8)C(k)=B(j)
k=k+1
j=j+1
Loop
EndSub
说明:
子过程Merge中的na,nb和nc分别表示A,B和C的元素个数。
4.下面事件过程的功能是从学生分数顺序文件D:
\file1.dat中读取各个学生的分数,并求该班的最高分数。
PrivateSubcommand1_Click()
Dimscore!
s!
,max!
Open"d:
\file1.dat"ForInputAs#3
s=0:
max=0
While(9)NotEOF(3)
(10)Input#3,score
ifscore>maxThenmax=score
Wend
Print"最高分数为:
";max
Close#3
EndSub
五.程序设计题(每题7分,共14分)
1.编写一个Command1_Click事件过程:
产生20个100到999之间的随机数,按生成顺序保存在数组中,并按每行5个数的格式输出。
用户任意输入一个数,如果该数出现在这20个数中,则输出该数的生成序号;否则,输出“没有找到”的信息。
答案栏:
PrivateSubCommand1_Click()
DimA(20)AsInteger,xAsInteger,iAsInteger
Fori=1To20
A(i)=Int(900*Rnd)+100
PrintA(i);
IfiMod5=0ThenPrint
Nexti
x=InputBox("请输入一个数")
Fori=1To20
IfA(i)=xThenExitFor
Nexti
Ifi>20Then
Print"没有找到"
Else
Print"该数的序号是:
";i
EndIf
EndSub
2.求s=
的值。
要求定义求f=
函数过程,由命令按钮的单击事件过程输入m、n和p的值,调用f函数过程求s的值,然后在窗体上显示计算结果。
答案栏:
OptionExplicit
PrivateSubCommand1_Click()
Dimm%,n%,p%,s#
m=InputBox("m=")
n=InputBox("n=")
p=InputBox("p=")
Printf(1,m),f(3,n),f(5,p)
s=(f(1,m)+f(3,n))/f(5,p)
Print"s=";s
EndSub
PrivateFunctionf(ByValk%,ByValx%)AsLong
Dimi%,sumAsLong
sum=0
Fori=1Tox
sum=sum+i^k
Nexti
f=sum
EndFunction
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计 Visual Basic程序设计试题及其答案6 Visual Basic 程序设计 试题 及其 答案