VB程序设计复习题及答案.docx

VB程序设计复习题及答案.docx

《VB程序设计复习题及答案.docx》由会员分享，可在线阅读，更多相关《VB程序设计复习题及答案.docx（13页珍藏版）》请在冰豆网上搜索。

VB程序设计复习题及答案

中南大学现代远程教育课程（专科）考试复习题及答案

《VB程序设计与应用》

一、选择题：

在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。

1.VisualBasic程序中分隔一行中各语句的字符是（）。

[]

A）‘

B）:

C）\

D）_

2.下列可作为VisualBasic的变量名的是（）。

[]

A:

FilenameB:

A（A＋B）C:

A%DD:

Print

3.要让菜单项无效，应将（）属性值设置为False。

[]

A.VisibleB.EnabledC.MoveableD.Checked

4.以下过程是（）事件。

PrviateSubForm_Load（）

……

EndSub[]

A:

命令按钮的单击B:

命令按钮的装载

C;窗体的装载D:

窗体的单击

5.Vb中描述文件扩展名的是（）属性。

[]

A:

DriveB:

Pattern

C:

FileNameD:

Path

6.关于VisualBasic中事件的说法中，不正确的为（）。

[]

A）事件是由VisualBasic预先定义好的，能够被对象识别的动作

B）DblClick（双击）是VisualBasic中的一种事件

C）一个对象可以识别一个或多个事件

D）对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义

7.下列控件中可设置滚动条是（）。

[]

A.检查框（复选框）

B.框架

C.文本框

D.标签框

8.在VisualBasic中建立一个空窗体，（）不会是其默认名。

[]

A.Form1B.Form2C.FormxD.Form10

9.ConstOne&=1，则One为（）类型的常数。

[]

A）整型

B）字节型

C）长整型

D）单精度型

10.关于逻辑型数据，下列说法错误的是（）。

[]

A.逻辑型数据只有两种可能值：

True或者False

B.当把逻辑值转换为数值时False转为0，True转为1

C.当把其他类型数据转换为逻辑数据时，非0数转换为True，0转换为False

D.逻辑型数据以2个字节存储

11.以下（）不是VisualBasic的特点。

[]

A:

结构化程序设计B:

集成可视化程序开发环境

C:

事件驱动编程机制D:

可将用户的编程思想自动转换成程序代码

12.窗体的load事件可以被用来实现的功能为（）。

[]

A:

确定窗体的位置B:

从内存中清楚一个窗体

C:

在程序启动时对属性和变量初始化D:

重画窗体

13.单复选框的控件名称为（）。

[]

A.OptionBottonB.CheckBoxC.PictureBoxD.Image

14.若要禁止窗体被移动，可设置窗体的（）属性为False。

A．MoveableB:

MoveC:

MinButtonD:

ControlBox

15.若要设置定时器的定时间隔设为10秒，应将（）属性值设为10000。

[]

A.IntervalB.ValueC.EnabledD.Text

16.以下（）是文件夹列表框。

A.DirListBoxB.DriveListBoxC.FileListBoxD.ComboBox

17.以下（）可从通用对话框的“字体”对话框中返回用户选择的字体名。

A.FileNameB.PathC.FontNameD.Color

18.下列哪个操作可以清除文本框对象Text1的内容（）。

A.Text1.Text=""B.Text1.clsC.Text＝""D.cls

19.要想通过单击Command1弹出Form2窗体，则可在Command1的单击事件中，使用（）命令。

A.LoadForm2B.Form2.ShowC.Form2.SetFocusD.Form2.PopupMenu

20.以下属性中只在运行时起作用的为（）。

A.Caption属性B.Visible属性C.BorderStyle属性D.Picture属性

21.在运行时，若要使文本框获得输入焦点，可调用文本框对象的（）方法来实现。

A.RefreshB.GetFocusC.SetFocusD.Tab

22.在窗体中利用Print方法输出文本信息时，信息的输出位置由（）属性设置。

A.LeftB.TopC.x,yD.CurrentX,CurrentY

23.语句：

Dimstudent（10,5to100）定义的是一个（）维数组。

A.2B.3C.5D.10

24.默认情况下，语句：

Dimstudent（10to11,4）定义的数组有（）个元素。

A.20B.22C.10D.11

25.已知Eng

（1）=90，Math

（1）=80，Comp

（1）=95Total

（1）=Eng

（1）+Math

