《vb程序设计及应用》课后作业

《VB程序设计及应用》课后作业

说明：建议完成教材中所有的习题，并完成部分《VisulBasic程序设计实训及考试指导》中的部分习题。

作业1

一、选择题

(1)从功能上讲，VisualBasic6.0有3种版本，下列不属于这3种版本的是。

A)学习版

B)标准版

C)专业版

D)企业版

(2)与传统的程序设计语言相比，VisualBasic最突出的特点是。

A)结构化程序设计

B)程序开发环境

C)事件驱动编程机制

D)程序调试技术

(3)在正确安装VisualBasic6.0后，可以通过多种方式启动VisualBasic。以下方式中，不能启动Visual

Basic的是。

A)通过“开始菜单”中的“程序”命令

B)通过“我的电脑”找到VB6.exe,双击该文件名

C)通过“开始”菜单中的“运行”命令

D)进入DOS方式，执行VB6.exe文件

(4)为了用键盘打开菜单和执行菜单命令，第一步应按的键是。

A)功能键F10或Alt

B)Shift+功能键F4

C)Ctrl或功能键F8

D)Ctrl+Alt

(5)VisualBasic6.0集成环境的主窗口中不包括。

A)标题栏

B)菜单栏

C)状态栏

D)工具栏

(6)用标准工具栏中的工具按钮不能执行的操作是。

A)添加工程

B)打印源程序

C)运行程序

D)打开工程

(7)VisualBasic窗体设计器的主要功能是。

A)建立用户界面

B)编写源程序代码

C)画图

D)显示文字

(8)以下正确的叙述是。

A)用属性窗口只能设置窗体的属性

B)用属性窗口只能设置控件的属性

C)用属性窗口只能设置窗体和控件的属性

D)用属性窗口只能设置对象的属性

(9)不属于VB三种工作模式的是()。

A:设计模式B:运行模式C:调试模式D:中断模式

(10)从功能上讲，VisualBasic6.0有3种版本，下列不属于这3种版本的是()。

A:学习版B:免费版C:专业版D:企业版

二、填空题

1、VisualBasic6.0分为3种版本，这3种版本是、和。

2、可以通过多种方式启动VisualBasic,其中的两种方式是和。

3、可以通过菜单中的命令退出VisualBasic(.

4、退出VisualBasic的快捷键是。

5、VisualBasic6.0的菜单栏共有个主菜单项。

6、快捷键Ctrl+O的功能相当于执行菜单中的命令；或者相当于单击工具栏上的

按钮。

7、如果打开了不需要的菜单或对话框，可以用键关闭。

8、工程文件的扩展名是,窗体文件的扩展名是。

9、VisualBasic中的菜单栏有两种形式，分别为形式和形式。

10、在VB中，最基本的对象是

作业2

一、选择题

(1)下列叙述中正确的是。

A)只有窗体才是VisualBasic中的对象

B)只有控件才是VisualBasic中的对象

C)窗体和控件都是VisualBasic中的对象

D)窗体和控件都不是VisualBasic中的对象

(2)下列可以激活属性窗口的操作是o

A)用鼠标双击窗体的任何部位

B)执行“工程”菜单中的“属性窗口”命令

C)按Ctrl+F4键

D)按F4键

(3)下列不能打开工具箱窗口的操作是。

A)执行“视图”菜单中的“工具箱”命令

B)按Alt+F8

C)单击工具栏上的“工具箱”按钮

D)按Alt+V,然后按X键

(4)假定已在窗体上画了多个控件，并有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先

应执行的操作是。

A)单击窗体上没有控件的地方

B)单击任一个控件

C)不执行任何操作

D)双击窗体的标题栏

(5)为了把窗体上的某个控件变为活动的，应执行的操作是。

A)单击窗体的边框

B)单击该控件的内部

C)双击该控件

D)双击窗体

(6)确定一个控件在窗体上的位置的属性是。

A)Width或Height

B)WidthflHeight

C)Top或Left

D)Top和Left

(7)为了确定一个窗体或控件的大小的属性是。

A)Width或Height

B)Width和Height

