對口高考VB試題

姓名_ 班級_ 考號_ 座號_-密-封-線-高中部第二次月考計(jì)算機(jī)類VB試題題號一二三四五總分得分座號一、 填空題。（每空2分，共40分）1、 預(yù)定義符號常量VBred代表_、 VBgreen代表_ 、vbblue代表_。2、 “abc”abcd”結(jié)果為_；“ABC”“abc”結(jié)果為_；“ABCD”“ABC”結(jié)果為_。3、 Dim x as Boolean :x=iif(3_2,10,20)， 問變量X的值是_;4、 a=9 : b= ”結(jié)果是:” : x=a & b & “正確的” 問變量X的值是_;5、 判斷變量A的值能否被2整除的表達(dá)式為_;6、 表達(dá)式：Not true and not false 的結(jié)果為_.7、 判斷2009年是否為閏年的表達(dá)式為_;8、 表達(dá)式：5 mod 2 的結(jié)果為_;-5 mod 2 的結(jié)果為_；5 mod -2的結(jié)果為_; -5 mod -2 的結(jié)果為_;9、 While 循環(huán)中循環(huán)條件為真時(shí)_;循環(huán)條件為假時(shí)_;10、 Print語句有_和_兩種輸出方式。11、 在模塊聲明部分用dim語句聲名的變量是_變量（局部、全局、模塊級）。二、 判斷題。（每小題2分，共20分）1、 一般情況下，提倡使用運(yùn)算符+來進(jìn)行字符串的連接運(yùn)算。2、 標(biāo)識符必須以字母開頭，最大長度為255.3、 用戶自定義的符號常量，可以用const語句來聲名。4、 賦值語句中，let是可以省略的。5、 For 循環(huán)中步長默認(rèn)為1。6、 在do循環(huán)語句中，如果要結(jié)束循環(huán)，可以用exit for 語句。7、 注釋語句可以獨(dú)占一行，也可以放在其他語句的行尾。8、 在do循環(huán)中，如果用until 則條件為真時(shí)退出循環(huán)。9、 如果希望在程序中必須顯式聲明變量，可以在模塊的聲明段中加入option explicit語句。10、 整除運(yùn)算符是/，除法運(yùn)算符是。三、 選擇題。1、 下面不能作為select case語句中表達(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、以上三種都不行。2、for i=1 to _5 : p=p+1: next i上段程序運(yùn)行結(jié)束后，變量P的值為_A、5 B、0 C、5 D、以上都不對3、for i=1 to 6 : next i上段程序運(yùn)行結(jié)束后 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分，共20分）1、 設(shè)有一個(gè)階梯，每步跨2階，最后余1階；每步跨3階最后余2階；每步跨5階最后余4階；每步跨6階最后余5階，只有每步跨7階，正好達(dá)到階梯頂，問共有多少階梯。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、 在棋盤上的第1個(gè)格子上放1粒麥子，第2個(gè)格子上放2粒，第3個(gè)格子上放4粒，即后面格子的麥粒數(shù)是它前一個(gè)格子的倍數(shù)，直到64格放滿為止。請問一個(gè)棋盤上總共能放多粒麥。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);”棋盤上共計(jì)”; sum ; “麥?！盓nd sub五、 寫出下面程序運(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(“請輸入17”,”值班查詢”)while n_100select case ncase is 1 print “日歷上沒有這一天！” case 1 print “李老師值班” case is =4 print “王老師值班” case 4 to 7 print “張老師值班” case else print