VB 郭贤海 课后答案全

《VB 郭贤海 课后答案全》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、习题一一、填空题1.“控件工具箱”、“窗体设计器”、“工程资源管理器”、“属性窗口”、“窗体布局窗口”、“代码编辑器”“立即”、“本地”和“监视”窗口等2.三；设计（Design）模式、运行模式（Run）和中断（Break）模式3、工程1；1；Form14、选择菜单“视图

2、立即窗口”即可打开“立即”窗口；它是VisualBasic中的一个系统对象，叫Debug对象，可以在调试程序时使用它，通常使用Print方法向立即窗口中输出程序的信息，还可以将语句直接写在“立即”窗口上，按“回车”键后，这行语句会被立刻执行。5、查看代码、查看对象

3、；“查看对象”按钮；“查看代码”按钮二、选择题1.B2.C3.D4.B5.C6.B7.D三、程序设计题1.PrivateSubCommand1_Click()Text1.Text="欢迎使用VB！"EndSubPrivateSubCommand2_Click()Text1.Text=""EndSubPrivateSubCommand3_Click()EndEndSub2.PrivateSubCommand1_Click()Label1.Caption="你好，张三！"Command1.Enabled=FalseEndSubPriva

4、teSubCommand2_Click()Label1.Visible=FalseCommand3.Enabled=TrueCommand2.Enabled=FalseEndSubPrivateSubCommand3_Click()Label1.Visible=TrueCommand2.Enabled=TrueCommand3.Enabled=FalseEndSub第16页共16页习题二一、填空题1.02.“除数为零”错误3.Long4.False5.ConstPI=3.141596.True7.48.49.DimMystrAsSt

5、ring*1010.True11.1<=xAndx<=5二、程序设计题1.PrivateSubCommand1_Click()Label1.Left=Label1.Left-100EndSubPrivateSubCommand2_Click()Label1.Left=Label1.Left+100EndSubPrivateSubCommand3_Click()Label1.Top=Label1.Top-100EndSubPrivateSubCommand4_Click()Label1.Top=Label1.Top+100EndSub

6、2.PrivateSubCommand1_Click()Label1.Caption="百位数："+Left(Text1.Text,1)+"十位数："+Mid(Text1.Text,2,1)+"个位数："+Right(Text1.Text,1)EndSub3.PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a+bLabel1.Caption="+"第16页共16页Text3.Text=cEndSubPrivateS

7、ubCommand2_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a-bLabel1.Caption="-"Text3.Text=cEndSubPrivateSubCommand3_Click()DimaAsSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a*bLabel1.Caption="*"Text3.Text=cEndSubPrivateSubCommand4_Click()DimaA

8、sSingle,bAsSingle,cAsSinglea=Text1.Textb=Text2.Textc=a/bLabel1.Caption="/"Text3.Text=cEndSubPrivateSubCommand5_Click()Text1.Text=""Text2.Text=""Text3.Text=""EndSubPrivateSubCommand6_Click()EndEndSub4.PrivateSubCommand1_Click()DimcAsStringc=InputBox("输入带区号的电话号码，区号为4为，号码

9、为8位，比如输入第16页共16页“0571-86281517”：")MsgBox("区号："+Left(c,4)+Chr(13)+Chr(10)+"号码："+Right(c,8))EndSub习题二一、填空题1.02.“除数为零”错误