《VisualBasic程序设计基础》课后习题参考答案.docx
- 文档编号:10458902
- 上传时间:2023-05-25
- 格式:DOCX
- 页数:50
- 大小:34.95KB
《VisualBasic程序设计基础》课后习题参考答案.docx
《《VisualBasic程序设计基础》课后习题参考答案.docx》由会员分享,可在线阅读,更多相关《《VisualBasic程序设计基础》课后习题参考答案.docx(50页珍藏版)》请在冰点文库上搜索。
《VisualBasic程序设计基础》课后习题参考答案
第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.A7.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章程序设计基础
一、判断题
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
四、程序设计题
程序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.略。
第3章结构化程序设计与数组
一、判断题
1.√2.×3.√4.×5.√6.×7.×8.√9.×10.√
二、选择题
1.A2.D3.C4.C5.D6.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 第4章函数与过程 一、判断题 1.×2.√3.×4.×5.√6.×7.×8.√ 二、填空题 1.按地址传送2.b()AsLong3.64.按值传递5.按地址传递 6.PublicxAsSingle7.StaticxAsInteger8.Form2.y 三、程序阅读题(写出下列程序的运行结果) 程序1.s=2程序2.1程序3.112112122223 s=511 s=9121 1331 14641 四、程序填空题 1. (1)ByeVal (2)kModi(3)k=k\i(4)Callpp(i) 2. (1)a()AaDouble
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VisualBasic程序设计基础 VisualBasic 程序设计 基础 课后 习题 参考答案