VB課后習(xí)題答案

《VB課后習(xí)題答案》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫(kù)。

1、第1章參考答案1．選擇題（1）B（2）B2．綜合題（1）屬性有：藍(lán)色、帶有紋路；方法有：踢、按?。皇录校簼L動(dòng)、靜止。（2）VB應(yīng)用程序開發(fā)的一般步驟有：①創(chuàng)建用戶界面；②設(shè)置對(duì)象的屬性；③編寫代碼；④程序運(yùn)行與調(diào)試；⑤保存與編譯。第2章參考答案1．選擇題（1）A（2）C（3）D（4）B（5）A（6）C2．操作題PrivateSubCommand1_Click()Label1.Caption=Text1.TextEndSubPrivateSubCommand2_Click()Label1.Caption=""Text1.Text=""EndSubPriva

2、teSubForm_Load()Label1.Caption=""Text1.PasswordChar="$"EndSub第3章參考答案1．選擇題(1)B、C分析：(B)3Acd以數(shù)字開頭；(C)IF是VB的關(guān)鍵字(2)B分析：邏輯常量的值只有兩個(gè)True和False，特別注意”false”是字符串常量。(3)C分析：VB表達(dá)式不區(qū)分大小寫。(4)C分析：Long是長(zhǎng)整型，Byte是字節(jié)型，Interge是整型。2．綜合題(1)a=Int(Rnd*(100))分析：產(chǎn)生一個(gè)區(qū)間在[m,n]之間的隨機(jī)整數(shù),其表達(dá)式為Int(Rnd*(n-m+1)+m)(2)

3、Int(X*100+0.5)/100分析：Int(X*100+0.5)19的作用是將X擴(kuò)大100倍后，第三位小數(shù)小于0.5，則舍掉，大于0.5，則產(chǎn)生進(jìn)位，取整后就是四舍五入的作用，再除以100，是還原為原值。(3)PrivateSubCommand1_Click()a=Int(99*Rnd+1)b=Int(99*Rnd+1)Label1.Caption=a&"+"&b&"=?"EndSub(4)①False②True③8Mod3+3^3/45（有改動(dòng)）答案：3第4章參考答案1．填空(1)TF(2)F(3)HEIGHT>160ANDHEIGHT<165E

4、NDIF(4)SCORE>60、LblSc.caption=、ELSE、LblSc.caption=、ENDIF(5)EXIT(6)21(7)16(8)0、1、>100、Total+Num、Num+22．程序設(shè)計(jì)題（略）第5章章參考答案1．選擇C　C　D　B　D　D　B　C　C　A　B　A　C　B　B2．操作題（1）實(shí)現(xiàn)多中選一的功能，通過用圖片框和框架來實(shí)現(xiàn)單選按鈕的分組，方法是，選中圖片框或框架后，再在里面繪制單選按鈕，另一種方法是將繪制好單選按鈕剪切粘貼到圖片框或框架中。（2）第一種方法是：在屬性面板中通過List屬性添加，操作方法是，每輸入一項(xiàng)按C

5、tr＋回車。第二種方法是：在代碼中動(dòng)態(tài)增加或減少選項(xiàng)，應(yīng)用AddIitem和RemoveItem來完成。（3）應(yīng)設(shè)置Timer屬性，值設(shè)置為200，用設(shè)置計(jì)時(shí)器控件的Enabled屬性為True或False來控制。（4）Dimtao(1To10)AsStringPrivateSubCommand1_Click()DimStrAsStringFori=1To10Iftao(i)<>""ThenStr=Str&Chr(10)+Chr(13)&tao(i)Next19MsgBox"您共買了："&Str,vbOKOnly,"合計(jì)"EndSubPrivateSubF

6、orm_Load()List1.AddItem"鉛筆"List1.AddItem"橡皮"List1.AddItem"格尺"List1.AddItem"筆記"List1.AddItem"水性筆"List1.AddItem"小刀"List1.AddItem"鋼筆"Fori=1To10Combo1.AddItemi&"件"NextiCombo1.Text="1件"Combo1.Enabled=FalseEndSubPrivateSubList1_Click()Label2.Caption="單價(jià)："&Val(List1.ListIndex+1)*1&"元"IfL

7、ist1.Selected(List1.ListIndex)ThenIftao(List1.ListIndex+1)<>""ThenCombo1.Text=Val(Right(tao(List1.ListIndex+1),2))&"件"Combo1.Enabled=TrueLabel1.Caption=List1.Text&Combo1.Texttao(List1.ListIndex+1)=Label1.CaptionElseCombo1.Text="1件"Combo1.Enabled=FalseEndIfEndSubPrivateSubCombo1_Ch

8、ange()IfList1.Selected(List1.List