VB语言程序设计4套作业参考答案.docx
《VB语言程序设计4套作业参考答案.docx》由会员分享,可在线阅读,更多相关《VB语言程序设计4套作业参考答案.docx(27页珍藏版)》请在冰豆网上搜索。
VB语言程序设计4套作业参考答案
窗体顶端
第1套
您已经通过该套作业,请参看正确答案
1、与传统的程序设计语言相比,VisualBasic语言最突出的特点是( )。
A.结构化程序设计
B.程序开发环境
C.事件驱动编程机制
D.程序调试技术
参考答案:
C您的答案:
C
2、VisualBasic集成环境的主窗口中不包括( )。
A.标题栏
B.菜单栏
C.状态栏
D.工具栏
参考答案:
C您的答案:
C
3、VisualBasic窗体设计器的主要功能是( )。
A.建立用户界面
B.编写源程序代码
C.画图
D.显示文字
参考答案:
A您的答案:
A
4、下列叙述中正确的是( )。
A.只有窗体才是VB中的对象
B.只有控件才是VB中的对象
C.控件和窗体都是VB中的对象
D.控件和窗体都不是VB中的对象
参考答案:
C您的答案:
C
5、为了把窗体上的某个控件变为活动的,应执行的操作是( )。
A.单击窗体的边框
B.单击该控件的内部
C.双击该控件
D.双击窗体
参考答案:
B您的答案:
B
6、确定一个控件在窗体上的位置的属性是( )。
A.Width或Height
B.Width和Height
C.Top或Left
D.Top和Left
参考答案:
D您的答案:
D
7、在窗体上面画一个名称为Text1的文本框,然后编写如下的事件过程:
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
......
EndSub
若焦点位于文本框中,则能够触发KeyPress事件的操作是( )。
A.单击鼠标
B.双击文本框
C.鼠标滑过文本框
D.按下键盘上的某个键
参考答案:
D您的答案:
D
8、为了装入一个VB应用程序,应当( )。
A.只装入窗体文件(.frm)
B.只装入工程文件(.vbp)
C.分别装入工程文件和标准模块文件(.bas)
D.分别装入工程文件、窗体文件和标准模块文件
参考答案:
B您的答案:
B
9、当窗体最小化时缩小为一个图标,设置这个图标的属性是( )。
A.MouseIcon
B.Icon
C.Picture
D.MousePoint
参考答案:
B您的答案:
B
10、为了取消窗体的最大化功能,需要把它的一个属性设置为False,这个属性是( )。
A.ControlBox
B.MinButton
C.Enabled
D.MaxButton
参考答案:
D您的答案:
D
11、决定窗体有无控制菜单的属性是( )。
A.ControlBox
B.MinButton
C.Enabled
D.MaxButton
参考答案:
A您的答案:
A
12、下列操作中不能向工程中添加窗体的是( )。
A.执行“工程”菜单中的“添加窗体”命令
B.单击工具栏上的“添加窗体”按钮
C.右击窗体,在弹出的菜单中选择“添加窗体”命令
D.右击工程资源管理器,在弹出的菜单中选择“添加”命令,然后在下一级菜单中选择“添加窗体”命令
参考答案:
C您的答案:
C
13、当一个工程含有多个窗体时,其中的启动窗体是( )。
A.启动VisualBasic时建立的窗体
B.第一个添加的窗体
C.最后一个添加的窗体
D.在“工程属性”对话框中指定的窗体
参考答案:
D您的答案:
D
14、为了在按下Esc键时执行某个命令按钮的事件过程,需要把该按钮的哪个属性设为True( )。
A.Value
B.Default
C.Cancel
D.Enabled
参考答案:
C您的答案:
C
15、用菜单编辑器创建菜单时,如果要在菜单中添加一条分隔线,正确的操作是( )。
A.在标题输入框中输入“-”(减号)
B.在名称输入框中输入“-”(减号)
C.在标题输入框中输入“_”(下划线)
D.在名称输入框中输入“_”(下划线)
参考答案:
A您的答案:
A
16、在显示菜单时,菜单的哪个属性为True时将用灰色显示该菜单项标题( )。
A.Caption
B.Checked
C.Enabled
D.Visible
参考答案:
C您的答案:
C
17、使文本框获得焦点的方法是( )。
A.Change
B.GotFocus
C.SetFocus
D.LostFocus
参考答案:
C您的答案:
C
18、为了使标签框控件覆盖背景,应把BackStyle属性设置为( )。
A.0
B.1
C.True
D.False
参考答案:
B您的答案:
B
19、在窗体上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程:
PrivateSubCommand1_Click()
a=Text1.Text+Text2.Text
Printa
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
EndSub
程序运行后,在Text1和Text2中分别输入123和321,然后单击命令按钮,则输出结果为( )。
A.444
B.321123
C.123321
D.132231
参考答案:
C您的答案:
C
20、当拖动滚动条中的滚动块时,将触发滚动条的事件是( )。
A.Move
B.Change
C.Scroll
D.SetFocus
参考答案:
C您的答案:
C
窗体顶端
第2套
您已经通过该套作业,请参看正确答案
1、以下语句Print3+4\5*6/7Mod8的输出结果是( )。
A.3
B.4
C.5
D.6
参考答案:
B您的答案:
B
2、下面不是VB的数据类型的是( )。
A.Currency
B.Bool
C.Object
D.Single
参考答案:
B您的答案:
B
3、下列可作为VB的变量名的是( )。
A.3*Delta
B.Bool
C.Object
D.Single
参考答案:
B您的答案:
B
4、下面的数2.65358979335278E-06写成普通的十进制数是( )。
A.0.0000265358979335278
B.0.00000265358979335278
C.0.000265358979335278
D.0.000000265358979335278
参考答案:
B您的答案:
B
5、下面的数1.21576654590569E+19写成普通的十进制数是( )。
A.12157665459056900
B.121576654590569000
C.1215766545905690000
D.12157665459056900000
参考答案:
D您的答案:
D
6、设a=2,b=3,c=4,d=5,下列表达式Nota<=cOr4*c=b^2Andb<>a+c的值是( )。
A.-1
B.1
C.True
D.False
参考答案:
D您的答案:
D
7、语句Print5*5\5/5的输出结果是( )。
A.5
B.25
C.0
D.1
参考答案:
B您的答案:
B
8、语句PrintSgn(-6^2)+Int(-6^2)+Int(6^2)的输出结果是( )。
A.-36
B.1
C.-1
D.-72
参考答案:
C您的答案:
C
9、以下语句的输出结果是( )。
a=Sqr(3)
PrintFormat(a,"$$####.###")
A.$1.732
B.$$1.732
C.$1732
D.$$0001.732
参考答案:
B您的答案:
B
10、以下程序段的输出结果是( )。
a=Sqr(3)
b=Sqr
(2)
c=a>b
Printc
A.$1.732
B.$$1.732
C.$1732
D.$$0001.732
参考答案:
D您的答案:
D
11、表达式4+5\6*7/8Mod9的值是( )。
A.4
B.5
C.6
D.7
参考答案:
B您的答案:
B
12、一个语句如果在下一行继续写,应在本行尾部加符号( )。
A.,
B.:
C._
D.;
参考答案:
C您的答案:
C
13、假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是( )。
A.Print25
B.Picture1.Print25
C.Text1.Print25
D.Debug.Print25
参考答案:
C您的答案:
C
14、以下语句的输出结果是( )。
(Δ表示空格)
a=27
b=65
Printa;b
A.27Δ65
B.Δ27Δ65
C.27ΔΔ65
D.Δ27ΔΔ65
参考答案:
D您的答案:
D
15、在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
a=InputBox("EntertheFirstinteger")
b=InputBox("EntertheSecondinteger")
Printb+a
EndSub
程序运行后,单击命令按钮,先后在输入对话框中输入456和123,则输出结果是()。
A.579
B.123
C.456
D.123456
参考答案:
A您的答案:
A
16、执行下面的语句后,所产生的消息框的标题是()。
a=MsgBox("AAAA",,"BBBB","",5)
A.BBBB
B.空
C.AAAA
D.实时错误,不能产生消息框
参考答案:
A您的答案:
A
17、对用MsgBox显示的消息框,以下叙述中错误的是()。
a=MsgBox("AAAA",,"BBBB","",5)
A.可以有一个按钮
B.可以有两个按钮
C.可以有三个按钮
D.可以有任意多个按钮
参考答案:
D您的答案:
D
18、假定有如下的窗体事件过程:
PrivateSubCommand1_Click()
a="VisualBasic程序设计"
b=Left(a,6)
c=Mid(a,8)
MsgBoxb,34,c
EndSub
程序运行后,单击命令按钮,则在弹出的消息框的标题栏中显示的信息是()。
A.可以有一个按钮
B.可以有两个按钮
C.可以有三个按钮
D.可以有任意多个按钮
参考答案:
C您的答案:
C
19、设有语句x=InputBox("输入数值","示例","20")程序运行后,如果从键盘上输入数值10并按回车键,则下列叙述中正确的是()。
A.变量x的值是数值型数据10
B.变量x的值是字符串型数据"10"
C.10是默认值
D.在InputBox对话框标题栏中显示的是“输入数值”
参考答案:
B您的答案:
B
20、设a=6,则执行x=IIf(a>5,-1,0)后,x的值为()。
A.5
B.6
C.0
D.-1
参考答案:
D您的答案:
D
窗体顶端
第3套
您已经通过该套作业,请参看正确答案
1、设有函数则下列能正确计算该函数值的语句是( )。
A.Ifx<0Thenr=1
ElseIfx>0Then
r=2
EndIf
B.Ifx<0Then
r=1
ElseIfx>0Then
r=2
EndIf
C.Ifx<0Then
r=1
Else
r=2
EndIf
D.r=If(x<0,1,2)
参考答案:
B您的答案:
B
2、在窗体上画两个名称分别为Label1和Label2的标签,然后编写如下事件过程:
PrivateSubForm_Click()
x=-5:
s=-5
SelectCases
CaseIs>0
y=x+1
CaseIs>=0
y=x+2
CaseElse
y=x+3
EndSelect
Label1.Caption=x
Label2.Caption=y
EndSub
程序运行后,单击窗体,标签Label1和Label2中显示的内容分别是()。
A.-5和-2
B.-5和-4
C.-5和-3
D.-5和-5
参考答案:
A您的答案:
A
3、设置复选框或单选按钮标题对齐方式的属性是()。
A.Align
B.Alignment
C.Sorted
D.Value
参考答案:
B您的答案:
B
4、下列程序段的执行结果为()。
x=2:
y=1
Ifx*y<1Theny=y-1Elsey=y+1
Printy-x>0
A.True
B.False
C.-1
D.1
参考答案:
B您的答案:
B
5、下列程序段的执行结果为()。
x=3:
y=4
IfxPrintx
A.3
B.4
C.34
D.43
参考答案:
D您的答案:
D
6、下列程序的执行结果为()。
x=15
Ifx>0Thena=1
Ifx>10Thena=2
Ifx>20Thena=3
Ifx>30Thena=4
Printa
A.1
B.2
C.3
D.4
参考答案:
B您的答案:
B
7、通过改变单选按钮控件的什么属性值,可以改变单选按钮的选取状态()。
A.Value
B.Style
C.Appearance
D.Caption
参考答案:
A您的答案:
A
8、在窗体上画两个单选按钮,名称分别为Option1和Option2,标题分别为“宋体”和“黑体”;一个复选框,名称为Check1,标题为“粗体”;一个文本框,名称为Text1,Text属性为“改变文字字体”。
要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中,则能够实现上述要求的语句序列是()。
A.Option1.Value=True
Check1.Value=False
B.Option1.Value=True
Check1.Value=True
C.Option2.Value=False
Check1.Value=True
D.Option1.Value=True
Check1.Value=1
参考答案:
D您的答案:
D
9、下面控件中,用于将对象分组的是()。
A.窗体
B.文本框
C.复选框
D.框架
参考答案:
D您的答案:
D
10、下列代码的运行结果是()。
If3-2Then
a=10
ElseIf(10/2)=6Then
a=20
Else
a=30
EndIf
Printa
A.10
B.20
C.30
D.不确定
参考答案:
A您的答案:
A
11、阅读下面的程序:
PrivateSubForm_Click()
Dimm,nAsInteger
m=InputBox("请输入M的值")
m=Val(m)
m1=m
n=InputBox("请输入N的值")
n=Val(n)
n1=n
DoWhilen<>0
remin=mModn
m=n
n=remin
Loop
Printm1,n1,m
EndSub
程序运行后,单击窗体,在输入对话框中分别输入16和24,在程序在窗体上的输出结果为( )。
A.16 24 4
B.16 24 8
C.24 16 6
D.24 16 8
参考答案:
B您的答案:
B
12、阅读下面的程序:
PrivateSubForm_Click()
DimCheck,Counter
Check=True
Counter=0
Do
DoWhileCounter<20
Counter=Counter+1
IfCounter=10Then
Check=False
ExitDo
EndIf
Loop
LoopUntilCheck=False
PrintCounter,Check
EndSub
程序运行后,单击窗体,标签Label1和Label2中显示的内容分别是()。
A.15 0
B.20 -1
C.10 True
D.10 False
参考答案:
D您的答案:
D
13、假定有以下循环结构
DoUntil条件
循环体
Loop
则正确的描述是()。
A.如果“条件”是一个为0的常数,则一次循环体也不执行
B.如果“条件”是一个为0的常数,则无限次执行循环体
C.如果“条件”是一个不为0的常数,则至少执行一次循环体
D.不论“条件”是否为“真”,至少要执行一次循环体
参考答案:
B您的答案:
B
14、执行下面的程序段后,x的值为()。
x=5
Fori=1To20Step2
x=x+i\5
Nexti
A.20
B.21
C.24
D.25
参考答案:
B您的答案:
B
15、在窗体上画一个命令按钮,然后编写如下事件过程:
PrivateSubCommand1_Click()
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后,单击命令按钮,输出结果是()。
A.7
B.15
C.157
D.538
参考答案:
B您的答案:
B
16、在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1),然后编写如下事件过程:
PrivateSubCommand1_Click()
x=0
DoWhilex<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
EndSub
程序运行后,单击命令按钮,在两个文本框中显示的值分别为()。
A.1和0
B.2和72
C.3和50
D.4和168
参考答案:
B您的答案:
B
17、在窗体上画一个命令按钮,名称为Command1。
然后编写如下程序:
PrivateSubCommand1_Click()
Fori=1To4
Forj=0Toi
PrintChr$(65+i);
Nextj
Print
Nexti
EndSub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是()。
A.
B.
C.
D.
参考答案:
A您的答案:
A
18、阅读下面的程序:
OptionBase1