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+
升级会员 