對(duì)口高考VB試題

1、. 姓名_ 班級(jí)_ 考號(hào)_ 座號(hào)_-密-封-線-高中部第二次月考計(jì)算機(jī)類(lèi)VB試題題號(hào)一二三四五總分得分座號(hào)一、 填空題。（每空2分，共40分）1、 預(yù)定義符號(hào)常量VBred代表_、 VBgreen代表_ 、vbblue代表_。2、 “abc”abcd”結(jié)果為_(kāi)；“ABC”“abc”結(jié)果為_(kāi)；“ABCD”“ABC”結(jié)果為_(kāi)。3、 Dim x as Boolean :x=iif(3_2,10,20)， 問(wèn)變量X的值是_;4、 a=9 : b= ”結(jié)果是:” : x=a & b & “正確的” 問(wèn)變量X的值是_;5、 判斷變量A的值能否被2整除的表達(dá)式為_(kāi);6、 表達(dá)式：Not true and n

2、ot false 的結(jié)果為_(kāi).7、 判斷2009年是否為閏年的表達(dá)式為_(kāi);8、 表達(dá)式：5 mod 2 的結(jié)果為_(kāi);-5 mod 2 的結(jié)果為_(kāi)；5 mod -2的結(jié)果為_(kāi); -5 mod -2 的結(jié)果為_(kāi);9、 While 循環(huán)中循環(huán)條件為真時(shí)_;循環(huán)條件為假時(shí)_;10、 Print語(yǔ)句有_和_兩種輸出方式。11、 在模塊聲明部分用dim語(yǔ)句聲名的變量是_變量（局部、全局、模塊級(jí)）。二、 判斷題。（每小題2分，共20分）1、 一般情況下，提倡使用運(yùn)算符+來(lái)進(jìn)行字符串的連接運(yùn)算。2、 標(biāo)識(shí)符必須以字母開(kāi)頭，最大長(zhǎng)度為255.3、 用戶自定義的符號(hào)常量，可以用const語(yǔ)句來(lái)聲名。4、 賦值語(yǔ)句

3、中，let是可以省略的。5、 For 循環(huán)中步長(zhǎng)默認(rèn)為1。6、 在do循環(huán)語(yǔ)句中，如果要結(jié)束循環(huán)，可以用exit for 語(yǔ)句。7、 注釋語(yǔ)句可以獨(dú)占一行，也可以放在其他語(yǔ)句的行尾。8、 在do循環(huán)中，如果用until 則條件為真時(shí)退出循環(huán)。9、 如果希望在程序中必須顯式聲明變量，可以在模塊的聲明段中加入option explicit語(yǔ)句。10、 整除運(yùn)算符是/，除法運(yùn)算符是。三、 選擇題。1、 下面不能作為select case語(yǔ)句中表達(dá)式列表的是：_。A、 表達(dá)式1 to 表達(dá)式 2 （如1，2，3） B、表達(dá)式1 to 表達(dá)式2(如1 to 5)C、is 關(guān)系運(yùn)算符表達(dá)式(如is3) D

4、、以上三種都不行。2、for i=1 to _5 : p=p+1: next i上段程序運(yùn)行結(jié)束后，變量P的值為_(kāi)A、5 B、0 C、5 D、以上都不對(duì)3、for i=1 to 6 : next i上段程序運(yùn)行結(jié)束后 i 的值為_(kāi)A、6 B、7 C、5 D、14、for i= 5 to 9 step 2 ：p=p+1 : next i上段程序運(yùn)行結(jié)束后，變量P的值是_.A、9 B、8 C、14 D、155、dim i=5 Private sub form_click()i=i+1end sub上段程序中變量i屬于_。A、 局部變量 B、全局變量 C、靜態(tài)變量 D、模塊變量四、 填程題。（每空5

5、分，共20分）1、 設(shè)有一個(gè)階梯，每步跨2階，最后余1階；每步跨3階最后余2階；每步跨5階最后余4階；每步跨6階最后余5階，只有每步跨7階，正好達(dá)到階梯頂，問(wèn)共有多少階梯。Private sub form_click()Dim jieti as integerJeiti=7While _ Jieti=jieti+7WendPrint “jieti=” & jietiEnd sub2、 如果題1中把whilewend 循環(huán)換成do until loop 循環(huán)則:Do until _Jieti=jieti+7Loop3、 在棋盤(pán)上的第1個(gè)格子上放1粒麥子，第2個(gè)格子上放2粒，第3個(gè)格子上放4粒，即

6、后面格子的麥粒數(shù)是它前一個(gè)格子的倍數(shù)，直到64格放滿為止。請(qǐng)問(wèn)一個(gè)棋盤(pán)上總共能放多粒麥。.Private sub form_click()Dim i as integer,sum as double, x as doubleI=0:x=0:sum=0For i=0 to 63X=_Sum=_Next iClsPrint tab(6);”棋盤(pán)上共計(jì)”; sum ; “麥粒”End sub五、 寫(xiě)出下面程序運(yùn)行結(jié)果。（每小題各10分，共30分）1、 private sub form_click()dim i as integer,p as integerfor i=20 to _5 step _2 s=s+1 if i0n=n_(n/2+2)i=i+1loopprint iend sub程序運(yùn)行結(jié)果為:_3、 private sub form_click()dim n as integer : clsn=inputbox(“請(qǐng)輸入17”,”值班查詢”)while n_100select case ncase is 1 print “日歷上沒(méi)有這一天！” case 1 print “李老師值班” case is =4 print “王老師值班” case 4 to 7 print “張老師值班” case else print