最新网上农大VB语言程序的设计课程作业答案4套.docx

最新网上农大VB语言程序的设计课程作业答案4套.docx

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

最新网上农大VB语言程序的设计课程作业答案4套

VB语言程序设计

第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、在窗体上面画一个名称为Textl的文本框，然后编写如下的事件过程:

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

EndSub

若焦点位于文本框中，则能够触发KeyPress事件的操作是（）。

A.单击鼠标

B.双击文本框

C.鼠标滑过文本框

D.按下键盘上的某个键

参考答案：

D您的答案：

D

8、为了装入一个VB应用程序，应当（）。

A.只装入窗体文件（.frm）

B.只装入工程文件（.vbp）

C.分别装入工程文件和标准模块文件（.bas）

D.分别装入工程文件、窗体文件和标准模块文件

参考答案：

B您的答案：

B

9、当窗体最小化时缩小为一个图标，设置这个图标的属性是（）

A.Mouselcon

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属性为Command），然后编写如下两个事件过程:

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

VB语言程序设计

第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

5、下面的数1.21576654590569E+19写成普通的十进制数是（）

A.12157665459056900

B.121576654590569000

C.1215766545905690000

D.12157665459056900000

参考答案：

D您的答案：

D

6、设a=2，b=3，c=4，d=5，下列表达式Nota<=cOr4c=bA2Andb<>a+c的值是（）。

A.-1

B.1

C.True

D.False

参考答案：

D您的答案：

D

7、语句Print55\5/5的输出结果是（）

A.5

B.25

C.0

D.1

参考答案：

B您的答案：

B

的输出结果是（）

8、语句PrintSgn（-6^2）+Int（-6A2）+Int（6A2）

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的值是（）

A4

B.5

C.6

D.7

参考答案：

B您的答案：

B

12、一个语句如果在下一行继续写，应在本行尾部加符号（）

A.,

B.:

C._

D.;

参考答案：

C您的答案：

C

13、假定Picture1和Text1分别为图片框和文本框的名称，下列不正确的语句是（）

APrint25

B.Picture1.Print25

C.Text1.Print25

D.Debug.Print25

）。

（A表示空格）

参考答案：

C您的答案：

C

14、以下语句的输出结果是（

a=27

b=65

Printa;b

A.27A65

B.A27A65

C.27AA65

D.A27AA65

参考答案：

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

后，x的值为（）

20、设a=6，贝V执行x=llf（a>5,-1,0）

A.5

B.6

C.0

D.-1

参考答案：

D您的答案：

D

VB语言程序设计

第3套

您已经通过该套作业，请参看正确答案

1、设有函数

则下列能正确计算该函数值的

语句是（）。

A.Ifx<0Thenr=1

ElseIfx>0Then

EndIf

B.Ifx<0Then

ElseIfx>0Then

EndIf

C.Ifx<0Then

r=1

Else

r=2

EndIf

D.r=lf（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

程序运行后，单击窗体，标签Labell和Label2中显示的内容分别是（）

A-5和-2

B.-5和-4

C.-5和-3

D.-5和-5

参考答案：

A您的答案：

A

A.Align

B.Alignment

C.Sorted

D.Value

参考答案：

B您的答案：

B

4、下列程序段的执行结果为（）。

x=2:

y=1

*

Ifxy<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.Appearanee

D.Caption

参考答案：

A您的答案：

A

8、在窗体上画两个单选按钮，名称分别为Option1和Option2，标题分别为“宋体”

和“黑体”；一个复选框，名称为Cheekl,标题为"粗体”；一个文本框，名称为Textl,Text属性为“改变文字字体”。

要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是（）。

A.Optionl.Value=True

Checkl.Value=False

B.Optionl.Value=True

Checkl.Value=True

C.Option2.Value=False

Checkl.Value=True

D.Optionl.Value=True

Checkl.Value=1

参考答案：

D您的答案：

D

9、下面控件中，用于将对象分组的是（）

A.窗体

B.文本框

C.复选框

D.框架

参考答案：

D您的答案：

D

10、下列代码的运行结果是（）。

If3-2Then

a=10

Elself（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

DoWhilenv>0

remin=mModn

m=n

n=remin

Loop

Printml,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<20Counter=Counter+1IfCounter=10ThenCheck=FalseExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter.Check

EndSub

程序运行后，单击窗体，标签Labell和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

Ne

xti

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属性为Command），然后编写如下事件过程：

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、在窗体上画一个命令按钮，名称为Command。

然后编写如下程序:

PrivateSubCommand1_Click（）

Fori=1To4

Forj=0Toi

PrintChr$（65+i）;

Nextj

Print

Nexti

EndSub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是（）

A.

B．

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属性为Command,1然后编写如下代码:

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

VB语言程序设计

第4套

您已经通过该套作业，请参看正确答案

1、在窗体上画一个名称为Listl的列表框，一个名称为Labell的标签框。

列表框中显

示若干城市的名称，当单击列表框中的某一城市名时，在标签中显示选中城市的名称。

下列能正确实现上述功能的程序是（）。

A.PrivateSubList1_Click（）

Lbell.Caption=List1.ListIndex

EndSub

B.PrivateSubList1_Click（）

Label1.Name=List1.ListIndex

EndSub

C.PrivateSubList1_Click（）

Label1.Name=List1.Text

EndSub

D.PrivateSubList1_Click（）

Label1.Caption=List1.Text

EndSub

参考答案：

D您的答案：

D

2、删除列表框中指定的项目所使用的方法为（

A.Move

B.Remove

C.Moveitem

D.Removeitem

参考答案：

D您的答案：

D

3、可唯-

标志控件数组中某一个控件的属性是（

）°

A.

Name

B.

Index

C.

Caption

D.

TabIndex

参考答案：

B您的答案：

B

4、阅读下面的程序：

FunctionFunc（xAsInteger,yAsInteger）AsInteger

DimnAsInteger

DoWhilen<=4

x=x+y

n=n+1

Loop

Func=x

EndFunction

PrivateSub