C)Top或Left

D)Top和Left

(8)为了同时改变一个活动控件的高度和宽度，正确的操作是。

A)拖拉控件4个角上的某个小方块

B)只能拖拉位于控件右下角的小方块

C)只能拖拉位于控件左下角的小方块

D)不能同时改变控件的高度和宽度

(9)关于VB源代码的编写，下列说法错误的是()。

A)VB源代码中不区分字母的大小写

B)同一行可以写多个语句

C)可以适当添加注释有利于程序的维护和调试

D)一个语句必须写在一行中，不可分成多行来书写

(10)VisualBasic窗体设计器的主要功能是()。

A)建立用户界面

B)编写源程序代码

C)画图

D)显示文字

二、填空题

1、属性窗口分为4个部分，这4个部分分别是、、和。

2、假定一个文本框的Name属性为Textl,为了在该文本框中显示“Hello!”，所使用的语句为。

3、VisualBasic中的控件分为3类，它们是、和。

4、一个控件在窗体上的位置由和属性决定，其大小由和属性决定。

5,为了选择多个控件，可以按住键，然后单击每个控件。

6、要同时选中窗体的多个控件，可以按住或键，然后依次单击窗体上各个控件。

7、在代码窗口中，输入某行代码并按回车键后，如果代码变成颜色，该行代码有语法错误。

作业3

一、选择题

(1)下列可作为VisualBasic的变量名的是。

A)4*Delta

B)Alpha

C)4ABC

D)ABH

(2)下列可作为VisualBasic的变量名的是。

A)Filename

B)A(A+B)

C)254D

D)Print

(3)下列可作为VisualBasic中所允许的形式的数是

A)±25.74

B)3.457E-100

C)368

D)1.87E+50

(4)下列可以作为VisualBasic中所允许的形式的数是—

A)10(1.256)

B)D32

C)2.5E

D)12E3

(5)下面的数写成普通的十进制数是。

8.6787E+8

A)86787000

B)867870000

C)8678700

D)8678700000

(6)设a=2,b=3,c=4,d=5,下列表达式的值是

a>bandc<=dOR2*a>c

A)True

B)False

C)-1

D)1

(7)设a=2,b=3,c=4,d=5,下列表达式的值是

3>2*bORa=cANDbocORc>d

A)1

B)True

C)False

D)-1

(8)设a=2,b=3,c=4,d=5,下列表达式的值是

NOTa<=cOR4*c=b2ANDboa+c

A)-1

B)1

C)True

D)False

(9)下列不属于常量的是()。

A)12

B)“ch”

C)abc

D)1.23

(10)下列可作为VisualBasic的变量名的是()

A)Abt

B)TAB

C)IF

D)A[B]T

二、填空题

1下面VisualBasic表达式有错误其正确的形式是

CONTT.DE+COS(28°)

2下面VisualBasic表达式有错误其正确的形式是

-3/8+INT24.8

3下面VisualBasic表达式有错误其正确的形式是

(8+6)A(44--2)+SIN(2*n)

4下面VisualBasic表达式有错误其正确的形式是

[(x+y)+z]X80-5(C+D)

5、与下列数学式子对应的VisualBasic表达式是

cos(c+d)'(c+d)为弧度

6、与下列数学式子对应的VisualBasic表达式是

5+(a+b)2

7、与下列数学式子对应的VisualBasic表达式是

cos(x)(sin(x)+l)

8、与下列数学式子对应的VisualBasic表达式是

e2+2

9、与下列数学式子对应的VisualBasic表达式是

2a(7+b)

10、与下列数学式子对应的VisualBasic表达式是

8e3»ln2

(假定以下操作在立即窗口中执行)

11以下语句的输出结果是

printchr$(65)<CR>，CR为回车，下同

12以下语句的输出结果是

Printsgn(2)<CR>

13、执行以下语句后，果输出是结_______

a$=^^Good^^<CR>

b$=^^Moming^^<CR>

printa$+b$<CR>

printa$&*b$<CR>

14、执行以下语句后输出结果是

a$="ABCDEFGHIJK”<CR>

