Visual Basic 程序设计复习题.docx
《Visual Basic 程序设计复习题.docx》由会员分享，可在线阅读，更多相关《Visual Basic 程序设计复习题.docx（21页珍藏版）》请在冰豆网上搜索。
VisualBasic程序设计复习题
VisualBasic程序设计复习题
1.下列关于变量的说法不正确的是（）
A.局部变最是指那些在过程中用Dim语句或Static语句声明的变量
B.局部变量的作用域仅限于声明它的过程
C.静态局部变量是在过程中用Static语句声明的
D.局部变量在声明它的过程执行完毕后就被释放了
2无论何种控件，共同具有的属性是（）
A.Text属性B.Name属性C.Caption属性D.Autosize属性
3.如果想让文本框中的内容在运行时不能编辑，需将文本框的（）属性设置为True
A.LockedB.MultiLine
C.TabStopD.Visible
4.后缀为.frm的文件表示VB的（）
A.类模块文件B.窗体文件C.工程文件D.标准类模块文件
5.下列变量名合法的是（）
A.20abB.a-bC.a_2D.integer
6.为了在运行时把d:
\pic文件夹下的图形文件a.jpg装入图片框Picturel中，所使用的语句为（）
A.Picturel.Text=LoadPicture（"d:
\pic\a.jpg"）
B.Picturel.Picture=LoadPicture（"d;\pic}a.jpg"）
C.Picturel.Picture=LoadPicture（d:
\pic\a.jpg）
D.Picturel.Picture=Load（"d;\pic\a.jpg"）
7.逻辑表达式Not5〉3And9<3Or7>5（）
A.TrueB.FalseC.表达式有错D.条件不足
8.表达式4+19\6*7/8Mod2的值是（）
A.4B.5C.6D.7
9.下列可以用来存储图像供其他对象使用的控件是（）
A.ToolBarB.StatursBarC.ImageListD.TreeView
10.下列数据对象模型中采用OLEDB访问数据库的是（）
A.DAOB.RDOC.ADOD.RDO和ADO
11.要以读方式打开D盘的一个顺序文件Stu.dat，应使用的语句是（
A.Open"Stu.dat"ForOutputAs#1
B.Open"D:
\Stu.dat"ForInputAs#1
C.Open"D:
\Stu,dat"ForOutputAs#1
D.Open"Stu.dat"ForInputAsT#1
12.VB程序中设置断点的按键是（）
A.F5键B.F6键C.F9键D.F10键
13.为使文本框显示滚动条，必须首先设置的属性是（）
A.AutoSizeB.AlignmentC.MultilineD.TabStop
14，要设置命令按钮的背景图形，必须设置的两个属性是（）
A.Style和PictureB.Style和Icon
C.Caption和PictureD.Value和Icon
15.下面关于多窗体的叙述中，正确的是（）
A.作为启动对象的Main子过程只能放在窗体模块内
B.如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载及加载哪一窗体
C.没有启动窗体，程序不能执行
D.以上都不对
16.VisualBasic应用程序处于中断模式时，应用程序暂时中断，这时不可（）
A.编辑代码。
B.设计界面和编辑代码C.继续运行程序D.设计界面
17.当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信
息，应按的键是（）
A.HelpB.F10C.EscD.P1
18.当运行程序时，系统自动执行启动窗体的（）
A.Load事件过程B.Click事件过程
C.LLnload事件过程D.GotFocus事件过程
19.后缀为.Vbp的文件表示VB的（）
A.类模块文件B.窗体文件C.工程文件D.标准类模块文件
20.要在窗体Forml内显示”myfrm"，使用的语句是（）
A.Form.caption="myfrm"
B.Forrnl.caption="myfrm"
C.Forml.print"myfrm"
D.Form.print"myfrm"
21.在设计动画时，用时钟控件来控制动画速度的属性是（）
A.EnabledB.IntervalC.TimerD.Move
22.把字符串型转换为数值型需要使用的函数是（）
A.ValB.StrC.AscD.Chr
23.表达式7+10Mod3*2+2（）
A.7B.13C.6D.1
24.可用来改变坐标度量单位的是（）
A.Drawstyle属性B.DrawWidtl属性C.Scale方法D.ScaleMode属性
25.在用Line方法时，参数B与F可组合使用，下列组合中不允许的是（）
A.BFB.FC.BD.不使用
26.下列赋值语句正确的是（）
A.A=B+CB.B+C=AC.-B=AD.2=A+B
27.如果仅需要得到当前系统时间，则可以使用哪个函数（）
A.TimeB.YearC.NowD.Date
28.键盘事件的执行顺序是（）
A.KeyPressKeylDown,KeyUpB.KeyDown,KeyPress,KeyUp
C.KeyUp,KeyDown,KeyPressD.KeyUp,KeyPress,KeyDown
29.如果准备向随机文件中写人数据，正确的语句是（）
A.Print#1,recB.Write#1，recC.Put#1，，recD.Ge#1，，rec
30.Winsocli控件的LocalPort属性的作用是（）
A.仅返回所用端口B.仅设置所用端口C.返回或设置所用端口D.返回或设置IP地址
31.为了保存一个VisualBasic应用程序，下列说法正确的是（）
A.只保存窗体文件（.frm）B.只保存工程文件（.vbp）
C.分别保存工程文件和标准模块文件（.bas）
D.分别保存工程文件、窗体文件和标准模块文件
32.语句Print5*5\5/5的输出结果是（）
A.5B.25C.0D.1
33.下列可作为VisualBasic变量名的是（）
A.A（A+B）B.AlphaC.4ABCD.ABπ
34.标准SQL语言本身不提供的功能是（）
A.数据表定义B.查询C:
修改、删除D.绑定到数据库
35.以下4个控件中，不属于数据绑定控件的是（）
A.Text控件B.OLE控件C.Option控件D.Image控件
36.在窗体上按下鼠标左键时产生的事件是（）
A.KeyDownB.MouseUpC.MouseMoveD.MouseDown
37.下列控件中不能响应Click事件的是（）
A.FrameB.LabelC.FormD.Timer
38.下列语句语法正确的是（）
A.a=1b=2c=3I3.a=1:
b=2:
c=3
C.a=1,b=2,c=3D.a=1;b=2;c=3
39.确定一个控件在窗体上位置的属性是（）
A.width或Height&Width和Height
C.Top或LeftD.Top和Left
40.KILL语句在VB语言中的功能是（）
A.清内存B.清病毒C.删除磁盘上的文件D.格式化硬盘
41.要清除列表框的所有内容，可用来实现的方法是（）
A.RemoveTtemB.ClsC.ClearD.以上均不可以
42.如下数组声明语句，正确的是（）
A.Dirna[3,4]AsIntegerB.Dima（3,4）AsInteger
C:
Dima（n,n）AsIntegerD.Dima（34）AsInteger
43.下列控件中，没有Caption属性的是（）
A.框架B.列表框C.复选框D.单选按纽
44.如果准备读文件，打开顺序文件”text,dat"的正确语句是（）
A.open"text,dat"ForwrireAs#1B.open"text.dat"ForBinaryAs#1
C.open"text.dat"ForInputAs#1D.open"text.dat"ForRandomAs#1
45.当Winsock控件处于关闭状态时，其State属性的值是（）
A.1B.0C.2D.6
二、填空题
1.数学关系3≤x<10表示成正确的VisualBasic表达式为。
2.已知A=2,B=3,C=4，则表达式A>BANDC>AORNotC>B的值为。
3.VisualBasic提供了结构化程序设计的3种基本结构，这3种基本结构是、
_、和。
4.用DimA（3，-2To3）语句声明二维数组后，数组A的元素共有个。
5.在VisualBasic程序中实现删除文件”d;\tem.tmp"的语句为。
6.日期表达式#2/24/03#-#2/12/03#的值为。
7.改变容器对象的ScaleMode属性值，容器的大小改变，它在屏幕上的位置
改变.
8.设Picturel.ScaleLeft=-200,Picturel.ScaleTop=250,Picturel.Width=500，Pic
turel.Height=-400。
则Picturel右下角坐标为。
9.ActiveXEXE文件的后缀是_。
10.Winsockl.Listen语句的含义是。
11.在整个程序运行时，用Static声明的局部变量是静态的，其值可以在该过程所在的模块运行期间，而用Dim声明的变量只能在才存在。
12.数学表达式
cos600写成等价的VisualBasic表达式为/
13.以下语句的输出结果是。
DimaAsInteger
a=6.28
Printa
14.用DimA（4,4）语句声明二维数组后，数组A的元素共有个
15.Label和TextBox控件用来显示和输人文本，如果仅需要让应用程序在窗体中显示文本信息，可使用控件;若允许用户输入文本，则通常使用控件。
16.在VisualBasic程序中实现复制文件”C：
\command,com”到d:
盘根目录一下的语句为
.
17.若已建立了Forml和Form2两个窗体，默认启动窗体为Forml。
通过______菜单
命令的选项卡，可将启动窗体设置为Form2。
在程序中若要显示Forml窗体，则执行语句。
18.VB中的程序错误类型主要有、、三种。
19.用Line方法画直线后，当前坐标为。
20.使用ADO模型时，可通过属性建立Recordset和Connection对象的连接。
21.VisualBalic开发环境总是处于下列的三种模式之一，它们是:
、
和，而集成环境的标题栏总是显示。
22.要使文本框控件可以接受多行文本，需将其属性Multiline设置为.
23.VB坐标系的歇认单位是，除此之外，用户还可以选用其它的度里单位，这需要通过对象的属性来实现。
24.以窗体Forml的中心为目心，画一个半径为800的圆的语句是。
25.列表框控件中最后一项的序号等于ListCount属性减。
26.在VisualBasic中，除了可以指定某个窗体作为启动对象之外，还可以指定
作为启动对象。
27.闰年的条件是:
年号（Y）能被4整除，但不能被100整除;或者年号能被400整除.表示该条件的逻辑表达式是
28.设某个程序中要用到一个二维数组，要求数组名为A,类型为整型，第一维下标从-1到2,第二维下标从-1到1，则相应数组声明语句为。
29.COM对象有两种类型接口，即用户自定义接口和。
三、阅读程序题
阅读下列程序并写出程序运行结果
1.PrivateSubCommandlClick）
n=0:
x=1:
Y=0
DoWhilex<3
n=n+1
y=x+y
x=x*（x+1）
Loop
Textl.Text="n=a"﹠Str（n）
Text2.Text="x="﹠Str（x）
Text3.Text="Y="﹠Str（y）
EndSub
程序运行时单击Commandl后，分别写出文本框Textl,Text2和Text3的值。
2.PrivateSubCommandlClick（）
DimxAsInteger
StaticsAsInteger
x=Val（InputBox（”请输入一个正整数=”））
Ifx<5Then
S=s+x
Else
s=s+x
EndIf
Textl.Text="s="﹠Str（s）
EndSub
程序运行时连续3次单击Commandl，且设输入的数据为5,4.3时，分别写出文本框Textl的值。
3.PrivateSubForm_Click（）
DimcAsInteger,jAsInteger,kAsInteger
k=0
c=0
Forj，1To5
Ifj>3Then
c=c十4
ExitFor
Else
K=k十1
EndIf
Nextj
Printc,k
EndSub
写出程序运行时单击窗体后,c,k的值分别是:
4.PrivateSubForm_Click（）
DimA（1To3）AsString
DimcAsInteger,jAsInteger
A
（1）=“1”
A
（2）=“3”
A（3）=“4”
c=0
Forj=1to3
c“c十Val（A（j））
Nextj
Printc
EndSub
写出程序运行时单击窗体后，c的结果是:
5.PrivateSubForm_Click（）
DimsAsLong，fAsLong
DimnAsInteger,iAsInteger
f=1
n=3
Fori=1Ton
f=f+i
s=s+f
Next
Print“s=”;s
EndSub
写出程序运行时单击窗体后，窗体Forml上的输出结果
6.PrivateSubCommandl_Click（）
x=0
DoWhilex<50
x=（x+2）*（x+3）
n=n-1
Loop
Textl.Text=Str（n）
Text2.Text=Str（x）
Text3.Test=Textl.Text+Text2.
Text4.Tcxt=Va1（Tcxt1.Text）+Val（Tcxt.Text）
EndSub
文件框Text3和Text4的结果分别是:
7.PrivateSuhForm_Click（）
Fori=1To2
Fork=1To2
a=a+1
Nextk
Nexti
Printa
EndSub
写出程序运行时单击窗体后，窗体Forml上的输出结果。
8.DimnFlagAsInteger,sMystringAsString
PrivateSubForm_Click（）
SelectCasenFlag
Case1
Forml.FontNamc=“黑体”
PrintsMystring
nFlag=nFlag+1
Case2
Forml.FontName=“宋体”
PrintsMystring
nFlag=nFlag+1
Case3
Forml.FontName=“楷体_（GB2312”）
PrintsMystring
nFlag=nFlag+1
CaseElse
Cls
nFlag=1
EndSelect
EndSub
PrivateSubForm_I,oad（）
nFlag=1
sMystring=”欢迎使用VisualBasic!
EndSub
写出三次单击窗体后程序的运行结果:
9.PrivateSubFormClick（）
DimxAsInteger
StaticyAsInteger
x=x+1
Y=Y+1
Forml.Print"x=";x."Y=":
Y
EndSub
写出程序运行时连续单击三次窗体后，Forml上的输出结果。
10.PrivateSubCommandl_Click（）
DimsAsDouble
DimiAsInteger
S=5
i=1
DoWhileI<9
i=I+2
s=s+i
Loop
Text1，Text=s
文件框Textl的输出结果是:
11.PrivateSubForteClick（）
DimTasinteger,jasinteger
Dimcasinteger
c=0
ForI=1To3
Forj=1to3
c=c十1
Nextj
NextI
Printc
EndSub
写出程序运行时单击窗体后，c的输出结果:
12.FunctionF（aAsInteger）
b=0
Staticc
b=b+1
c=c+1
F=a+b+c
EndFunction
PrivateSubCommandl_Click（）
DimaAsInteger
A=2
ForI=1To3
PrintF（a）
Nexti
EndSub
写出程序运行时，单击命令按钮在窗体上的输出结果。
四、完善程序题
1.列表框应用程序。
要求在文本框Textl中输入课程名称，然后按”添加”按钮，把课程名称添加到列表框中;当选择列表框中某一项后，按”删除”按钮，则从列表框中删除该项;按”统计”按钮，在文本框Text2中输出课程数量总数;按结束”按纽，退出应用程序。
程序运行结果如图1所示
程序如下，请补充完整。
PrivateSubForm_Load（）
Listl.AddItem”计算机应用基础”
Listl.Addltem”程序设计基础”
Listl.Addltem”软件技术基础”
Listi.AddItem"VisualBasic程序设计”
Listl.AddItem"SQLSERVER数据库应用”
Listl.Addltem”计算机专业英语”
Listl.Addltem"Delphi程序设计”
EndSub
PrivateSubCommandlClick（）
IfTextl.Text<>””Then
[1]
Textl.Text=[2]
Else
MsgBox“请在文本框中输人信息!
”
[3]
EndSub
PrivateSubCommand2_Click（）
Listl.RemoveItem[4]
EndSub
PrivateSubCommand3Click）
Text2.Text=[5]
EndSub
PrivateSubCommand4_Click（）
UnloadMe
EndSub
2.以厘米为单位，以窗体的中心点为坐标原点，以窗体的宽度与高度绘制坐标轴，并以窗体宽度与高度中最小值的1/3为半径画圆和椭圆，程序运行界面如图2所示。
程序如下，请补充完整。
PrivateSubForm_Click（）
DimrAsInteger
ScaleMode=7
Scale（-Forml.ScaleWidth/2，-Forml.ScaleHeight/2）-（Forml.ScaleWidth/2,Forml.ScaleHeight/Z）
Line（-Forml.ScaleWidth/2,0）-（Forml.ScaleWidth/2,0）‘画x轴
[1]’画Y轴
CurrentX=0:
CurrentY=0:
[2]‘标记坐标原点
IfForml.ScaleWidth>Forml.ScaleHeightThen
[3]
Else
r=Forml.ScaleWidth
[4]
DrawWidth=3
[5]，vbBlue
Circle（0，0），r/3，vbGreen,，，2.5
CircleC0,0），r/3，vbRed,，，0.4
EndSub
3.列表框应用程序。
要求从文本框中输人姓名，然后按”添加”按钮，把姓名添加到列表框中;当选择列表框中某一项后，按”删除”按钮，则从列表框中删除该项;当选择列表框中某一项后，按”修改‘’按钮，把列表框中选取的项送往文本框且”修改”按钮变为”修改确认”。
在文本框的内容修改好后，按”修改确认”按钮，再把文本框中修改后的信息送到列表框且”修改确认”按钮变为”修改”。
程序运行结果如图1所示。
程序如下，请补充完整。
PrivateSubForm_Load（）
Listl.AddItem”李敏”
Listl.AddItem”张华”
Listl.Addltem”吕晓烨”
Listl.AddItem”赵巍”
Listl.Addltem”袁莉”
Listl.AddItem”王津”
Listl.AddItem”何小渴”
Listl.AddItem”崔宁”
ListL.Addltem”何月”
EndSub
PrivateSubCommandl_Click（）
IfTextl.Text<>"Then
Listl.AddItemTextl.Text
Textl.Text=””
[l]
MsgBox”请在文本框中输人信息!
”
EndIf
EndSub
PrivateSubCommand2_Click（）
Listl.RemoveItemListl.ListIndex
EndSub
PrivateSubCommand3Click（）
IfCommand3.Caption=[2].Then
Textl.Text=[3]
Textl.SetFocus
Commandl
升级会员 