![点击分享此内容可以赚币 分享](/master/images/share_but.png)
《visual_basic程序设计基础》陈庆章_课后习题参考答案.pdf
《《visual_basic程序设计基础》陈庆章_课后习题参考答案.pdf》由会员分享,可在线阅读,更多相关《《visual_basic程序设计基础》陈庆章_课后习题参考答案.pdf(35页珍藏版)》请在咨信网上搜索。
1、Visual Basic程序设计基础教材习题参考答案第1章Visual Basic 6.0程序设计概述一、判断题1.V 2.V3.X 说明:同类控件(如两个标签)相互重叠,设计时可以设置“置前”、“置后”属性。4.J 5.X 6.V13.X 14.J 15.X9.J18.J7.X 8.V16.V 17.V10.X 11.J 12.V19.J 20.J二、选择题1.C 2.B 3.D 4.C 5.B6.A 7.D8.A 9.B10.A 11.C 12.D三、填空题1.对象、事件4.对象7.网格2.属性、方法、事件5.Left、Top8.Forml3.控件、屏幕(Screen)6.属性、对象名.属
2、性名=表达式9.Load或Initialize或Resize或Activate(自动执行的先后顺序也按此排列)10.Activate、Deactivate四、程序设计题程序1.界面设计参看图10-1、10-2以及表表10-1实例2各控件的主要属性设置控件属性(属性值)属性(属性值)标签控件1Name(Labell)Caption(我的第一个VB程序”)标签控件2Name(Label2)Caption(请输入你的姓名”)FontUnderLine(True)Fontltalic(True)命令按钮1Name(Command 1)Caption(确定(&O)”)命令按钮2Name(Command2
3、)Caption(结束(&X)”)过程设计如下:Private sub Form_Click()Command2.Enabled=FalseEen SubPrivate Sub Commandl_Click()Label2.Visible=FalseLabe 11.Caption=Text 1.Text+:欢迎使用”+Label 1.CaptionText1.Visible=FalseCommandl.Enabled=False:Command2.Enabled=TrueEnd SubPrivate Sub Command2_Click()EndEnd Sub程序2.界面设计略,过程设计如下:
4、Private Sub Commandl_Click(),字体变大Forml.FontSi ze=Forml.Fontsize+3Forml.Cis:Print”欢迎使用 VB”End SubPrivate Sub Command2_Click()字体变小Forml.FontSize=Forml.Fontsize-3Forml.Cis:Print”欢迎使用 VB”End SubPrivate Sub Command3_Click()Forml.FontBoId=TrueForml.Cis:Print”欢迎使用 VB”End SubPrivate Sub Command4_Click()Form
5、l.FontBoId=FalseForml.Cis:Print”欢迎使用 VB”,字体加粗,字体不加粗End Sub运行时,不得连续、过多次单击“字体变小”按钮,因为当FontSize属性值小于0会产生适时错误。程序3.界面设计略,过程设计如下(窗体Height值的计量包括标题、边框,而ScaleHeight 值仅与窗体有效绘图区域的高度有关):Private Sub Form_Load()Text 1.Text=Visual Basic 程序设计”End SubPrivate Sub Form_Resize()Text 1.Top=0:Text1.Left0Text 1.Width=Form
6、l.ScaleWidth/2 1用 Forml.SealWidth效于用Forml WidthText 1.Height=Forml.ScaleHeight/2 用 Forml SealHeight 优于用 Forml HeightCommandl.Top=Forml.ScaleHeight-Commandl.HeightCommandl.Left=Forml.ScaleWidth-Commandl.WidthEnd Sub第2章程序设计基础一、判断题1.V 2.X 3.X 4.X 5.6.X 7,V8.J 9.J 10.X二、选择题1.B 2.D3.A 4.C 5.C 6.B三、填空题1.S
7、tring 2.43.aaa 4.1455.67.A6.38.D 9.C 10.A7.18 8.False9.(x Mod 10)*10+x 10 10.10+Int(Rnd*90)11.a*b Mod c12.Log(x)+Sin(3.141593/6)13.ConstPI=3.141592614.日期 15.Int(x)+1四、程序设计题程序L界面设计略,过程设计如下:方法一、用文本框控件输入圆的半径Private Sub Commandl_Click()Dim x As Singlex=Text 1.TextLabe11.Caption=x*x*3.141593End Sub方法二、用I
8、nputBox函数输入圆的半径Private Sub Commandl_Click()Dim x As Single,若要求计算结果具有15位有效位数,声明x为Doubl类型x=工nputBox(r=,输入圆的半径”)Labe11.Caption=x*x*3.141593End Sub程序2.略。第3章结构化程序设计与数组一、判断题1.V 2.X二、选择题1.A 2.D3.V3.C4.X 5.V 6.X 7.X4.C 5.D 6.B8.V 9.X10.V三、填空题1.If xy Then t=y:y=x:x=t 2.IS3.For i=0 to 9:B(i)=InputBox(B(&i&)=)
9、:Next i4.Dim 5.String 6.8四、程序阅读题(写出下列程序的运行结果)程序1.0 5 程序2.20程序 3.2 4 7 11 16程序 4.1 4 9 16 25程序5.W WWW W WWW W WWWWWWW WWWWWWWww WWWWWWWWWWw2程序6.33445五、程序填空题1.(1)q*i(2)s+p*i/q(3)Next i2.(1)r=0(2)m Mod n3.(1)i+j-1(2)7-i(3)Print4.(1)10+Int(Rnd*90)(2)i+1 To 30(3)a(i)=a(j)(4)a(i)Mod 2=1六、程序设计题程序1.界面设计略,过程
10、设计如下:Private Sub Form_Click()Dim x As Integer,y As Integerz z As IntegerDim max As Integer,middAs Integer,min As Integerx=工nputBox(”请输入x的值:”)y=工nputBox(请输入y的值:”)z=nputBox(”请输入z的值:”)If x y Then max=x Else max=yIf z max Then max=zIf x y Then min=x Else min=yI f z 3 Theny=x+3Elself x=1 Then y=x*xElself
11、 x 0 Then y=Sqr(x)Elsey=0End IfPrint yEnd Sub程序3.界面设计略,过程设计如下:Private Sub Form_Click()Dim i As Integer,j As IntegerFor i=1 To 9For j=1 To 9Print Tab(j-1)*4);i*j;Next j PrintNext iEnd Sub程序4.界面设计略,过程设计如下:Private Sub Form_Click()Dim x As Single,s As Single,t As Single Dim i As Integer,n As Integerx=工n
12、putBox(请输入x的值:”)n=工nputBox(请输入n的值:”)t=x/2:s=tFor i=3 To n t=t*x/i s=s+tNext iPrint sEnd Sub程序5.界面设计略,过程设计如下:Private Sub Form_Click()Dim e As Single,t As Single,i As Integer e=2:t=1:i=1While t=0.0001i=i+1:t=t/i:e=e+tWendPrint eEnd Sub程序6.界面设计略,过程设计如下:Option Base 1Private Sub Form_Click()Dim n As Inte
13、ger,a(9,9)As Integer,i As Integer,j As Integer On Error GoTo k,下列代码中若出现错误,转到标号为K的语句执行。n=工nputBox(请输入 n,0n10)For i=1 To n:a(iz 1)=1:a(i,i)=1:Next i For i=3 To nFor j=2 To i-1a(if j)=a(i-1,j-1)+a(i-1,j)Next j,i For i=1 To nPrint Tab(30-2*i);For j=1 To iPrint Space(4-Len(Trim(Str(a(i,j);Trim(Str(a(i,j)
14、;Next j Print Next i Exit Subk:MsgBox 输入n值小于1或大于10,数组下标超界。End Sub第4章函数与过程一、判断题1.X 2.V3.X 4.X 5.V6.X 7.X8.J二、填空题1.按地址传送2.b()As Long 3.64.按值传递5.按地址传递6.Public x As Single 7.Static x As Integer8.Form2.y三、程序阅读题(写出下列程序的运行结果)程序1.s=2 程序2.1程序 3.1 1 2 1 1 2122 223s=511s=912 113 3 114 6 4 1四、程序填空题1.(1)Bye Vai(
15、2)kModi(3)k=ki(4)Call pp(i)2.(1)a()Aa Double(2)n-1(3)a(j)Abs(xmax)Then xmax=x(i,j):ki=i:kj=j Next j,iEnd Sub第5章常用控件一、判断题1.X 2.X3.X 4.V5.X 6.J7.X 8.J 9.J10.V19.V11.X20.X12.X21.J13.J22.X15.X24.X16.X25.J17.X 18.V14.J23.J二、选择题1.C 2.D3.B 4.B5.B6.C 7.B 8.B9.B10.A11.D 12.C13.B14.B15.A16.D17.B18.B 19.B 20.A
16、三、填空题1.上、下、左、左2.堤、无关3.&、+4.Enabled5.MaxLength6.Textl.SetFocus7.MultiLine8.Visible9.Alignment10.AutoSize11.ForeColor12.0或 113.True14.115.Additem16.1 17.List 1.Clear 18.文本框、列表框19.下拉式组合框、简单组合框、下拉式列表框20.Scroll21.Value22.Change23.定时器不起作用24.Timer25.65535四、程序阅读题程序1.116程序 3.2345134512程序2.8程序4.小,你好!小李,你好!程序5
17、.您好欢迎使用Visual Basic!程序6.李子 苹果 橘子 葡萄 柚子 香蕉程序7.y=6y=14程序8.n=1n=3n=5五、程序填空题1.(1)a(i)=Mid(strl,i,1)或 a(i)=Mid(Textl.Text,i,1)(2)p=j(3)a(i)=a(p)(4)Command2.Enabled=True2.(1)1 To2*i-1(2)Command2.Enabled=True(3)Command2.Enabled=False3.(1)Text2.Enabled=False(2)p=2(4)Val(Textl.Text)2 或 Val(Textl.Text)10 Then
18、Labell.Caption=差!重新开始“:Call Form_LoadElseIf m num ThenLabell.Caption=Str(m)&“大了!”Elself m num ThenLabell.Caption=Str(m)&“小了!”ElseIf rec 0 ThenLabell.Caption=选择了“&n&”个字,请选择下一步操作!”Commandl(0).Enabled=True:Commandl(1).Enabled=TrueElseLabell.Caption=End IfEnd Sub程序6.界面设计如图10-4所示,过程设计如下:Private Sub Form_
19、Load()Labell.Caption=当前日期::Text 1.Text=DateOptionl(0).Caption=显示日期:Optionl(1).Caption=显示时间Optionl(0).Value=True:Commandl.Caption=退出End SubPrivate Sub Optionl_Click(Index As Integer)Select Case IndexCase 0Labell.Caption=当前日期::Text 1.Text=DateCase 1Labell.Caption=当前时间::Text 1.Text=TimeEnd SelectEnd Su
20、bPrivate Sub Commandl_Click()EndEnd Sub程序7.过程设计如下:Private Sub Form_Load()Labell.Caption=当前日期:Text 1.Text=DateOptionl(0).Caption=显示日期“:Optionl(1).Caption=显示时间”Optionl(0).Value=True:Commandl.Caption=退出”Combol.Additem 年一月一日:Combol.Additem”月一日一年”Combol.Additem”日一月一年:Combol.Text=年一月一日”End SubPrivate Sub
21、Combol_Click()Dim n As StringSelect Case Combol.List IndexCase 0:n=nyyyy-mm-ddnCase 1:n=Hmm-dd-yyyynCase 2:n=ndd-mm-yyyynEnd SelectText1.Text=Format(Date,n)End SubPrivate Sub Optionl_Click(Index As Integer)Select Case IndexCase 0:Labell.Caption=当前日期:“:Text 1.Text=DateCase 1:Labell.Caption=当前时间::Text
22、 1.Text=TimeEnd SelectEnd SubPrivate Sub Commandl_Click()EndEnd Sub程序8.界面设计如图10-5所示,过程设计如下:Private Sub Form_Load()List1.Additem happy”:List1.Additem apple”List 1.Additem nstudentn:List 1.Addltem computer End Sub Private Sub Commandl_Click()List1.Addltem Text1.Text:Text1.SetFocusText 1.SelStart=0:Tex
23、tl.SelLength=Len(Text1.Text)End Sub Private Sub Command3_Click()List 1.ClearEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command2_Click()If Listl.Listindex -1 Then Listl.Removeitem List 1.List Index End Sub9.界面设计如图10-6所示,过程设计如下:Private Sub Form_Load()Optionl(O).Caption=八进制:Optionl(1).Cap
24、tion=十六进制”Optionl(2).Caption=二进制”End SubPrivate Function tran(k As Long,n As Integer)As StringDim x As Integer,y As String*1,kl As Long tran=11 n:kl=Abs(k)Do While kl 0 x=kl Mod nIf x=10 Then y=Chr(Asc(HA)+x-10)Else y=CStr(x)tran=y+tran kl=kl nLoopIf k=72 Then Timerl.Enabled=False End Sub第6章图形控件和图形方
25、法一、判断题1.V 2.X 3.J 4.X 5.V 6.X 7.X 8.X 9.J 10.J二、选择题1.C 2.B 3.C 4.A 5.A 6.C 7.A 8.C 9.C 10.B11.A 12.B 13.B 14.C 15.C三、填空题1.Circle(ScaleLeft+ScaleWidth/2,ScaleTop+ScaleHeight/2),8002.LoadPicture 3.AutoSize、Stretch、False、False 4.选中、属性5.形状、矩形 6.Picturel.Picture=LodePicture(C:WindowsCloud上mp)7.图片框、其他控件 8
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- visual_basic程序设计基础 visual_basic 程序设计 基础 陈庆章 课后 习题 参考答案
![提示](https://www.zixin.com.cn/images/bang_tan.gif)
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【曲****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【曲****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。