printleft$(s$,4)<CR>

printright$(s$,4)<CR>

15、执行以下语句后输出结果是

s$="ABCDEFGHIJK^^<CR>

b$=^^Moming,,<CR>

printmid$(s$,3,4)<CR>

printlen(s$)<CR>

16、自定义的数据类型需要在模块的中进行声明。

17、设a=2,b=3,c=6,则表达式Nota>corc=b八二andboa+c的值为.

作业4

一、选择题

(1)假定Pictruel和Textl分别为图片框和文本框的名称，下列不正确的语句是。

A)Print25

B)Pictruel,Print25

C)Textl,Print25

D)Debug,Print25

(2)以下程序段的输出结果是

a=Sqr(3);b=Sqr(2)

c=a>b

Printc

A)-1

B)0

C)False

D)True

(3)以下语句的输出结果是o

PrintFormat(32548.5,”000,000.00”)

A)32548.5

B)32,548.5

C)032,548.50

D)32,548.50

(4)执行以下程序段后，变量c$的值为o

a$="VisualBasicProgramming^^

b$=^^Quick,,

c$=b$&UCase(Mid(a$,7,6))&Right$(a$,ll)

A)VisualBASICProgramming

B)QuickBasicProgramming

C)QUICKBasicProgramming

D)QuickBASICProgramming

(5)表达式4+5\6*7/8Mod9的值是。

A)4

B)5

C)6

D)7

(6)要让菜单项不显示出来，应将()属性值设置为False。

A)Visible

B)Enabled

C)Enabled

D)Checked

(7)可用来清除窗体内容的方法是()。

A)Print

B)InputBox

C)Cis

D)Clear

二、填空题

1、语句Print”25+32=";25+32的输出结果是

2、以下语句的输出结果是o

s$="China"；s$="Beijing”

Prints$

3、以下语句的输出结果是。

a%=3.14156

Printa%

4、阅读程序：

PrivateSubForm_Click()

Dima,b,c,dAsInteger

a=10

b=15

c=20

d=25

Printa;Spc(5);b;Spc(7);c

Printa;Space$(8);b;Space$(5);c

Printc;Spc(3);Spc(3);d;

PrintSpc(3);n=n;Spc(3);c+d

EndSub

运行上面的程序，单击窗体，输出结果是、

5、窗体控件的属性一般可在窗口中可以改变

6、假定程序中有以下语句：

I=MsgBox("Stringl","String2","String3”,2)

执行该语句后，将显示一个信息框，此时如果单击“确定”按钮，则I的值为

作业5

一、选择题

(1)假定有以下程序段

Fori=lto3

Forj=5to1Step-1

Printi*j

Nextj,i

则语句Printi*j的执行次数是。

A)15

B)16

C)17

D)18

(2)以下程序段的输出结果是

x=l

y=4

DoUntily>4

x=x*y

y=y+l

Loop

Printx

A)1

B)4

C)8

D)20

(3)设a=6,则执行

x=IIf(a>5,-1,0)

后，x的值为°

A)5

B)6

C)0

D)-1

(4)执行下面的程序段后，x的值为

x=5

Fori=lto2-Step2

x=x+i\5

Nexti

A)21

B)22

C)23

D)24

(5)阅读下面的程序段：

Fori=lto3

Forj=ltoi

Fork=jto3

a=a+l

Nextk

Nextj

Nexti

执行上面的3重循环后，a的值为。

A)3

B)9

C)14

D)21

(6)以下不是结构化程序设计的基本控制结构的是()。

A)逆序结构

B)顺序结构

C)选择结构

D)循环结构

⑺以下过程是()事件。

PrviateSubForm_Load()

EndSub

A)命令按钮的单击

B)命令按钮的装载

C)窗体的装载

D)窗体的单击

二、填空题

(1)执行下面的程序段后，S的值为。

s=5

Fori=2.6To4.9Step0.6

s=s+l

Nexti

(2)以下程序段的输出结果是。

num=0

Whilenum<=2

num=num+l

Printnum

Wend

(3)设有以下的循环：

x=l

Do

x=x+2

