《Visual-Basic程序设计基础》课后习题参考答案

精品资料精品资料第1章VisualBasic6.0程序设计概述一、判断题1．√ 2．√3．× 说明：同类控件（如两个标签）相互重叠，设计时可以设置“置前”、“置后”属性。4．√ 5．× 6．√ 7．× 8．√ 9．√ 10．× 11．√ 12．√13．× 14．√ 15．× 16．√ 17．√ 18．√ 19．√ 20．√二、选择题1.C 2.B 12．D三、填空题1．对象、事件2．属性、方法、事件3．控件、屏幕（Screen）4．对象5．Left、Top6．属性、<对象名>.<属性名>=<表达式>7．网格8．F orm19．Load或Initialize或Resize或Activate（自动执行的先后顺序也按此排列）10．Activate、Deactivate四、程序设计题程序1．界面设计参看图10-1、10-2以及表10-1。表10-1 实例2各控件的主要属性设置控件212

属性（属性值）Name(Label1)Name(Label2)FontUnderLine(True)Name(Command1)Name(Command2)

属性（属性值）Caption("我的第一个VB程序")Caption("请输入你的姓名")FontItalic(True)(&O)")(&X)")PrivatesubForm_Click()Command2.Enabled=FalseEenSubPrivateSubCommand1_Click()Label2.Visible=FalseLabel1.Caption=Text1.Text+":欢迎使用"+Label1.CaptionText1.Visible=FalseCommand1.Enabled=False: Command2.Enabled=TrueEndSubPrivateSubCommand2_Click()EndEndSub程序2．界面设计略，过程设计如下：PrivateSubCommand1_Click() '字体变大精品资料精品资料Form1.FontSize=Form1.FontSize+3Form1.Cls:Print"欢迎使用VB"EndSubPrivateSubCommand2_Click() Form1.FontSize=Form1.FontSize3Form1.Cls:Print"欢迎使用VB"EndSubPrivateSubCommand3_Click() Form1.FontBoldTrueForm1.Cls:Print"欢迎使用VB"EndSubPrivateSubCommand4_Click() Form1.FontBoldFalseForm1.Cls:Print"欢迎使用VB"EndSub运行时，不得连续、过多次单击“字体变小”按钮，因为当FontSize属性值小于0会产生适时错误。（HeightScaleHeight值仅与窗体有效绘图区域的高度有关）：PrivateSubForm_Load()Text1.Text="VisualBasic程序设计"EndSubPrivateSubForm_Resize()Text1.Top=0:Text1.Left=0Text1.Width/2orm1.ScaleWidthForm1Widtht='t.Command1.Top=Form1.ScaleHeightCommand1.HeightCommand1.Left=Form1.ScaleWidth-Command1.WidthEndSub精品资料精品资料第2章 程序设计基础一、判断题1．√ 2．× 3．× 4．× 5．√ 6．× 7．√ 8．√ 9．√ 10．×二、选择题9.C 三、填空题1．String 2．4 3．"aaa" 4．145 5．6 6．3 7．18 9．(xMod10)*10+x\10 10．10+Int(Rnd*90) 11．a*bModc12．Log(x)+Sin(3.141593/6) 13．ConstPI=3.1415926 14．日期 15．Int(x)+1四、程序设计题程序1．界面设计略，过程设计如下：方法一、用文本框控件输入圆的半径PrivateSubCommand1_Click()DimxAsSinglex=Text1.TextLabel1.Caption=x*x*3.141593EndSub方法二、用InputBox函数输入圆的半径PrivateSubCommand1_Click()DimxAsSingle '若要求计算结果具有15xDoublex=InputBox("r=","输入圆的半径")Label1.Caption=x*x*3.141593EndSub程序2．略。第3章 结构化程序设计与数组一、判断题1．√ 2．× 3．√ 4．× 5．√ 6．× 7．× 8．√ 9．× 10．√二、选择题1．A 2．D 3．C 4．C 5．D 6．B三、填空题1．Ifx>yThent=y:y=x:x=t 2