VB习题集答案.docx
《VB习题集答案.docx》由会员分享，可在线阅读，更多相关《VB习题集答案.docx（24页珍藏版）》请在冰点文库上搜索。
VB习题集答案
目录
第1章VisualBasic6.0计概述2
第2章简单的VisualBasic程序设计4
第3章VisualBasic语言基础4
第4章3中基本控制结构的程序设计5
第5章数组及应用8
第6章过程与函数9
第7章常用内部控件10
第8章对话框与菜单程序设计11
第9章图形操作13
第10章文件14
第11章数据库编程基础17
第1章VisualBasic6.0计概述
一、判断题
1．√2．√
3．×说明：
同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。
4．√5．×6．√7．×8．√9．√10．×11．√12．√
13．×14．√15．×16．√17．√18．√19．√20．√
二、选择题
1.C2.B3．D4．C5．B6．A
7．D8．A9．B10．A11．C12．D
三、填空题
1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）
4．对象5．Left、Top6．属性、<对象名>.<属性名>=<表达式>
7．网格8．Form1
9．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）
10．Activate、Deactivate
四、程序设计题
程序1．界面设计参看图10-1、10-2以及表10-1。
表10-1实例2各控件的主要属性设置
控件
属性（属性值）
属性（属性值）
标签控件1
Name（Label1）
Caption（"我的第一个VB程序"）
标签控件2
Name（Label2）
Caption（"请输入你的姓名"）
FontUnderLine（True）
FontItalic（True）
命令按钮1
Name（Command1）
Caption（"确定（&O）"）
命令按钮2
Name（Command2）
Caption（"结束（&X）"）
过程设计如下：
PrivatesubForm_Click（）
Command2.Enabled=False
EenSub
PrivateSubCommand1_Click（）
Label2.Visible=False
Label1.Caption=Text1.Text+":
欢迎使用"+Label1.Caption
Text1.Visible=False
Command1.Enabled=False:
Command2.Enabled=True
EndSub
PrivateSubCommand2_Click（）
End
EndSub
程序2．界面设计略，过程设计如下：
PrivateSubCommand1_Click（）'字体变大
Form1.FontSize=Form1.FontSize+3
Form1.Cls:
Print"欢迎使用VB"
EndSub
PrivateSubCommand2_Click（）'字体变小
Form1.FontSize=Form1.FontSize-3
Form1.Cls:
Print"欢迎使用VB"
EndSub
PrivateSubCommand3_Click（）'字体加粗
Form1.FontBold=True
Form1.Cls:
Print"欢迎使用VB"
EndSub
PrivateSubCommand4_Click（）'字体不加粗
Form1.FontBold=False
Form1.Cls:
Print"欢迎使用VB"
EndSub
运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。
程序3．界面设计略，过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight值仅与窗体有效绘图区域的高度有关）：
PrivateSubForm_Load（）
Text1.Text="VisualBasic程序设计"
EndSub
PrivateSubForm_Resize（）
Text1.Top=0:
Text1.Left=0
Text1.Width=Form1.ScaleWidth/2'用Form1.ScaleWidth效果优于用Form1.Width
Text1.Height=Form1.ScaleHeight/2'用Form1.ScaleHeight优于用Form1.Height
Command1.Top=Form1.ScaleHeight-Command1.Height
Command1.Left=Form1.ScaleWidth-Command1.Width
EndSub
第2章简单的VisualBasic程序设计
一、判断题
1．×2．×3．×4．√5．×6．√7．×8．√9．√
10．√
二、选择题
1.C2.D3.B4.B5.B6.C7.B8.B9.B10.A
11.C12.C13.D14.B15.D16.B17.A18.A19.A20.A
21.B22.C23.B24.A25.D26.A27.D28.B29.C30.B
三、填空题
1．上、下、左、左2．缇、无关3．&、+4．Enabled5．MaxLength
6．Text1.SetFocus7．MultiLine8．Visible9．Alignment10．AutoSize
11．ForeColor12．设计界面，设置属性，编写代码13．字母，分类
14．F415．可视16．设计模式，运行模式，中断模式
17．工程，工程属性，通用18．Form1.Caption=”欢迎使用VB”
19．Caption20．.Frm
四、程序阅读题
程序1.116
程序2.8
程序3.2345134512
程序4.小，你好！
小李，你好！
第3章VisualBasic语言基础
一、判断题
1．√2．×3．×4．×5．√6．×7．√8．√9．√10．×
二、选择题
1．B2．D3．A4．C5．C6．B7．A8．D9.C10．A
三、填空题
1．String2．43．"aaa"4．1455．66．37．188．False
9．（xMod10）*10+x\1010．10+Int（Rnd*90）11．a*bModc
12．Log（x）+Sin（3.141593/6）13．ConstPI=3.141592614．日期15．Int（x）+1
16.False17.对话框18.BorderStyle19.窗体20.属性，方法21.ForeColor
22.Enable23.name，name24.事件25.Caption26.Unload
四、程序设计题
程序1．界面设计略，过程设计如下：
方法一、用文本框控件输入圆的半径
PrivateSubCommand1_Click（）
DimxAsSingle
x=Text1.Text
Label1.Caption=x*x*3.141593
EndSub
方法二、用InputBox函数输入圆的半径
PrivateSubCommand1_Click（）
DimxAsSingle'若要求计算结果具有15位有效位数，声明x为Double类型
x=InputBox（"r=","输入圆的半径"）
Label1.Caption=x*x*3.141593
EndSub
程序2．略。
第4章3中基本控制结构的程序设计
一、判断题
1．√2．×3．√4．×5．√6．×7．×8．√9．×10．√
二、选择题
1．A2．D3．C4．C5．D6．B7.D8.A9.C
10.B11.D12.C13.C14.A15.D16.C17.B18.C
19.C20.A21.D22.A23.B24.C25.C26.A27.C
28.B29.A30.A31.C32.D33.C34.C35.A36.D
37.B38.C39.D40.B41.C42.B43.C44.C45.A
46.B
三、填空题
1．Ifx>yThent=y:
y=x:
x=t2．IS
3．Fori=0to9:
B（i）=InputBox（"B（"&i&"）="）:
Nexti
4．Dim5．String6．8
四、程序阅读题（写出下列程序的运行结果）
[程序1]05[程序2]20[程序3]2471116
[程序4]1491625
程序5
程序6
五、程序填空题
1．
（1）q*i
（2）s+p*i/q（3）Nexti
2．
（1）r=0
（2）mModn
3．
（1）i+j-1
（2）7-i（3）Print
4．
（1）10+Int（Rnd*90）
（2）i+1To30（3）a（i）=a（j）（4）a（i）Mod2=1
六、程序设计题
程序1．界面设计略，过程设计如下：
PrivateSubForm_Click（）
DimxAsInteger,yAsInteger,zAsInteger
DimmaxAsInteger,middAsInteger,minAsInteger
x=InputBox（"请输入x的值：
"）
y=InputBox（"请输入y的值：
"）
z=InputBox（"请输入z的值：
"）
Ifx>yThenmax=xElsemax=y
Ifz>maxThenmax=z
IfxIfzmidd=x+y+z-max-min
Printmax;midd;min
EndSub
程序2．界面设计略，过程设计如下：
PrivateSubForm_Click（）
DimxAsSingle,yAsSingle
x=InputBox（"请输入x的值：
"）
Ifx>3Then
y=x+3
ElseIfx>=1Then
y=x*x
ElseIfx>0Then
y=Sqr（x）
Else
y=0
EndIf
Printy
EndSub
程序3．界面设计略，过程设计如下：
PrivateSubForm_Click（）
DimiAsInteger,jAsInteger
Fori=1To9
Forj=1To9
PrintTab（（j-1）*4）;i*j;
Nextj
Print
Nexti
EndSub
程序4．界面设计略，过程设计如下：
PrivateSubForm_Click（）
DimxAsSingle,sAsSingle,tAsSingle
DimiAsInteger,nAsInteger
x=InputBox（"请输入x的值：
"）
n=InputBox（"请输入n的值：
"）
t=x/2:
s=t
Fori=3Ton
t=t*x/i
s=s+t
Nexti
Prints
EndSub
程序5．界面设计略，过程设计如下：
PrivateSubForm_Click（）
DimeAsSingle,tAsSingle,iAsInteger
e=2:
t=1:
i=1
Whilet>=0.0001
i=i+1:
t=t/i:
e=e+t
Wend
Printe
EndSub
程序6．界面设计略，过程设计如下：
OptionBase1
PrivateSubForm_Click（）
DimnAsInteger,a（9,9）AsInteger,iAsInteger,jAsInteger
OnErrorGoTok'下列代码中若出现错误，转到标号为K的语句执行。
n=InputBox（"请输入n，0Fori=1Ton:
a（i,1）=1:
a（i,i）=1:
Nexti
Fori=3Ton
Forj=2Toi-1
a（i,j）=a（i-1,j-1）+a（i-1,j）
Nextj,i
Fori=1Ton
PrintTab（30-2*i）;
Forj=1Toi
PrintSpace（4-Len（Trim（Str（a（i,j）））））;Trim（Str（a（i,j）））;
Nextj
Print
Nexti
ExitSub
k:
MsgBox"输入n值小于1或大于10，数组下标超界。
"
EndSub
第5章数组及应用
一、判断题：
1.×2．×3.×4.×5.√6.√7.×8.×9.×10.√
二、选择题：
1.A2.D3.D4.C5.C6.A7.D8.C9.C
10.B11.C12.D13.A14.D15.A16.B17.D18.C
19.C20.A21.A22.A23.D24.B25.D26.C27.A28.B
三、程序填空题：
1．Text1.ForeColor=vbRedText1.ForeColor=vbGreenText1.ForeColor=vbBlue
2.03.MultiSelect4.列表框，文本框5.滚动条6.ListCount-1
7.38.4245“类型不匹配”9.Preserve10.0
11.0OptionBase112.1234end13.end14.28
15.UBond（a）a（i）=a（j）;a（j）=t
四、程序设计题：
程序1.参考代码:
第6章过程与函数
一、判断题
1．×2．√3．×4．×5．√6．×7．×8．√
二、选择题：
1．C2.A3.D4.D5.B6.C7.C8.C9.D
10.D11.C12.B13.D14.D15.D16.C17.C18.B
19.D20.C
三、填空题
1．按地址传送2．b（）AsLong3．64．按值传递5．按地址传递
6．PublicxAsSingle7．StaticxAsInteger8．Form2.y
四、程序阅读题（写出下列程序的运行结果）
程序1
程序2
程序3.
五、程序填空题
1．
（1）ByeVal
（2）kModi（3）k=k\i（4）Callpp（i）
2．
（1）a（）AaDouble
（2）n-1（3）a（j）3．
（1）a（）AsDouble,nAsInteger
（2）t=t*x（3）f=s
六、程序设计题
程序1．界面设计略，过程设计如下：
PrivateFunctionfsum（x（）AsDouble,nAsInteger）AsDouble
DimiAsInteger
Fori=1Ton
fsum=fsum+x（i）
Nexti
fsum=fsum/n
EndFunction
程序2．界面设计略，过程设计如下：
PrivateSubff（a（）AsSingle,nAsInteger）
DimiAsInteger,xAsSingle
Fori=1Ton\2
x=a（n-i+1）:
a（n-i+1）=a（i）:
a（i）=x
Nexti
EndSub
程序3．界面设计略，过程设计如下：
PrivateSubfind（x（）AsSingle,mAsbyte,nAsByte,_
xmaxAsSingle,kiAsByte,kjAsByte）
xmax=x（1,1）:
ki=1:
kj=1
Fori=1Tom
Forj=1Ton
IfAbs（x（i,j））>Abs（xmax）Thenxmax=x（i,j）:
ki=i:
kj=j
Nextj,i
EndSub
第7章常用内部控件
一、判断题
1．×2．×3．√4．√5．×6．×7．×8．√
9．√10．×11．√12．×13．√14．×15．√
二、选择题
1.D2.C3.B4.B5.A6.D7.B8.B9.B10.A
11.A12.A13.D14.C15.B16.C17.A18.B19.D
20.C21.C22.B23.C24.B25.C
三、填空题
1．0或12．True3．14．AddItem5．16．List1.Clear
7．文本框、列表框8．下拉式组合框、简单组合框、下拉式列表框
9．Scroll10．Value11．Change12．定时器不起作用13．Timer
14．6553515.焦点16.KeyAscii=4217.Ascii码18.下档字符的ASCII码19.Shift、Ctrl、Alt20.Alt_Ctrl_Shift21.MouseMove22.Button=2Flag=False23.Form1.MousePointer=99
四、程序阅读题
程序1.您好欢迎使用VisualBasic!
程序2.李子苹果橘子葡萄柚子香蕉
程序3.y=6y=14
程序4.n=1，n=3，n=5
五、程序填空题
1．
（1）Int（Rnd*100）
（2）Str（i）（3）ExitFor
2．
（1）False
（2）Date（3）CommonDialog1.Color（4）m1
3.
4.
5.
6.
7.
六、程序设计题
第8章对话框与菜单程序设计
一、判断题
1．√2．√3．√4．×5．×6．×7．√8．√9．√10．√
二、选择题
1．D2．A3．C4．C5．B6．D7．A8．B9．D10．B
11.C12.C13.A14.C15.C16.C17.B18.D19.C20.C
三、填空题
1．窗体控制菜单、下拉式菜单、快捷菜单2．ShowFont
3．打开文件、另存为、颜色、字体、打印对话框4．工程、部件
5．CommonDialog1.Action=3、CommonDialog1.ShowColor
6．提示信息、对话框类型、对话框标题7．Click
8．工具9．代码窗口、Click10．相同、正
11.数据区、编辑区、菜单显示区12.弹出式菜单、下拉式菜单
13.614.内缩符号15.Checked16.热键、访问键17.用控件数组的下标18.用菜单编辑器建立菜单用PopupMenu方法显示弹出式菜单
19.指定菜单位置定义特殊菜单的行为20.Click21.数据区、编辑区、菜单项显示区
22.弹出式菜单、下拉式菜单23.624.热键、快捷键25.用作控件数组下标
26.用菜单编辑器建立菜单用PopupMenu方法显示弹出式菜单
27.指定菜单位置定义特殊菜单的行为28.PopupMenuMypopupmenu
四、程序阅读题
程序1.显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。
程序2.显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。
五、程序填空题
1．
（1）False
（2）Date（3）CommonDialog1.Color
.
六、程序设计题
程序1．界面设计略，过程设计如下：
PrivateSubCommand1_Click（）
CommonDialog1.ShowOpen
List1.AddItemCommonDialog1.FileName
EndSub
程序2．界面设计略，过程设计如下：
PrivateSubCommand1_Click（）
CommonDialog1.ShowSave
List1.AddItemCommonDialog1.FileName
EndSub
程序3．界面设计如图10-9、表10-2所示，过程设计如下：
PrivateSubSqr_Click（）
Shape1.Shape=1
EndSub
PrivateSubRec_Click（）
Shape1.Shape=0
EndSub
PrivateSubOval_Click（）
Shape1.Shape=2
EndSub
PrivateSubCircle_Click（）
Shape1.Shape=3
EndSub
PrivateSubRrec_Click（）
Shape1.Shape=4
EndSub
PrivateSubRSqr_Click（）
Shape1.Shape=5
EndSub
PrivateSubShp_Click（）
升级会员 