VB习题集答案.docx
- 文档编号:6082128
- 上传时间:2023-05-09
- 格式:DOCX
- 页数:44
- 大小:62.66KB
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.&、
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
Ifx Ifz midd=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,0 Fori=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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 习题集 答案