最新网上农大VB语言程序的设计课程作业答案4套文档格式.docx
《最新网上农大VB语言程序的设计课程作业答案4套文档格式.docx》由会员分享,可在线阅读,更多相关《最新网上农大VB语言程序的设计课程作业答案4套文档格式.docx(32页珍藏版)》请在冰点文库上搜索。
![最新网上农大VB语言程序的设计课程作业答案4套文档格式.docx](https://file1.bingdoc.com/fileroot1/2023-5/9/c71b17cb-24b5-4422-a400-472b0ce0a3fa/c71b17cb-24b5-4422-a400-472b0ce0a3fa1.gif)
B.双击文本框
C.鼠标滑过文本框
D.按下键盘上的某个键
8、为了装入一个VB应用程序,应当()。
A.只装入窗体文件(.frm)
B.只装入工程文件(.vbp)
C.分别装入工程文件和标准模块文件(.bas)
D.分别装入工程文件、窗体文件和标准模块文件
9、当窗体最小化时缩小为一个图标,设置这个图标的属性是()
A.Mouselcon
B.Icon
C.Picture
D.MousePoint
10、为了取消窗体的最大化功能,需要把它的一个属性设置为False,这个属性是()
A.ControlBox
B.MinButton
C.Enabled
D.MaxButton
11、决定窗体有无控制菜单的属性是()
12、下列操作中不能向工程中添加窗体的是()
A.执行“工程”菜单中的“添加窗体”命令
B.单击工具栏上的“添加窗体”按钮
C.右击窗体,在弹出的菜单中选择“添加窗体”命令
D.右击工程资源管理器,在弹出的菜单中选择“添加”命令,然后在下一级菜单
中选择“添加窗体”命令
13、当一个工程含有多个窗体时,其中的启动窗体是()
A.启动VisualBasic时建立的窗体
B.第一个添加的窗体
C.最后一个添加的窗体
D.在“工程属性”对话框中指定的窗体
14、为了在按下Esc键时执行某个命令按钮的事件过程,需要把该按钮的哪个属性设为
True()。
A.Value
B.Default
C.Cancel
D.Enabled
15、用菜单编辑器创建菜单时,
如果要在菜单中添加一条分隔线,正确的操作是()。
A.在标题输入框中输入“
-”(减号)
B.在名称输入框中输入“
C.在标题输入框中输入“
(下划线)
D.在名称输入框中输入“
16、在显示菜单时,菜单的哪个属性为True时将用灰色显示该菜单项标题()
A.Caption
B.Checked
D.Visible
17、使文本框获得焦点的方法是()
A.Change
B.GotFocus
C.SetFocus
D.LostFocus
18、为了使标签框控件覆盖背景,应把BackStyle属性设置为()
A.0
B.1
C.True
D.False
19、在窗体上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command),然后编写如下两个事件过程:
PrivateSubCommand1_Click()
a=Text1.Text+Text2.Text
Printa
PrivateSubForm_Load()
Text1.Text="
"
Text2.Text="
程序运行后,在Text1和Text2中分别输入123和321,然后单击命令按钮,则输出结
果为()。
A.444
B.321123
C.123321
D.132231
20、当拖动滚动条中的滚动块时,将触发滚动条的事件是()。
A.Move
B.Change
C.Scroll
D.SetFocus
第2套
1、以下语句Print3+4\5*6/7Mod8的输出结果是()
A.3
B.4
C.5
D.6
2、下面不是VB的数据类型的是()。
A.Currency
B.Bool
C.Object
D.Single
3、下列可作为VB的变量名的是()
A.3*Delta
4、下面的数2.65358979335278E-06写成普通的十进制数是()
A.0.0000265358979335278
B.0.00000265358979335278
C.0.000265358979335278
D.0.000000265358979335278
5、下面的数1.21576654590569E+19写成普通的十进制数是()
A.12157665459056900
B.121576654590569000
C.1215766545905690000
D.12157665459056900000
6、设a=2,b=3,c=4,d=5,下列表达式Nota<
=cOr4c=bA2Andb<
>
a+c的值是()。
A.-1
7、语句Print55\5/5的输出结果是()
A.5
B.25
C.0
D.1
的输出结果是()
8、语句PrintSgn(-6^2)+Int(-6A2)+Int(6A2)
A.-36
C.-1
D.-72
9、以下语句的输出结果是()。
a=Sqr(3)
PrintFormat(a,"
$$####.###"
)
A.$1.732
B.$$1.732
C.$1732
D.$$0001.732
10、以下程序段的输出结果是(
b=Sqr
(2)
c=a>
b
Printc
B.$$1,732
11、表达式4+5\6*7/8Mod9的值是()
A4
B.5
C.6
D.7
12、一个语句如果在下一行继续写,应在本行尾部加符号()
A.,
B.:
C._
D.;
13、假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是()
APrint25
B.Picture1.Print25
C.Text1.Print25
D.Debug.Print25
)。
(A表示空格)
14、以下语句的输出结果是(
a=27
b=65
Printa;
A.27A65
B.A27A65
C.27AA65
D.A27AA65
15、在窗体上画一个命令按钮,然后编写如下事件过程:
DimaAsInteger,bAsInteger
a=InputBox("
EntertheFirstinteger"
b=InputBox("
EntertheSecondinteger"
Printb+a
程序运行后,单击命令按钮,先后在输入对话框中输入456和123,则输出结果是
()°
A.579
B.123
C.456
D.123456
16、执行下面的语句后,所产生的消息框的标题是()
a=MsgBox("
AAAA"
,"
BBBB"
"
5)
A.BBBB
B.空
C.AAAA
D.实时错误,不能产生消息框
17、对用MsgBox显示的消息框,以下叙述中错误的是()
A.可以有一个按钮
B.可以有两个按钮
C.可以有三个按钮
D.可以有任意多个按钮
18、假定有如下的窗体事件过程:
a="
VisualBasic程序设计”
b=Left(a,6)
c=Mid(a,8)
MsgBoxb,34,c
程序运行后,单击命令按钮,则在弹出的消息框的标题栏中显示的信息是()
19、设有语句x=InputBox("
输入数值"
"
示例"
20"
)程序运行后,如果从键盘上
输入数值10并按回车键,则下列叙述中正确的是()。
A.变量x的值是数值型数据10
B.变量x的值是字符串型数据"
10"
C.10是默认值
D.在InputBox对话框标题栏中显示的是“输入数值"
后,x的值为()
20、设a=6,贝V执行x=llf(a>
5,-1,0)
B.6
D.-1
第3套
1、设有函数
则下列能正确计算该函数值的
语句是()。
A.Ifx<
0Thenr=1
ElseIfx>
0Then
EndIf
B.Ifx<
C.Ifx<
0Then
r=1
Else
r=2
D.r=lf(x<
0,1,2)
2、在窗体上画两个名称分别为Label1和Label2的标签,然后编写如下事件过程:
PrivateSubForm_Click()
x=-5:
s=-5
SelectCases
CaseIs>
0
y=x+1
=0
y=x+2
CaseElse
y=x+3
EndSelect
Label1.Caption=x
Label2.Caption=y
程序运行后,单击窗体,标签Labell和Label2中显示的内容分别是()
A-5和-2
B.-5和-4
C.-5和-3
D.-5和-5
A.Align
B.Alignment
C.Sorted
D.Value
4、下列程序段的执行结果为()。
x=2:
y=1
*
Ifxy<
1Theny=y-1Elsey=y+1
Printy-x>
A.True
B.False
5、下列程序段的执行结果为()
x=3:
y=4
Ifx<
yThenPrinty;
:
Printx
C.34
D.43
6、下列程序的执行结果为()
x=15
Ifx>
0Thena=1
10Thena=2
20Thena=3
30Thena=4
A.1
B.2
C.3
D.4
7、通过改变单选按钮控件的什么属性值,可以改变单选按钮的选取状态()
B.Style
C.Appearanee
D.Caption
8、在窗体上画两个单选按钮,名称分别为Option1和Option2,标题分别为“宋体”
和“黑体”;
一个复选框,名称为Cheekl,标题为"
粗体”;
一个文本框,名称为Textl,Text属性为“改变文字字体”。
要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中,则能够实现上述要求的语句序列是()。
A.Optionl.Value=True
Checkl.Value=False
B.Optionl.Value=True
Checkl.Value=True
C.Option2.Value=False
D.Optionl.Value=True
Checkl.Value=1
9、下面控件中,用于将对象分组的是()
A.窗体
B.文本框
C.复选框
D.框架
10、下列代码的运行结果是()。
If3-2Then
a=10
Elself(10/2)=6Then
a=20
a=30
A.10
B.20
C.30
D.不确定
11、阅读下面的程序:
Dimm,nAsInteger
m=InputBox("
请输入M的值"
m=Val(m)
m1=m
n=InputBox("
请输入N的值"
n=Val(n)
n1=n
DoWhilenv>
remin=mModn
m=n
n=remin
Loop
Printml,n1,m
程序运行后,单击窗体,在输入对话框中分别输入16和24,在程序在窗体上的输出结
果为(
。
A.
16
24
4
B.
8
C.
6
D.
12、阅读下面的程序:
DimCheck,Counter
Check=True
Counter=0
Do
DoWhileCounter<
20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDo
LoopUntilCheck=False
PrintCounter.Check
15
20
-1
10
True
False
13、假定有以下循环结构
DoUntil条件
循环体
则正确的描述是()。
A.如果“条件”是一个为0的常数,则一次循环体也不执行
B.如果“条件”是一个为0的常数,贝阮限次执行循环体
C.如果“条件”是一个不为0的常数,则至少执行一次循环体
D.不论“条件”是否为“真”,至少要执行一次循环体参考答案:
14、执行下面的程序段后,x的值为()。
x=5
Fori=1To20Step2
x=x+i\5
Ne
xti
21
25
15、在窗体上画一个命令按钮,然后编写如下事件过程:
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
Printx
程序运行后,单击命令按钮,输出结果是()
A.7
B.15
C.157
D.538
16、在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command),然后编写如下事件过程:
x=0
DoWhilex<
50
x=(x+2)*(x+3)
n=n+1
Text1.Text=Str(n)
Text2.Text=Str(x)
程序运行后,单击命令按钮,在两个文本框中显示的值分别为(
A.1和0
B.2和72
C.3和50
D.4和168
17、在窗体上画一个命令按钮,名称为Command。
然后编写如下程序:
Forj=0Toi
PrintChr$(65+i);
Print
程序运行后,如果单击命令按钮,则在窗体上显示的内容是()
B.
18、阅读下面的程序:
OptionBase1
DimArr(4,4)AsInteger
Forj=1To4
Arr(i,j)=(i-1)*2+j
Fori=3To4
Forj=3To4
PrintArr(j,i);
程序运行后,单击窗体,输出结果是()
5
7
9
11
19、用下面的语句所定义的数组的元素个数是(
Dimarr(3To5,-2To2)
A.8
B.12
C.15
D.24
20、在窗体上画一个命令按钮,
Name属性为Command,1然后编写如下代码:
DimArr(3)AsInteger
Fori=1To3
Arr(j)=Arr(i)+1
PrintArr(3)
第4套
1、在窗体上画一个名称为Listl的列表框,一个名称为Labell的标签框。
列表框中显
示若干城市的名称,当单击列表框中的某一城市名时,在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是()。
A.PrivateSubList1_Click()
Lbell.Caption=List1.ListIndex
B.PrivateSubList1_Click()
Label1.Name=List1.ListIndex
C.PrivateSubList1_Click()
Label1.Name=List1.Text
D.PrivateSubList1_Click()
Label1.Caption=List1.Text
2、删除列表框中指定的项目所使用的方法为(
B.Remove
C.Moveitem
D.Removeitem
3、可唯-
标志控件数组中某一个控件的属性是(
)°
Name
Index
Caption
TabIndex
4、阅读下面的程序:
FunctionFunc(xAsInteger,yAsInteger)AsInteger
DimnAsInteger
DoWhilen<
=4
x=x+y
Func=x
EndFunction
PrivateSub