2001年9月全國計算機等級考試QBASIC試卷(含答案)

 一、選擇題((1)-(40)題每題1分,(41)-(50)題每題2分,共60分)
牐犗鋁懈魈鈇) 、b)、c)、d)四個選項中,只有一個選項是正確的,請將正確的選項塗寫在答題卡相應位置上,答在試卷上不得分。
牐(l) 在計算機系統中,一個位元組的二進制位數為
牐燼) 16 b) 8 c) 4 d) 由 cpu的型號決定
牐(2) 存儲 16×16點陣的一個漢字信息,需要的位元組數為
牐燼) 32 b) 64 c) 128 d) 256
牐(3) 英文大寫字母b的ascii碼為42h,英文小寫字母b的ascii碼為
牐燼) 43h b) 84h c) 74h d) 62h
牐(4) 下列計算機語言中,cpu能直接識別的是
牐燼) 自然語言 b) 高級語言 c) 彙編語言 d)機器語言
牐(5) 在計算機領域中,所謂“裸機”是指
牐燼) 單片機 b) 單板機
牐燾) 不安裝任何軟體的計算機 d) 只安裝作業系統的計算機
牐(6) 下列帶有通配符的檔案名稱中,能代表檔案abcdef.dat的是
牐燼) a*.* b) ?f.* c) *.? d) ab?.*
牐(7) 下列dos命令中,執行時不會發生錯誤的是
牐燼) type *.txt b) dir *.txt
牐燾) ren a.txt a:b.txt d) copy *.txt>con
牐(8) 設當前盤為c盤,c盤的當前目錄為\a\b\c。下列dos 命令中能正確執行的是
牐燼) md \ b) md a:\ c) md \a\b d) cd c:
牐(9) 為了將c:user中的檔案file.txt同名複製到a盤根目錄下,下列dos命令中能正確執行的是
牐燼) type c:\user\file.txt > a:\file.txt
牐燽) type c:\user\file.txt a:\file.txt
牐燾) copy c:\user\file.txt > a:\file.txt
牐燿) copy c:\user\file.txt
牐(10) 在windows下,當一個應用程式視窗被最小化後,該應用程式
牐燼) 終止運行 b) 暫停運行 c) 繼續在後台運行 d) 繼續在前台運行
牐(11) 在windows環境下,下列操作中與剪貼簿無關的是
牐燼) 剪下 b) 複製 c) 貼上 d) 刪除
牐(12) 在windows環境下,實現視窗移動的操作是
牐燼) 用滑鼠拖動視窗中的標題欄 b) 用滑鼠拖動視窗中的控制按鈕
牐燾) 用滑鼠拖動視窗中的框線 d) 用滑鼠拖動視窗中的任何部位
牐(13) 一台計算機連入計算機網路後,該計算機
牐燼) 運行速度會加快 b) 可以共享網路中的資源
牐燾) 記憶體容量變大 d) 運行精度會提高
牐(14) 不能作為計算機網路中傳輸介質的是
牐燼) 微波 b) 光纖 c) 光碟 d) 雙絞線
牐(15) 下列各項中,不屬於多媒體硬體的是
牐燼) 音效卡 b) 光碟驅動器 c) 顯示器 d) 多媒體製作工具
牐(16) qbasic中,裝入一個已有檔案,應使用選單file下的命令:
牐燼) new b) open c) save d) exit
牐(17) 如果想觀察一個qbasic程式中的各個子程式和函式,應使用選單view下的命令:
牐燼) new b) split c) subs d) output screen
牐(18) 下面敘述正確的是
牐燼) 程式的行號或標號與程式的執行完全無關
牐燽) 程式的行號或標號是程式執行順序的唯一依據
牐燾) 同一個程式段中不能有相同的二個行號或標號
牐燿) 同一個程式段中,必須統一用行號或標號,不能有的用行號有的用標號
牐(19) 在qbasic中,常量8888888&的數據類型是
牐燼) 整型 b) 實型 c) 雙精度型 d) 長整型
牐(20) 下面四項中不能作為qbasic變數名的是
牐燼) xyz.xyz b) uvwxyz123456 c) sincos d) 123xyz
牐(21) 在qbasic中,執行下面四個語句,將得到錯誤信息的是
牐燼) ?sgn(0) b) ?asc(“0”) c) ?abs(0) d) ?cos(“0”)
牐(22) 表達式fix(-23.87)+int(24.56)的值為
牐燼) 0 b) 1 c) -1 d) 2
牐(23) 四個字元“d”,“z”,“a”,“9”的ascii碼值最大的是
牐燼) “d” b) “z” c) “a” d) “9”
牐(24) m,n是整數,且n>m,在以下四個語句中,能將x賦值為一個m-n之間(含m,n)任意整數,即滿足m≥x≥n的是
牐燼) x=int(rnd*(n-m+1))+m b) x=int(rnd*n)+m
牐燾) x=int(rnd*m)+n d) x=int(rnd*(n-m))+m
牐(25) 在以下四個邏輯表達式中,其邏輯值為“真”的是
牐燼) not(3+5<4+6) b) 2>1 and 3<2 c) 1>2 or 2>3 d) not(1>2)
牐(26) 下面的四項敘述中錯誤的是
牐燼) 在一行中有多條語句時,逗號“,”可作為語句間的分隔設定
牐燽) 在print語句中,有多個輸出項時逗號“,”可作為輸出項間的分隔
牐燾) 一個dim語句定義多個數組時,逗號“,”可作為數組間的分隔設定
牐燿) 在read語句中,有多個變數時逗號“,”可作為變數間的分隔設定
牐(27) 表達式“turbo”+“c”>“true”+“basci”的值是
牐燼) 0 b) 1 c) –1 d) 2
牐(28) 語句dim arr(-3 to 5, 2 to 6)as integer定義的數組元素有
牐燼) 45個 b) 40個 c) 11個 d) 54個
牐(29) 下面四組程式成分中語法正確的是
牐燼) def fncdy(n) b) def cdy(n)
牐燾dy=2*3.1416*n cdy=2*3.1416*n
牐爁ncdy=cdy end cdy
牐爀nd def
牐燾) def fncdy() d) def fncdy(n)
牐燾dy=2*3.1416*n cdy=2*3.1416*n
牐爁ncdy()=cdy end fncdy
牐爀nd def
牐(30) 有如下程式
牐燼=3:b=4
牐爌rint b牐爀nd
牐犜誦瀉螅輸出的結果是
牐燼) 4>3 b) -1 c) 0 d) 顯示出錯信息
牐(31) 有如下程式
牐燼=0
牐爁or j=1 to 20 step 2
牐燼=a+j\5
牐爊ext j
牐爌rint a
牐爀nd
牐犜誦瀉螅輸出的結果是
牐燼) 12 b) 16 c) 40 d) 100
牐(32) 有如下程式
牐爏=0
牐爄=1
牐燿o while i<=100
牐爄f i mod 10<>0 then
牐爏=s+i
牐爄=i+1
牐爀lse
牐爄=i+1
牐爀nd if
牐爈oop
牐爌rint s
牐爀nd
牐犜誦瀉蟮氖涑黿峁是
牐燼) 4050 b) 5050 c) 5000 d) 4500
牐(33 ) 有如下一組程式語句
牐燿im zxs as integer
牐爖xs%=232
牐爖xs=232.32
牐爌rint zxs%,zxs
牐犜誦惺鋇氖涑黿峁是
牐燼) 232 232.32 b) 232 232 c) 232.32 232.32 d) 顯示出錯信息
牐(34) 有如下一組程式語句
牐燿efstr c-f
牐燿$=“321”
牐爁=“654”
牐爌rint d+f$
牐犜誦惺鋇氖涑黿峁是
牐燼) 321654 b) “321654” c) 321+“654” d) 顯示出錯信息
牐(35) 有如下程式
牐燾=70
牐爁or k=11 to 20
牐爎ead x
牐爄f x牐燿=d+x:c=x
牐爀lse
牐燿=d+c
牐爀nd if
牐爊ext k
牐爌rint d
牐燿ata 75,55,45,80,30,25,40,15,20,5
牐爀nd
牐犜誦惺鋇氖涑黿峁是
牐燼) 335 b) 330 c) 390 d) 485
牐(36) 有如下程式
牐爔case=1
牐爄nput “input value of t:”;t
牐爏elect case t
牐燾ase is>0
牐爕=xcase+1
牐燾ase is=0
牐爕=xcase+2
牐燾ase else
牐爕=xcase+3
牐爀nd select
牐爌rint xcase;y
牐爀nd
牐犜誦惺保從鍵盤輸入1,輸出的結果是
牐燼) 1 2 b) 1 1 c) 1 3 d) 1 4
牐(37) 有如下程式
牐燼=3
牐爄f a<=3 then
牐爌rint 3;
牐爀nd if
牐爄f a<=4 then
牐爌rint 4;
牐爀ndif
牐爄f a<=5 then
牐爌rint 5;
牐爀nd if
牐爄f a<=6 then
牐爌rint 6;
牐爀nd if
牐爌rint
牐爀nd
牐犜誦瀉笫涑黿峁是
牐燼) 3 b) 3 4 c) 3 4 5 d) 3 4 5 6
牐(38) 有如下程式
牐燼$=“54321”:b$=“abcde”
牐爁or j=1 to 5
牐爌rint mid$(a$,6-j,1)+mid$(b$,j,1);
牐爊ext j
牐爌rint
牐爀nd
牐犜誦瀉笫涑黿峁是
牐燼) a1b2c3d4e5 b) a5b4c3d2e1 c) 1a2b3c4d5e d) e1d2c3b4a5
牐(39) 有如下程式
牐燾onst st$=“china”
牐爏t$=“great”
牐爏t$=“hebei”
牐爀nd
牐爌rint st$
牐爀nd
牐犜誦瀉笫涑黿峁是
牐燼) china b) great c) hebei d) 顯示出錯信息
牐(40) 有如下程式
牐爁or m=1 to 4
牐燼=0
牐爁or j=1 to 5
牐燼=1
牐爁or k=1 to 6
牐燼=a+3
牐爊ext k
牐爊ext j
牐爊ext m
牐爌rint a
牐爀nd
牐犜誦瀉笫涑黿峁是
牐燼) 18 b) 19 c) 90 d) 360
牐(41) 在文本模式下,螢幕上顯示的最小單位是
牐燼) 一條直線 b) 一個小圓
牐燾) 一個字元 d) 一個顯象管的象素點(象元)
牐(42) 有如下程式
牐燿eclare sub a(m,n)
牐爉=5: n=4
牐燾all a((m),n)
牐爌rint m,n
牐爀nd
牐爏ub a(m,n)
牐爏=m
牐爉=s/n
牐爊=s mod n
牐爀nd sub
牐犜誦瀉笫涑黿峁是
牐燼) 1 1 b) 5 4 c) 1 4 d) 5 1
牐(43) 有如下程式
牐爔=0
牐爁or k=3 to 5
牐爂osub ab;
牐爏=s+x
牐爊ext k
牐爌rint s
牐爀nd
牐燼b: x=x+2
牐爎eturn
牐犜誦瀉笫涑黿峁是
牐燼) 3 b) 12 c) 6 d) 9
牐(44) 有如下程式
牐燼=30:b=30:c=120:d=120
牐燾ls
牐爏creen 1,0
牐爈ine(a,b)-(c,d),1,bf
牐爀nd
牐犜誦惺逼聊簧舷允
牐燼) 一個矩形 b) 一條直線
牐燾) 一個填滿了顏色的矩形塊 d) 無任何圖形
牐(45) common shared a!,b#語句定義的變數a及b是
牐燼) 普通型和特別型的通用變數
牐燽) 單精度實型和雙精度實型的全局變數
牐燾) 單精度實型和雙精度實型的局部變數
牐燿) 普通型和特別型的全局變數
牐(46) 有如下程式
牐燿eclare function count(title)
牐爄nput title
牐爁ee=count(title)
牐爌rint fee
牐爀nd
牐爁unction count(title)
牐爄f title<40 then
牐爌ay=title/2
牐爀lse
牐爌ay=10+title
牐爀nd if
牐燾ount=pay
牐爀nd function
牐犜誦惺貝蛹盤輸入40,輸出結果是
牐燼) 50 b) 20 c) 10 d) 顯示出錯信息
牐(47) 有如下程式
牐爐ype goods
牐爊um as integer
牐爊um as integer * 13
牐爀nd type
牐燿im cloth as goods
牐牳貿絛蚨味ㄒ辶肆礁齔絛虺煞鄭它們分別是
牐燼) 記錄類型和記錄變數 b) 記錄類型和數組
牐燾) 顯示類型和數組 d) 記錄變數和數組
牐(48) 有如下程式
牐爋pen “student.dat” for output as #1
牐爎ead num,nam$,sex$,score
牐燿o until nam$=“end”
牐爓rite #1,num,nam$,sex$,score
牐爎ead num,nam$,sex$,score
牐爈oop
牐燿ata 101,li,m,90,103,wang,f,98
牐燿ata 104,xiu,f,100,105,zhang,m,78
牐燿ata 000,end,,
牐燾lose
牐爀nd
牐犜誦瀉螅在檔案student.dat中寫入的記錄共有
牐燼) 3個 b) 4個 c) 5個 d) 6個
牐(49) 以下程式的功能是由鍵盤輸入10個數,然後將此10個數從小到大排序,並將排序後的10個數顯示在螢幕上。但程式不完整,須在【49】處將程式補充完整。
牐燿im a(10)
牐爁or j=1 to 10
牐爄nput a(j):print a(j);
牐爊ext j:print
牐爁or i=1 to 9
牐爁or j=i+1 to 10
牐爄f a(j)牐爊ext j
牐爊ext j
牐爁or j=1 to 10
牐爌rint a(j);
牐爊ext j
牐爌rint
牐爀nd
牐牎49】處的內容可在如下四項中選擇一項
牐燼) a(j)= a(j) b) change a(j), a(j)
牐燾) swap i,j d) swap a(ij), a(j)
牐(50) 有如下程式
牐爋pen “goods.dat”for input as #1
牐爊=1
牐燿o until eof(1)
牐爄nput #1,no,part$,place$,price
牐爌rint no, part$,place$,price
牐爊=n+1
牐爄f n=5 then exit do
牐爈oop
牐燾lose
牐爀nd
牐犜謔據檔案goods.dat中共有10個記錄,運行此程式後,實際從檔案goods.dat中讀入的記錄有
牐燼) 3個 b) 4個 c) 5個 d) 6個
牐牰、填空題(每空2分,共40分)
牐 請將每一個空的正確答案寫在答題卡【l】至【20】序號的橫線上,答在試卷上不得分。
牐牐╨)為了將當前盤當前目錄中的所有文本檔案(擴展名為.txt)的內容列印輸出,正確的單條dos命令為 【l】 。
牐牐2)設當前盤為c盤。為了在a盤的當前自錄\user下建立一個新的子目錄x,正確的dos命令為 【2】 。
牐牐3)在 xcopy、copy、time三個 dos命令中,屬於外部命令的是 【3】 。
牐牐4)在32位的計算機中,一個字長等於【4】個位元組。
牐牐5)計算機網路分為區域網路和廣域網,網際網路屬於 【5】 。
牐牐6)數學式 的qbasic表達式 【6】 。
牐牐7)在qbasic程式中定義長度為10的字元串型變數ab的語句是 【7】 。
牐牐8)表達式34 mod (1-3^3)的值為【8】 。
牐 (9) 四個字元串“abc”、“average”及“access”中的最大者為【9】 。
牐(10) 下面程式運行後的輸出結果如下:
牐燿
牐燾d
牐燽cd
牐燼bcd
牐牭程式不完整,請在處【10】補充使之完整。
牐牫絛蛉縵攏
牐燼$=“abcd”
牐爁or m=1 to 4
牐爌rint 【10】
牐爊ext m
牐爀nd
牐(11) 下面一段程式定義了一個學生記錄,包括name、age及birthday三個域,其中birthday為字元型,格式為mm/dd/yyyy,但程式不完整,請在【11】處補充使之完整。
牐爐ype student
牐爊am as string*12
牐燼ge as integer
牐燽irthday as 【11】
牐爀nd type
牐(12) 下面程式運行後的輸出是【12】 。
牐爇=1:m=5
牐爁or j=1 to m
牐爇=k+j*j
牐爊ext j
牐爌rint k\m
牐爀nd
牐(13) 下面的程式是從鍵盤輸入一個數,在已知的數列中進行查找,未找到該數時返回-1,找到時返回該數在數列中的序號。查找在一個獨立模組的函式中實現。請在【13】 、【14】 、【15】處將程式補充完整。
牐牫絛蛉縵攏
牐牎13】 function srch(b(),a)
牐爋ption base 1
牐燿im shared b(50)
牐爁or j=1 to 50
牐燽(j)=j
牐爊ext j
牐爄nput “enter a number to find:”;n
牐爉=srch(b(),n)
牐爄f m<>-1 then
牐爌rint “found at ”,m
牐爀lse
牐爌rint “not found”
牐爀nd if
牐爀nd
牐牎14】 srch(b(),a)
牐爁or j=1 to 50
牐爄f b(j)=a then
牐爏rch=j
牐爀xit 【15】
牐爀lse
牐爏rch=-1
牐爀nd if
牐爊ext j
牐爀nd function
牐(14) 下面程式的作用是利用隨機函式產生100個100~200之間(包含100、200)的隨機函式,列印其中17的整數倍的數及除去17的整數倍的數之外的其它數的總和。請根據程式的需要在【16】 、【17】 、【18】三處填上正確內容。
牐爎andomize timer
牐爏=0
牐爁or m=1 to 100
牐爔=int(rnd*【16】):s=s+x
牐爄f 【17】 then
牐爌rint x;
牐爇1=k1+x
牐爀ndif
牐爊ext m
牐爌rint
牐爌rint “the sum=”; 【18】
牐爀nd
牐(15) 下面程式的作用為判斷是否閏年(非閏年為不可被4整除,或能被100整除但不能被400整除的年份),請在【19】 、【20】 處補充使之完整。
牐牫絛蛉縵攏
牐爄nput “year=”;y
牐爄f y mod 4<>0 then
牐牎19】
牐爀lseif 【20】 then
牐 leapyear=0
牐爀lse
牐 leapyear=1
牐爀ndif
牐爄f leapyear=0 then
牐 print “non-leap year!”
牐爀lse
牐爌rint “leap year!”
牐爀nd if
牐爀nd