Printx

LoopUntil

运行程序后，要求执行3次循环体，请填空。

(4)以下循环的执行次数是。

k=0

DoWhilek<=10

k=k+l

Loop

三、程序题

1.求200到400间，能被3整除但不能被7整除的数的个数。程序中有两行有错误。改正错误，使它能

输出正确的结果。

PrivateSubCommandl_Click()

DimcountAsInteger

DimxAsInteger

count=0

x=200

Whilex<=400

IfxMod3=0OrxMod7<>0Then

count=count+1

EndIf

X=X+1

Loop

Printcount

EndSub

2.编程序求四位数的奇数中，所有各位数字之积(且不为0)是600的倍数的数之和。

3.编程求1到5000之间的能被5整除的前若干个偶数之和，当和大于500时，终止求和，并输出该和。

4.已知Sl=l,S2=l+2,S3=l+2+3,…,SN=l+2+3+...+N,求Sl,S2,S3,...,S100中，有多少个能被3和7整除?

作业6

一、选择题

(1)用下面的语句所定义的数组的元素个数是。

DimA(-3to5)AsInteger

A)6

B)7

C)8

D)9

(2)用下面的语句所定义的数组的元素个数是。

Dimarr(3to5,-2to2)

A)20

B)12

C)15

D)24

(3)在窗体上添加一个命令按钮(其Name属性为Commandl),然后编写如下代码:

OpionBase1

PrivateSubCommand1_Click()

Dima

a=Attry(l,2,3,4)

j=l

Fori=4to1Step-1

s=s+a(i)3

j=j*10

Nexti

Prints

EndSub

运行上面的程序，单击命令按钮，其输出结果是0

A)4321

B)12

C)34

D)1234

(4)在窗体上添加一个命令按钮(其Name属性为Commandl),然后编写如下代码:

OptionBase1

PrivateSubCommand1_Click()

Dima(4,4)

Fori=lto4

Forj=lto4

a(i,j)=(i-l)*3+j

Nextj

Nexti

Fori=3to4

Forj=3to4

Printa(j,i);

Nextj

Print

Nexti

EndSub

运行上面的程序，单击命令按钮，其输出结果是。

A)69

710

B)710

811

C)811

912

D)912

1013

(5)若要将窗体卸载，实现的方法为()。

A)Unload

B)Load

C)Show

D)Hide

(6)窗体的背景颜色由()属性设置。

A)BorderStyle

B)BackColo

C)ForeColor

D)FillStyle

二、填空题

1、控件数组的名字由属性指定，而数组中的每个元素由属性指定。

2、由Array函数建立的数组的名字必须是类型。

3、在窗体上添加一个命令按钮(其Name属性为Commandl),然后编写如下代码:

PrivateSubCommand1_Click()

DimM(10)AsInteger

Fork=lto10

M(k)=12-k

Nextk

x=6

PrintM(2+M(x))

EndSub

运行程序后，单击命令按钮，输出结果是O

4、在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码:

PrivateSubCommand1_Click()

Dima(5,5)

Fori=lto3

Forj=lto4

a(i,j)=i*j

Nextj

Nexti

Forn=lto2

ForM=1to3

Printa(M,n);

NextM

Nextn

EndSub

程序运行后，单击命令按钮，输出结果是O

5、确定一个窗体大小的属性是和o

6、改变一个窗体的标题内容，则应该设置_______属性的值。

三、编程题

1、2、设有如下两组数据：

A：2,8,7,6,4,28,70,25

B：79,27,32,41,57,66,78,80

编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标元素相加，即2+79,

8+27,25+80,并把相应的结果放入第3个数组中，最后输出第3个数组的值。

2、编写程序，建立并输出一个10X10的矩阵，该矩阵对角线元素为1，其余元素均为0。

作业7

一、选择题

1.决定窗体标题栏显示内容的属性是：()

(A)text(B)name(C)Caption(D)BackStyle

2.当窗体最小化时为一个图标，设置这个图标属性是()

(A)Mouselcon(B)Icon(C)Picture(D)MousePointer

