VB语言程序设计4套作业参考答案.docx

VB语言程序设计4套作业参考答案.docx

《VB语言程序设计4套作业参考答案.docx》由会员分享，可在线阅读，更多相关《VB语言程序设计4套作业参考答案.docx（47页珍藏版）》请在冰豆网上搜索。

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

  参考答案：

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

　　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