教材課后習(xí)題參考答案新版-學(xué)生版(1-4)章-

《VisualBasic程序設(shè)計基礎(chǔ)》教材習(xí)題第1章VisualBasic6.0程序設(shè)計概述習(xí)題一、判斷題參考答案：1．√2．√3．√4．×5．√6．×7．√8．×9．√10．√11．×12．√13．×14．√15．√二、選擇題參考答案：1.C2.B3．D4．C5．B6．A7．D8．A9．B10．D三、填空題參考答案：1．對象、事件2．屬性、方法、事件3．控件、屏幕（Screen）4．Left5.Top6．屬性、<對象名>.<屬性名>=<表達(dá)式>7．網(wǎng)格8．Form19．Load或Initialize或Resize或Activate（自動執(zhí)行的先后順序也按此排列）10．Activate、Deactivate四、程序設(shè)計題參考代碼：程序1．界面設(shè)計參看表1。表1各控件的主要屬性設(shè)置編號①②控件窗體屬性（屬性值）Name(Form1)屬性（屬性值）Caption("實(shí)驗(yàn)1-1")Caption("我的第一個VB程序")Caption("請輸入你的姓名")FontItalic(True)標(biāo)簽控件1Name(Label1)③標(biāo)簽控件2Name(Label2)FontUnderLine(True)文本框Name(Text1)命令按鈕1Name(Command1)命令按鈕2Name(Command2)Text("")④⑤⑥Caption("確定(&O)")Caption("結(jié)束(&X)")Enabled(False)過程設(shè)計如下：PrivateSubCommand1_Click()Label2.Visible=False‘使控件Label2看不見Label1.Caption=Text1.Text+":歡迎使用"+Label1.CaptionText1.Visible=False‘使控件Text1看不見Command1.Enabled=False‘使控件Command1不能用Command2.Enabled=True‘使控件Command2能用EndSubPrivateSubCommand2_Click()End‘結(jié)束程序運(yùn)行EndSub程序2．界面設(shè)計，過程設(shè)計如下：PrivateSubCommand1_Click()Form1.FontSize=Form1.FontSize+3Form1.Cls:Print"歡迎使用VB"EndSub'字體變大PrivateSubCommand2_Click()Form1.FontSize=Form1.FontSize-3Form1.Cls'字體變小Print"歡迎使用VB"EndSubPrivateSubCommand3_Click()Form1.FontBold=TrueForm1.Cls:Print"歡迎使用VB"EndSub'字體加粗PrivateSubCommand4_Click()Form1.FontBold=FalseForm1.Cls:Print"歡迎使用VB"EndSub'字體不加粗運(yùn)行時，不得連續(xù)、過多次單擊“字體變小”按鈕，因?yàn)楫?dāng)FontSize屬性值小于0會產(chǎn)生適時錯誤。程序3．界面設(shè)計運(yùn)行效果圖過程設(shè)計如下（窗體Height值的計量包括標(biāo)題、邊框，而ScaleHeight值僅與窗體有效繪圖區(qū)域的高度有關(guān)）：PrivateSubForm_Load()Text1.Text="VisualBasic程序設(shè)計"EndSubPrivateSubForm_Resize()Text1.Top=0:Text1.Left=0Text1.Width=Form1.ScaleWidth/2'用Form1.ScaleWidth效果優(yōu)于用Form1.WidthText1.Height=Form1.ScaleHeight/2'用Form1.ScaleHeight優(yōu)于用Form1.HeightCommand1.Top=Form1.ScaleHeight-Command1.HeightCommand1.Left=Form1.ScaleWidth-Command1.WidthEndSubPrivateSubCommand1_Click()EndEndSub第2章程序設(shè)計基礎(chǔ)習(xí)題一、判斷題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\