《visual_basic程序设计基础》

《《visual_basic程序设计基础》》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《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、

2、Top6．属性、<对象名>.<属性名>=<表达式>7．网格8．Form19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate四、程序设计题程序1．界面设计参看图10-1、10-2以及表10-1。表10-1实例2各控件的主要属性设置控件属性（属性值）属性（属性值）标签控件1Name(Label1)Caption("我的第一个VB程序")标签控件2Name(Label2)Caption("请输入你的姓名")FontUnde

3、rLine(True)FontItalic(True)命令按钮1Name(Command1)Caption("确定(&O)")命令按钮2Name(Command2)Caption("结束(&X)")过程设计如下：PrivatesubForm_Click()Command2.Enabled=FalseEenSubPrivateSubCommand1_Click()Label2.Visible=FalseLabel1.Caption=Text1.Text+":欢迎使用"+Label1.CaptionText1.

4、Visible=FalseCommand1.Enabled=False:Command2.Enabled=TrueEndSubPrivateSubCommand2_Click()EndEndSub程序2．界面设计略，过程设计如下：PrivateSubCommand1_Click()'字体变大Form1.FontSize=Form1.FontSize+3Form1.Cls:Print"欢迎使用VB"EndSubPrivateSubCommand2_Click()'字体变小Form1.FontSize=Form

5、1.FontSize-3Form1.Cls:Print"欢迎使用VB"EndSubPrivateSubCommand3_Click()'字体加粗Form1.FontBold=TrueForm1.Cls:Print"欢迎使用VB"EndSubPrivateSubCommand4_Click()'字体不加粗Form1.FontBold=FalseForm1.Cls:Print"欢迎使用VB"EndSub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。程序3．界面设

6、计略，过程设计如下（窗体Height值的计量包括标题、边框，而ScaleHeight值仅与窗体有效绘图区域的高度有关）：PrivateSubForm_Load()Text1.Text="VisualBasic程序设计"EndSubPrivateSubForm_Resize()Text1.Top=0:Text1.Left=0Text1.Width=Form1.ScaleWidth/2'用Form1.ScaleWidth效果优于用Form1.WidthText1.Height=Form1.ScaleHeight

7、/2'用Form1.ScaleHeight优于用Form1.HeightCommand1.Top=Form1.ScaleHeight-Command1.HeightCommand1.Left=Form1.ScaleWidth-Command1.WidthEndSub第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．Fa

8、lse9．(xMod10)*10+x1010．10+Int(Rnd*90)11．a*bModc12．Log(x)+Sin(3.141593/6)13．ConstPI=3.141592614．日期15．Int(x)+1四、程序设计题程序1．界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径PrivateSubCommand1_Click()DimxAsSinglex=Text1.TextLabel1.Ca