VB习题集答案.docx
《VB习题集答案.docx》由会员分享,可在线阅读,更多相关《VB习题集答案.docx(44页珍藏版)》请在冰豆网上搜索。
VB习题集答案
目录
第1章VisualBasic程序设计概述2
第2章VB可视化编程基础4
第3章VB语言基础10
第4章VB控制结构11
第6章过程14
第7章用户界面设计15
第8章数据文件17
第9章图形操作20
第10章数据库与数据访问技术22
第1章VisualBasic程序设计概述
一、判断题
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章VB可视化编程基础
一、判断题
1.×2.×3.×4.√5.×6.√7.×8.√9.√
10.√11.×12.×13.√14.√15.×16.×17.×18.√
19.√20.×21.√22.×23.√24.×25.√
二、选择题
1.C2.D3.B4.B5.B6.C7.B8.B9.B10.A
11.D12.C13.B14.B15.A16.D17.B18.B19.B20.A
21.C22.C23.D24.B25.D26.B27.A28.A29.A30.A
31.B32.C33.B34.A35.D36.A37.D38.B39.C40.B
三、填空题
1.上、下、左、左2.缇、无关3.&、+4.Enabled5.MaxLength
6.Text1.SetFocus7.MultiLine8.Visible9.Alignment10.AutoSize
11.ForeColor12.0或113.True14.115.AddItem
16.117.List1.Clear18.文本框、列表框
19.下拉式组合框、简单组合框、下拉式列表框20.Scroll21.Value
22.Change23.定时器不起作用24.Timer25.65535
26.设计界面,设置属性,编写代码27.字母,分类28.F4
29.可视30.固定,浮动31.工程,工程属性,通用
32.Form1.Caption=”欢迎使用VB”33.Caption34.文件,打开,打开
35..Frm36.Alt_V后按X37.F438.Ctrl_R39.MSDN
40.错误观点41.F142.查看代码,查看对象,切换文件夹
43.对象,过程44.设计模式,运行模式,中断模式
45.窗口控制菜单,最小化按钮,大化按钮,关闭按钮
四、程序阅读题
程序1.116
程序2.8
程序3.2345134512
程序4.小,你好!
小李,你好!
程序5.您好欢迎使用VisualBasic!
程序6.李子苹果橘子葡萄柚子香蕉
程序7.y=6y=14
程序8.n=1,n=3,n=5
第3章VB语言基础
一、判断题
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.按字母序26.Unload
27.MinButton28.frm29.25530.代码31.Caption
32.工具箱窗体33.活动控件34.Enabled=True(或活动控件)35.右下角
四、程序设计题
程序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章VB控制结构
一、判断题
1.√2.×3.√4.×5.√6.×7.×8.√9.×10.√
二、选择题
1.A2.D3.C4.C5.D6.B7.D8.A9.D
10.B11.D12.C13.C14.A15.D16.C17.B18.C
19.B20.A21.D22.A23.B24.C25.C26.A27.C
28.B29.A30.A31.B32.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.D25.C26.B27.D
28.C29.A30.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.参考代码:
程序2.参考代码:
程序3.参考代码:
程序4.参考代码:
程序5.参考代码:
程序6.参考代码:
程序7.参考代码:
程序8.参考代码:
程序9.参考代码:
程序10.参考代码:
程序11.参考代码:
第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.√
二、选择题
1.D2.A3.C4.C5.B6.D7.A8.B9.D10.B
11.A12.A13.D14.C15.B16.C17.A18.B19.D
20.C21.C22.B23.C24.B25.C26.C27.C28.A
29.C30.C31.C32.B33.D34.C35.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.PopupMenuMypopupmenu21.Click
22.KeyAscii=4223.Ascii码24.下档字符的ASCII码25.Shift、Ctrl、Alt
26.Alt_Ctrl_Shift27.MouseMove28.Button=2Flag=False
29.Form1.MousePointer=9930.数据区、编辑区、菜单项显示区
31.弹出式菜单、下拉式菜单32.633.热键、快捷键34.用作控件数组下标
35.用菜单编辑器建立菜单用PopupMenu方法显示弹出式菜单
36.指定菜单位置定义特殊菜单的行为37.PopupMenuMypopupmenu
四、程序阅读题
程序1.显示提示信息为“5”、标题为“na的输出结果”、有一个“确定”按钮的消息框。
程序2.显示提示信息为“您选择了第1项”、标题为“第一项”、有一个“确定”按钮的消息框。
五、程序填空题
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.界面设计略,过程设计如下:
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
PrivateSub