《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、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("请输入你的姓名")FontUnderLine(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.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.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．界面设计略，过程设计如下（窗体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/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．False9．(xMod10)*10+x\1010．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.Caption=x*x*3.141593EndSub方法二、用InputBox函数输入圆的半径PrivateSubCommand1_Click()DimxAsSingle'若要求计算结果具有15位有效位数，声明x为Double类型x=InputBox("r=","输入圆的半径")Label1.Caption=x*x*3.141593EndSub程序2．略。第3章结构化程序设计与数组一、判断题1．√2．×3．√4．×5．√6．×7．×8．√9．×10．√二、选择题1．A2．D3．C4．C5．D6．B三、填空题1．Ifx>yThent=y:y=x:x=t2．IS3．Fori=0to9:B(i)=InputBox("B("&i&")="):Nexti4．Dim5．String6．8四、程序阅读题（写出下列程序的运行结果）程序1.05程序2.20程序3.2471116程序4.1491625程序5.程序6.五、程序填空题1．（1）q*i（2）s+p*i/q（3）Nexti2．（1）r=0（2）mModn3．（1）i+j-1（2）7-i（3）Print4．（1）10+Int(Rnd*90)（2）i+1To30（3）a(i)=a(j)（4）a(i)Mod2=1六、程序设计题程序1．界面设计略，过程设计如下：PrivateSubForm_Click()DimxAsInteger...