（1）+Comp

（1），则Total

（1）=（）。

A.265B.90C.80D.95

26.已知在“通用”代码有以下语句：

DimA（）AsInteger

则，在某一事件代码中使用（）是正确的。

A.ReDimA（30,4）B.ReDimA（4）As

C.ReDimA（100）D.ReDimA（）

27.Int（-23.512）的值为（）。

A.-23B.-24C.24D.23

28.将ASCII码转换成字符串的函数是（）。

A.Chr$B.Str$C.AscD.Val

29.表达式Mid（"Beijing2008",4,4）的值是（）。

A.BeijB.jingC.inj2D.2008

30.A$="+3.14+2"，则Val（A$）的值为（）。

A.+3.14+2B.+5.14C.3.14D.5.14

二、填空题：

请把答案填在题中横线上。

1.VisualBasic中有一种控件组合了文本框和列表框的特性,这种控件是_______。

2.VisualBasic提供的对数据文件的三种访问方式为随机访问方式,__________和二进制访问方式。

3.为了能在运行时把d:

\pic文件夹下的图形a.jpg装入图片框Picture1,所使用的语句为___________。

4.计时器控件能有规律的以一定时间间隔触发_______事件,并执行该事件过程中的程序代码。

5.VisualBasic应用程序中标准模块文件的扩展名是____________。

6.与数学表达式cos2（a+b）÷（3+x）+5对应的VisualBasic表达式是_____________.

7.要同时选定窗体上的多个控件,可以按住______或_______键,然后依次单击窗体上的各控件.

8.在VisualBasic中最基本的对象是__________.

9.要在VisualBasic工程中添加一个新的窗体,可以在主窗口的工具栏中选择_______按钮.

10.在代码窗口中,输入某行代码并按回车键之后,如果代码变成______颜色,说明该行代码有语法错误.

三、程序改错：

1.程序功能：

已知24有8个正整数因子（即：

1,2,3,4,6,8,12,24），而24正好被其因子个数8整除。

问[100,300]之间有多少个这样的数。

程序中有两行有错误。

改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）

Dimn1AsInteger,n2AsInteger

DimxAsInteger

DimiAsInteger

n2=0

Forx=100To300

n2=0

Fori=1To100

IfxModi=0Then

n1=n1+1

EndIf

Nexti

IfxModn1=0Then

n2=n2+1

EndIf

Nextx

Printn2

Endsub

2.程序功能：

利用函数pd计算1~5000之间能被17和37整除的数的个数。

程序中有错误，改正错误，使程序能输出正确的结果。

PrivateSubCommand1_Click（）

DimiAsInteger

DimsAsInteger

s=0

Fori=1To5000

Ifpd（i）Thens=s+1

Nexti

Prints

EndSub

PrivateFunctionpd（xAsInteger）AsBoolean

IfxMod17=0OrxMod37=0Then

pd=True

Else

pd=False

EndIf

EndFuction

3.程序功能：

根据整型参数m，计算100-999的平方根的倒数之和。

程序的函数fun（）中有一行有错误，改正错误，使它能输出正确的结果。

PrivateSubCommand1_Click（）

PrintFormat（fun（100,999）,"#.######"）

EndSub

PrivateFunctionfun（mAsInteger,nAsInteger）AsSingle

y=0

Fori=mTon

t=1/Sqr（i）

y=y+t

Nexti

fun=t

EndFunction

四、程序填空题。

1.士兵在演练过程中，队伍变换成10、21、35、60行时，队形都能成为矩形。

问参加演练的士兵最少有多少人？

PrivateSubForm_Click（）

Dima%,b%,c%,d%,n%

a=10

b=21

c=35

d=60

n=60

DoWhile________________________________

n=n+1

Loop

Printn

EndSub

2.用cos（x）≈1－x^2/2!

+x^4/4!

-……+（-1）^（n）*（x^（2n））/（2n）!

的公式求近似值，直到最后一项绝对值小于0.00001为止。

设x＝7。

PrivateSubForm_click（）

DimxAsInteger,iAsInteger

DimxpowerAsSingle

DimyAsSingle

x=Val（InputBox（"请输入x：

"））

i=0

z=1

y=1

DoWhileAbs（z）>0.00001

factor=1

i=i+1

Forj=1To2*i

factor=factor*j

Nextj

xpower=x^（2*i）

________________________________

y=y+z

Loop

Printfo