一、判斷題10題(每題1分,共10分)

1、一、判斷題10題（每題1分，共10分）1、使用聲明語(yǔ)句建立一個(gè)變量后，VB自動(dòng)將數(shù)值類型的變量賦初值0，變長(zhǎng)的字符串被初始化為一個(gè)零長(zhǎng)度的字符串（”），定長(zhǎng)的字符串則用空格填充，Variant變量被初始化為Empty，布爾型的變量初始化為False。對(duì)2、在窗體中用Show或Hide方法和在代碼中將Visible屬性分別設(shè)置為TRUE或FALSE的效果是一樣的。對(duì)3、當(dāng)對(duì)象具有焦點(diǎn)時(shí)，按下、松開(kāi)鍵盤上一個(gè)鍵會(huì)觸發(fā)該對(duì)象的KeyPRESS 事件。該事件先于KEYDOWN事件而后于KEYUP事件發(fā)生。錯(cuò)4、Dim a1,a2 as integer 語(yǔ)句顯式聲明變量a1和a2 都為整型變量。錯(cuò)5、函

2、數(shù)Len(“abc d”+space(5)的值是5。錯(cuò)6、執(zhí)行DoLoop While語(yǔ)句時(shí)，不管條件真假，首先會(huì)無(wú)條件地執(zhí)行一次循環(huán)。對(duì)7、語(yǔ)句Command1.visible=false 與Command1.enabled=false 是等價(jià)的。錯(cuò)8、通過(guò)對(duì)CommonDialog通用對(duì)話框控件action屬性的賦值或方法調(diào)用可以生成所需要的如open、save as、color、font、print、help 等常用對(duì)話框。9、當(dāng)圖片框picturebox控件的autosize屬性為true時(shí)，超過(guò)圖片框尺寸的圖片其超過(guò)部分會(huì)被圖片框截去。錯(cuò)10要?jiǎng)?chuàng)建新的順序文件，必須先用input或o

3、utput或append方式打開(kāi)該文件。錯(cuò)二、單選題10題（每題2分，共20分）1、下列符號(hào)哪一個(gè)是VB中的合法變量名？_A. IF B. 7AB C. AB7 D. AB7 對(duì)2、數(shù)學(xué)式子sin25°寫成VB表達(dá)式是_A. sin25 B. Sin（25） C. Sin（25*3.14/180）對(duì) D. Sin(25°)3、函數(shù)Int(Rnd(0)*10)是在哪個(gè)范圍內(nèi)的整數(shù)？_A. （0，1） B. （1，10） C. 0，10）對(duì) D. （1，9）4、若x是一個(gè)正實(shí)數(shù)，對(duì)x的第3位小數(shù)四舍五入的表達(dá)式是_*Int(x+0.005) B. 0.01*Int(100*(x

4、+0.005) 對(duì)C. 0.01*Int(100*(x+0.05) D. 0.01*Int(x+0.05)5、 函數(shù)Left(“Hello”,2)的值為_(kāi)A. He 對(duì) B. el C. lo D. True6、函數(shù)Int(Abs(99-100)/2)的值為_(kāi)A. 1 B. 0 對(duì) C.“1” D. “0”7、表達(dá)式2*32+2*8/4+32的值為_(kāi)A. 64 B. 31 對(duì) C.49 D. 228、將命令按鈕Command1設(shè)置為不可見(jiàn)，應(yīng)修改該命令按鈕的_屬性。A. Visible 對(duì) B. Value C. Caption D. Enabled9、重新定義圖片框控件的坐標(biāo)系統(tǒng)，可采用該圖

5、片框的_方法。A. Scale 對(duì) B. ScaleX C. ScaleY D. SetFocus10.將通用對(duì)話框CommonDialog1的類型設(shè)置成另存為對(duì)話框，可采用該控件的_方法。A. ShowOpen B. ShowSave 對(duì) C. ShowColor D. ShowFont三、填空題10題（每題2分，共20分）1、若用變量x來(lái)存放數(shù)據(jù)765432.123456，應(yīng)將x聲明為_(kāi)。2、VB共有5種類型的表達(dá)式：算術(shù)表達(dá)式、_、關(guān)系表達(dá)式、布爾表達(dá)式和日期表達(dá)式。3、VB是根據(jù)表達(dá)式的_來(lái)確定表達(dá)式的類型的。4、寫出x4-32x3+8x2-9x-20所對(duì)應(yīng)的VB算術(shù)表達(dá)式_5、設(shè)A=

6、7、B=3、C=4，寫出表達(dá)式：A Mod 3 + B3C的值_6、把數(shù)學(xué)式T3V2且T+V>100寫成VB關(guān)系或邏輯表達(dá)式。_ 7、寫出表達(dá)式Val("10.5abc2") * Fix(2.7) 的值。_8、Timerr控件的 屬性決定該控件是否響應(yīng)Timer事件。9、怎樣在程序設(shè)計(jì)時(shí)創(chuàng)建控件數(shù)組？_ 10. 在設(shè)計(jì)菜單時(shí)，在程序代碼中使用PopupMenu方法可顯示 式菜單。四實(shí)驗(yàn)題（每小題6分，共18分）1. 編寫程序，計(jì)算并輸出西瓜的金額。條件：4公斤以下1.00元/公斤；4公斤至7公斤為1.3元/公斤；7公斤以上為1.1元/公斤。補(bǔ)充未完的程序。Privat

7、e Sub Form_Click() Dim Weight, Price, Money As Single Weight=InputBox(“輸入西瓜的重量：”, “計(jì)算西瓜款”) If Weight < Then Price=1 ElseiIf Weight <=7 Then Price= Else Price= End Money=Price*WeightPrint “西瓜款是：” ；Money ; ”元”End Sub2. 在窗體上輸出乘法口訣表，完成下列程序。Private Sub Form_Click() Dim I As Integer, j As Integer, M

8、 As Integer For I = To For j = To M=i*j Print Next PrintNext End Sub.密.封.裝.訂線.專 業(yè)教學(xué)班學(xué)生證號(hào)學(xué)生姓名四簡(jiǎn)答和編程題（共16分） 1. 寫出Select Case語(yǔ)句的語(yǔ)法結(jié)構(gòu)2編寫程序，通過(guò)窗體的單擊事件過(guò)程，在窗體上輸出如下圖形：（5分） * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *2、 編制判斷是否同時(shí)被17與37整除的Function過(guò)程。在窗體中輸出1001000之間所有能同時(shí)被17與37整除的數(shù)。Option ExplicitPrivate Sub Form_Activate() Dim n As Integer For n = 100 To 2000 If d(n) Then print n Next