网上农大作业 vb3.docx
《网上农大作业 vb3.docx》由会员分享，可在线阅读，更多相关《网上农大作业 vb3.docx（10页珍藏版）》请在冰点文库上搜索。
网上农大作业vb3
窗体顶端
第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
PrivateSubForm_Click（）
DimArr（4,4）AsInteger
Fori=1To4
Forj=1To4
Arr（i,j）=（i-1）*2+j
Nextj
Nexti
Fori=3To4
Forj=3To4
PrintArr（j,i）;
Nextj
Print
Nexti
EndSub
程序运行后，单击窗体，输出结果是（）。
A．5 7
6 8
B．6 8
7 9
C．7 9
8 10
D．8 10
8 11
参考答案：
C您的答案：
C
19、用下面的语句所定义的数组的元素个数是（）。
Dimarr（3To5,-2To2）
A．8
B．12
C．15
D．24
参考答案：
C您的答案：
C
20、在窗体上画一个命令按钮，Name属性为Command1，然后编写如下代码：
OptionBase1
PrivateSubCommand1_Click（）
DimArr（3）AsInteger
Fori=1To3
Forj=1To3
Arr（j）=Arr（i）+1
Nextj
Nexti
PrintArr（3）
EndSub
程序运行后，单击命令按钮，输出结果是（）。
A．7
B．6
C．5
D．4
参考答案：
C您的答案：
C
窗体底端
升级会员 