网上农大作业 vb3.docx
- 文档编号:28633834
- 上传时间:2023-07-19
- 格式:DOCX
- 页数:10
- 大小:23.76KB
网上农大作业 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
Ifx Printx 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 窗体底端
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 网上农大作业 vb3 网上 农大 作业