VB课后习题参考答案

《VB课后习题参考答案》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第1章VisualBasic概述一、判断题12345678910VVVXVXVVX11121314151617181920VVXXVXV二、选择题12345678910CBADBBBADD三、填空题1.BASIC语言2.封装、继承和多态性3.对象4.方法5.控件6.属性7.对象列表框、属性列表框、属性说明8.对象9.Forml10.对象第2章简单的VisualBasic程序设计・、判断题12345678910XXJXVXJXXJ二、选择题12345678910cACDBBBBAB111213141

2、5cABDA三、程序填空题程序1:(1)Forml.FontName二''楷体_GB2312n(2)Forml.FontSize=Forml.FontSize+2(3)Forml.FontBold=True⑷Forml.ForeColor=RGB(255,0,0)程序2：(1)Textl.MaxLength=10(2)Text1.PasswordChar="”0)Command2・Enabled=False(4)KeyAscii=13四、程序阅读题123451.123451234123412312

3、31212112.小,你好!小林，你好！3.1234564・越来越快五、程序设计题1.显示^清除^退岀控件名称Caption属性Form!Hello,World.Command1显示Command2清除Command3退出(Z工程1-Foral(Code)[L~"

4、[n~

5、[X~

6、lc

7、

8、Click▼

9、PrivateSubComniandl_Click()*Form1.FontSize=16Form1.ForeColor二RGB(0,0,255)Form1.Print"Hello,World・”E

10、ndSubPrivateSubComniand2_Click()Form1.CisEndSubPrivateSubComniand3Click(.)End一EndSub*〔Fox*.▼

11、^ClickzJPrivateSubFormClick()TDimcAsSingle^fAsSinglec二InputBox（/z请输入摄氏温度"）f二9*c/5+32MsgBox"华氏温度为"&f■EndSubIV事工程1-Foml(Code)口回冈控件名称Caption属性Text属性Locked属性Forml

12、四则运算Command1加Command2减Command3乘Command4除Label1数1Label2数2LabeI3计算结果Textl空Text2空Text3空True,Teit2vj

13、leyPressjJ-JPrivateSubCommandl_Click()Text3.Text=Textl.Text&&Text2.Text&"二"&Vai(Text1.Text)一Vai(Text2.Text)EndSub▲▼PrivateSubCommand2Click()Text3.Text=Tex

14、tl.Text&&Text2.Text&&Vai(Textl.Text)-Vai(Text2.Text)EndSubPrivateSubCommand3_Click()Texx3.Text=Textl.Text&"X"&Text2.Text&&Vai(Textl.Text)*Val(Text2.Text)EndSubPrivateSubCommand4Click1：)IfVai(Text2.Text)>0ThenText3.Text=Textl.Text&"三"&Text2.Text&"二"&V

15、ai(Textl.Text)/Vai(Text2.Text)ElseText3.Text="除数不能为雾.EndIfEndSubPrivateSubTextl_KeyPress^.KeyAsciiAsInteger)If(KeyAscii<48OrKeyAscii>57)AndKeyAscii<>46ThenKeyAscii=0EndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)If(KeyAscii<48OrKeyAscii>57)AndK

16、eyAscii<>46

17、ThenKevAscii=0EndIfEndSubu」J4.■I闪烁字幕巾控件名称Caption属性Fontsize属性Forml闪烁字幕Label1闪烁字幕28Timerl口回冈一、判断题lTiserl▼

18、

19、Tiaer▼1PrivateSubForm_Load()-Timer1・Interval=500EndSubPrivateSubTimerl_Timer0IfLabel1.FoTeColoT二RGB(255,0,0)ThenLabel1・/。厂已。。］