VB语言程序设计在线作业3.docx
《VB语言程序设计在线作业3.docx》由会员分享，可在线阅读，更多相关《VB语言程序设计在线作业3.docx（10页珍藏版）》请在冰豆网上搜索。
VB语言程序设计在线作业3
VB语言程序设计_在线作业_3
一、单选题 （ 每题5分, 共20道小题, 总分值100分 ）
1.
通过设置Line控件的什么属性，可以绘制虚线、点划线等多种样式的直线（ D ）。
（5分）
∙A. Style
∙B. DrawStyle
∙C. FillStyle
∙D. BorderStyle
是否存疑
2.
在窗体上画两个单选按钮，名称分别为Option1和Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1，标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。
要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是（ C ）。
（5分）
∙A. Option1.Value=True Check1.Value=False
∙B. Option1.Value=TrueCheck1.Value=True
∙C. Option1.Value=TrueCheck1.Value=1
∙D. Option2.Value=FalseCheck1.Value=True
是否存疑
3.
下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为（ A ）。
（5分）
∙A. Picture1.Picture=LoadPicture（"pic1.jpg"）
∙B. Picture.Handle="pic1.jpg"
∙C. Picture=LoadPicture（"pic1.jpg"）
∙D. Picture="pic1.jpg"
是否存疑
4.
设a=2，b=3，c=4，d=5，下列表达式Nota<=cOr4*c=b^2Andb<>a+c的值是（ D ）。
（5分）
∙A. 1
∙B. True
∙C. -1
∙D. False
是否存疑
5.
假定有以下循环结构
DoUntil 条件
循环体
Loop
则正确的描述是（ C ）。
（5分）
∙A. 如果“条件”是一个不为0的常数，则至少执行一次循环体
∙B. 不论“条件”是否为“真”，至少要执行一次循环体
∙C. 如果“条件”是一个为0的常数，则无限次执行循环体
∙D. 如果“条件”是一个为0的常数，则一次循环体也不执行
是否存疑
6.
确定一个控件在窗体上的位置的属性是（ D ）。
（5分）
∙A. Width和Height
∙B. Width或Height
∙C. Top或Left
∙D. Top和Left
是否存疑
7.
在窗体上画两个名称分别为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中显示的内容分别是（ D ）。
（5分）
∙A. -5和-4
∙B. -5和-3
∙C. -5和-5
∙D. -5和-2
是否存疑
8.
以下程序段的输出结果是（ B ）。
a=Sqr（3）
b=Sqr
（2）
c=a>b
Printc
（5分）
∙A. -1
∙B. True
∙C. False
∙D. 0
是否存疑
9.
阅读下面的程序：
FunctionF（aAsInteger）
Staticc
b=0
b=b+1
c=c+1
F=a+b+c
EndFunction
PrivateSubCommand1_Click（）
DimaAsInteger
a=2
Fori=1To3
PrintF（a）
Nexti
EndSub
运行上面的程序，单击命令按钮，输出结果为（ C ）。
（5分）
∙A. 468
∙B. 444
∙C. 456
∙D. 479
是否存疑
10.
对一个磁盘上的顺序文件进行读操作，打开方式为（ C ）。
（5分）
∙A. Random
∙B. Output
∙C. Input
∙D. Append
是否存疑
11.
图像框控件有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是（ A ）。
（5分）
∙A. Stretch
∙B. Appearance
∙C. AutoRedraw
∙D. AutoSize
是否存疑
12.
为了把窗体上的某个控件变为活动的，应执行的操作是（ D ）。
（5分）
∙A. 单击窗体的边框
∙B. 双击窗体
∙C. 双击该控件
∙D. 单击该控件的内部
是否存疑
13.
下列可作为VB的变量名的是（ C ）。
（5分）
∙A. 3*Delta
∙B. AB∏
∙C. PrintChar
∙D. Abs
是否存疑
14.
在显示菜单时，菜单的哪个属性为True时将用灰色显示该菜单项标题（ B ）。
（5分）
∙A. Visible
∙B. Enabled
∙C. Checked
∙D. Caption
是否存疑
15.
下列程序段的执行结果为（ D ）。
x=2:
y=1
Ifx*y<1Theny=y-1Elsey=y+1
Printy-x>0
（5分）
∙A. -1
∙B. 1
∙C. True
∙D. False
是否存疑
16.
对用MsgBox显示的消息框，以下叙述中错误的是（ B ）。
（5分）
∙A. 可以有两个按钮
∙B. 可以有任意多个按钮
∙C. 可以有一个按钮
∙D. 可以有三个按钮
是否存疑
17.
阅读下面的程序：
SubsubP（b（）AsInteger）
Fori=1To4
b（i）=2*i
Nexti
EndSub
PrivateSubCommand1_Click（）
Dima（1To4）AsInteger
a
（1）=5:
a
（2）=6:
a（3）=7:
a（4）=8
subPa（）
Fori=1To4
Printa（i）
Nexti
EndSub
运行上面的程序，单击命令按钮，输出结果为（ D ）。
（5分）
∙A. 程序出错
∙B. 5678
∙C. 10 121416
∙D. 2 468
是否存疑
18.
阅读下面的程序：
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
程序运行后，单击窗体，输出结果为（ C ）。
（5分）
∙A. 15 0
∙B. 10 True
∙C. 10 False
∙D. 20 -1
是否存疑
19.
当窗体最小化时缩小为一个图标，设置这个图标的属性是（ C ）。
（5分）
∙A. MousePoint
∙B. Picture
∙C. Icon
∙D. MouseIcon
是否存疑
20.
使文本框获得焦点的方法是（ A ）。
（5分）
∙A. SetFocus
∙B. LostFocus
∙C. GotFocus
∙D. Change
升级会员 