3.为了取消窗体的最大化功能，需要把它的一个属性设置为false,这个属性是()

(A)ControlBox(B)MinButton(C)Enabled(D)MaxButton

4.为了使命令按钮的Picture,DownPicture>DisablePicture属性生效，必须把它的Style的属性设置为()

(A)0(B)l(C)True(D)False

5.决定窗体有无控制菜单的属性是()

(A)ControlBox(B)MinButton(C)Enabled(D)MaxButton

6.为了使文本框同时具有水平和垂直滚动条，应先把Multiline属性设置为True,然后再把ScrollBars属

性设置为()

(A)0(B)l(C)2(D)3

7.使文本框获得焦点的方法是()

(A)Change(B)GetFuocus(C)SetFocus(D)LostFocus

8.决定标签内显示内容的属性是()

(A)Text(B)Name(C)Alignment(D)Caption

9.删除列表框中指定项目所使用的方法是()

(A)Move(B)Remove(C)Clear(D)Removeltem

10.用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是()

(A)List(B)Listltem(C)Text(D)ListCount

11.以下选项中，不属于单选按钮属性的是()。

(A)EnabledB:CaptionC:NameD:Min

12.当滚动条中的滑块位置变化时，将触发其()事件。

(A)LostFocusB:SetFocusC:ChangeD:GetFocus

二、填空题

1.假定有一个文本框Textl,为了使该文本框具有焦点，应执行的语句是o

2.假定当前文件夹下有一个名为Picl.gif的图形文件，要在运行期间，把该文件装入一个图片框Picturel,

应执行的语句为：o

3.窗体、图片框或图像框中的图形通过对象的_______________属性设置。

4.计时器事件之间的间隔通过_______________属性设置。

5.在3种不同类型的组合框中，只能选择不能输入的是o

6.当焦点进入文本Textl框时，要自动选定文本框内开始的5个字符，则需要代码和

—来实现。

三、实训

1.编写程序，用文本框检查口令输入。在窗体上建立1个文本框、1个图片框和3个命令按钮，把文本

框的PasswordChar属性设置为“*”，把3个命令按钮的标题分别设置为“开始”、“检查口令”和

“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中，接着

在文本框中输入口令，然后单击第2个按钮，检查输入的口令是否正确。如果正确，则在图片框中显

示一个图形，否则显示一个信息框，要求重新输入，此时将调用第1个按钮的Click事件过程，再一次

在文本框中输入口令，直到输入正确的口令为止。如果单击“结束”按钮，则结束程序。

2.编写程序，根据身高计算标准体重，计算公式如下:

男标准体重(kg)=身高一100

女标准体重(kg)=身高一105

要求如下：

(I)单行按钮“男”的Value=True

(2)单击“计算”按钮，根据输入的身高和性别计算相应性别的标准体重，并显示在文本框中；

(3)单击“结束”按钮，结束程序运行。

(4)以Myfrm2和Myprj2分别将窗体和工程保存在软件的根目录下。

3.编程实现下列界面功能，要求院系与专业之间能够联动，按“确定”后，MsgBox给出学生信息提示,

按“取消”，则所有录入数据取消，并把焦点移动到学生姓名的文本框。

□

作业8

一、选择题

1.假定在窗体上建立1个通用对话框，其名称为CommonDialogl,用下面的语句可以建立1个对话框:

CommonDialogl.Action=2,与该语句等价的语句是()

(A)CommonDialogl.ShowOpen(B)CommonDialogl.ShowSave

(C)CommonDialogl.ShowColor(D)CommonDialogl.ShowFont

2.假定在窗体上建立1个通用对话框，其名称为CommonDialogl,然后再添加1个命令按钮，并编写

如下事件过程：

PrivateSubCommandl_Click()

CommandDialog1.Flags=vbOFNHideReadOnly

CommandDialogl.Filter=,,AllFiles(*.*)l*.*ITextFiles(*.txt)l*.txtlBatchFiles(*.bat)l*.baf,

CommandDialog1.Fiterlndex=2

CommandDialogl.ShowOpen

msgBox.CommandDialogl.FileName

EndSub

