Visual Basic程序设计复习题及参考答案1doc.docx
《Visual Basic程序设计复习题及参考答案1doc.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计复习题及参考答案1doc.docx（16页珍藏版）》请在冰点文库上搜索。
VisualBasic程序设计复习题及参考答案1doc
中南大学网络教育课程（专科）考试复习题及答案
《VisualBasic程序设计与应用》
一、选择题：
在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。
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
Printformat（y,"0.######"）
EndSub
3.已知一个数列的前3项为0，0，1，从第4项开始，每项为前3项的和，编程求此数列的第39个数。
PrivateSubForm_Click（）
Dimi%,f0&,f1&,f2&,f3&
FontSize=14:
FontBold=True
f0=0
f1=0
f2=1
Fori=4to39
________________
f0=f1
f1=f2
f2=f3
Nexti
Printf3
EndSub
五、编程题：
1、编写程序，验证输入的3位正整数是否为同构数。
X若出现在自己的平方数的末3位，则X是同构数。
如625的平方是390625，则625为同构数。
2.设有如下两组数据：
A:
1，2，3，4，5，6，7，8,9,10
B:
100,99,98,97,96,95,94,93,92,91,
编写一个程序，把上面两级数据分别读入两个数组中，然后把两个数组中对应的元素相加，即1+100……10＋91。
并把相应的结果放入三个数组中，最后输出第3个数组的值。
3.用Circle方法画圆弧和椭圆弧。
如下图所示。
要求：
中心点相同，圆弧长度和角度随机，颜色随机，圆弧数为20。
4.在图片框中用PSet方法随机地产生若干个彩色的点。
窗体上有3个命令按钮：
“画点”、“清除”、和“退出”。
如下图所示。
PSet方法：
［对象名.］Pset［Step］（x,y）［，颜色］
六、问答题（15分）
1.简述多文档及其特性。
简述对话框的分类和特点。
《VB程序设计与应用》答案
一、选择题：
在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在题后的括号内。
1
2
3
4
5
B
A
B
C
B
6
7
8
9
10
D
C
C
C
D
11
12
13
14
15
D
C
A
A
A
16
17
18
19
20
A
C
A
A
B
21
22
23
24
25
C
D
A
C
A
26
27
28
29
30
C
B
A
B
C
二、填空题：
请把答案填在题中横线上。
1.组合框
2.顺序访问方式
3.Picture1.picture=LoadPicture（“d:
\pic\a.jpg”）
4.Timer
5..bas
6.（cos（a+b））^2/（3*x）+5
7.ShiftCtrl
8.窗体
9.添加窗体
10.红色
三、程序改错题
1.第七行n2=0改成n1=0
第八行 Fori=1To100改成Fori=1Tox
2.第十一行 Or改成 And
3.第十行fun=t改成fun=y
四、程序填空题
1.（a*1000+b*100+c*10+d）*e=b*1000+c*100+d*10+e
2.100-i-j=（100-5*i-j）*2
3.c=（iMod100）\10
五、编程题：
1.编程代码为：
PrivateSubCommand1_Click（）
Dimi,mAsInteger
Fori=100To999
m=（i*i）Mod1000
Ifi=mThen
Printi
EndIf
Nexti
EndSub
2.编程代码
PrivateSubCommand1_Click（）
Dima（10）,b（）,c（10）AsInteger
Fori=1To10
a（i）=i
Nexti
b=Array（100,99,98,97,96,95,94,93,92,91）
Fori=1To10
c（i）=a（i）+b（i-1）
Printc（i）
Nexti
EndSub
3.用Circle方法画圆弧和椭圆弧。
如下图所示。
要求：
中心点相同，圆弧长度和角度随机，颜色随机，圆弧数为20。
PrivateSubCommand2_Click（）
pi=3.1415926
a1=0
c=1
DrawWidth=1
Forr=100To2000Step100
a2=（a2+（pi/2））Mod（2*pi）
Circle（1800,1200）,r,QBColor（c）,a1,a2
a1=a1+（pi/4）
c=c+1
DrawWidth=DrawWidth+1
Nextr
EndSub
PrivateSubCommand3_Click（）
Cls
EndSub
4.编程代码为：
PrivateSubCommand1_Click（）
Picture1.DrawWidth=10
Fori=1To100
r=Int（256*Rnd）
g=Int（256*Rnd）
b=Int（256*Rnd）
x=Rnd*Width
y=Rnd*Height
Picture1.PSet（x,y）,RGB（r,g,b）
Nexti
EndSub
PrivateSubCommand2_Click（）
Picture1.Cls
EndSub
PrivateSubCommand3_Click（）
End
EndSub
六、问答题简述多文档及其特性。
答：
●定义：
多文档界面（MDI，MultipleDocumentInterface）允许创建在单个容器窗体中包含多个窗体的应用程序。
绝大多数基于Windows的大型应用程序都是多文档界面，例如，MicrosoftWord和MicrosoftExcel等。
多文档界面可同时打开多个文档，它简化了文档之间的信息交换。
●多文档界面有如下特性：
（1）所有子窗体均显示在MDI窗体的工作区中。
用户可以改变、移动子窗体的大小，但被限制在MDI窗体中。
（2）当最小化子窗体时，它的图标将显示在MDI窗体上，而不是在任务栏中。
当最小化MDI窗体时，所有的子窗体也被最小化，只有MDI窗体的图标出现在任务栏中。
（3）当最大化一个子窗体时，它的标题与MDI窗体的标题一起显示在MDI窗体的标题栏上。
（4）MDI窗体和子窗体都可以有各自的菜单，当子窗体加载时覆盖MDI窗体的菜单。
2.简述对话框的分类和特点。
答：
●分类：
对话框分为3种类型：
预定义对话框、通用对话框和自定义对话框
（1）预定义对话框也称预制对话框，是由系统提供的。
VB提供了两种预定义对话框，即输入框和信息框（或消息框），前者用InputBox函数建立，后者用MsgBox函数建立，具体用法参见第4章。
（2）通用对话框是一种控件，用这种控件可以设计较为复杂的对话框。
（3）自定义对话框也称定制对话框，这种对话框由用户根据自己的需要进行定义。
输入框和信息框尽管很容易建立，但在应用上有一定的限制，很多情况下无法满足需要，用户可以根据具体需要建立自己的对话框。
本章将介绍后两种对话框，即通用对话框和自定义对话框。
●特点：
（1）在一般情况下，用户没有必要改变对话框的大小，因此其边框是固定的。
（2）为了退出对话框，必须单击其中的某个按钮，不能通过单击对话框外部的某个地方关闭对话框。
（3）在对话框中不能有最大化按钮（MaxButton）和最小化按钮（MinButton），以免被意外地扩大或缩成图标。
（4）对话框不是应用程序的主要工作区，只是临时使用，使用后就必须关闭。
3.
4.
升级会员 