牐2001年9月全國計算機等級考試二級筆試參考答案
牐爍basic
牐犚弧 選擇題((1)--(40)題每題1分,(41)--(50)題每題2分,共60分。
牐(01)b (02)a (03)c (04)d (05)c (06)a (07)b (08)d (09)a (10)c
牐(11)d (12)a (13)b (14)c (15)c (16)b (17)c (18)c (19)d (20)d
牐(21)d (22)b (23)b (24)d (25)d (26)a (27)b (28)a (29)a (30)c
牐(31)b (32)d (33)b (34)a (35)b (36)a (37)d (38)c (39)d (40)b
牐(41)c (42)d (43)b (44)c (45)b (46)d (47)a (48)b (49)d (50)b
牐牰、填空題(每空2分,共40分)
牐1.copy *.txt prn
牐2.md a:x
牐3.xcopy
牐4.4
牐5.廣域網
牐6. sqr(exp(sin(x+y))*log(x-y))
牐7. dim ab as string*10
牐8.8
牐9.access
牐10.mid$(a$,5-m,m)
牐11.string*10
牐12.11
牐13.declare
牐14.function
牐15.for
牐16.101+100
牐17.x mod 17=0
牐18.s-k1
牐19.leapyear=0
牐20.(y mod 400 <>0) and (y mod 100=0)