程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是()

(A)AllFiles(*.*)(B)TextFiles(*.txt)

(C)BatchFiles(*.bat)(D)不确定

3.在通过对话框的()属性中，可以设置所打开对话框的“默认路径”。

(A)FileNameB:InitDirC:Pattern

4.打开通用对话框的“帮助”对话框的方法是()

(A)ShowOpenB:ShowSaveC:ShowHelpD:ShowFont

二、填空题

1.设置通用对话框Action的属性为,可打开“别存为”对话框。

2.设置通用对话框Action的属性为,可打开“颜色”对话框。

3.设置通用对话框Action的方法为,可打开“字体”对话框。

作业9

一、选择题

1.已知一窗体上命令按钮Command1的Click事件代码如下，则单击Commandl后，文本中的背景颜色

为()色。

PrivateSubCommandl_Click()

Textl.Text="湖南省"&“计算机”+”等级考试”

Text1.ForeColor=vbRed

Textl.BackColor=vbGreen

Textl.FontBold=True

EndSub

(A)红B:绿C:白D:黄

2.在VB的图形属性中，()表示绘图的前景颜色。

(A)BackColorB:ForeColorC:FillColorD:PenColor

二、填空题

1.利用Shape控件可以设置__________种形状的图形。

2.利用Shape控件的Shape属性可以设置圆图形，取值为。

三、实训

1.利用直线控件，在窗体上画出6条粗细不同的水平实线和7条不同类型的垂直线，要求水平线具有不

同的颜色，宽度逐渐增加。垂直线具有不同的颜色和线型。

2.利用画圆方法，在窗体上画出一个大圆，并在其中画出4个同心的椭圆。

0a

作业10

一、选择题

1.下列不能打开菜单编辑器的操作是()

(A)按Ctrl+E键(B)单击工具栏中的“菜单编辑器”按钮

(C)执行工具栏菜单中的“菜单编辑器”命令(D)按Shift+Alt+M键

2.假定有一个菜单项，名为Menuitem,为了在运行时使该菜单项失效，应使用的语句为()

(A)MenuItem.Enabled=False(B)MenuItem.Enabled=True

(C)Menuitem.Visible=False(D)Menuitem.Visible=False

3.VB中的菜单()。

(A)有组合式菜单和列表式菜单B:有下拉式菜单和弹出式菜单

C:只有弹出式菜单D:只有下拉式菜单

4.要让菜单项不显示出来，应将()属性值设置为Falseo

(A)VisibleB:EnabledC:Checked

二、填空题

1.假定有一个菜单项，名为Menltem,为了在运行时使该菜单项不可用，应使用的正确语句是:

2.建立弹出式菜单必须用PopupMenu方法弹出显示。必须把菜单名(即主菜单项)的“可见”属性,

设置为。

三、实训

1.设计下列菜单，并指定相应的快捷方式

系统管理M校系班级管理C帮助H退出X

管理员增加A学校信息增加帮助L

管理员修改E学校信息修改关于A

管理员删除D学校信息删除

管理员浏览B学校信息浏览

密码修改P学校信息配置G

院系信息增加

院系信息修改

院系信息删除

院系信息浏览

班级信息增加

班级信息修改

班级信息删除

班级信息浏览

作业11

一、选择题

1.要在D盘的当前文件夹下建立一个名为“Stu.txt”的顺序文件，应使用的语句是()

(A)Open"stu.txt"foroutputas#2

(B)Open"d:stu.txt''forInputas#2

(C)Open"d:stu.txt"foroutputas#2

(D)Open"stu.txt"forInputas#2

2.改变驱动器列表框的Drive属性值将激活()事件

(A)change(B)Drive

(C)Dir(D)Path

3.在文件列表框中，用于设置或返回所选文件的路径和文件名的属性是()

(A)File(B)FilePath

(C)Path(D)FileName

4.在用Open语句打开文件时，如果省略"For”方式，则打开的文件的存取方式是()

(A)顺序输入方式(B)顺序输出方式

(C)随机存取方式(D)二进制方式

5.VB提供的三种访问文件的模式中，不