一、 選擇題（（1）~（20）每小題2分，（21）~（30）每小題3分，共70分）
（1）以下敘述中錯誤的是
a）visual basic 是事件驅(qū)動型可視化編程工具
b）visual basic應(yīng)用程序不具有明顯的開始和結(jié)束語句
c）visual basic工具箱中的所有控件都具有寬度（width）和高度（height）屬性
d）visual basic中控件的某些屬性只能在運行時設(shè)置
（2）以下敘述中錯誤的是
a）在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件
b）以.bas為擴展名的文件是標準模塊文件
c）窗體文件包含該窗體及其控件的屬性
d）一個工程中可以含有多個標準模塊文件
（3）以下敘述中錯誤的是
a）雙擊鼠標可以觸發(fā)dblclick事件
b）窗體或控件的事件的名稱可以由編程人員確定
c）移動鼠標時，會觸發(fā)mousemove事件
d）控件的名稱可以由編程人員設(shè)定
（4）以下不屬于visual basic系統(tǒng)的文件類型是
a）.frm b）.bat c）.vbg d）.vbp
（5）以下敘述中錯誤的是
a）打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標準模塊等文件
b）保存visual basic程序時，應(yīng)分別保存窗體文件及工程文件
c）visual basic應(yīng)用程序只能以解釋方式執(zhí)行
d）事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)
（5）以下敘述中錯誤的是
a）打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標準模塊等文件
b）保存visual basic程序時，應(yīng)分別保存窗體文件及工程文件
c）visual basic應(yīng)用程序只能以解釋方式執(zhí)行
d）事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)
（6）以下能正確定義數(shù)據(jù)類型telbook的代碼是
a）type telbook b）type telbook
name as string*10 name as string*10
telnum as integer telnum as integer
end type end telbook
c）type telbook d）typedef telbook
name string*10 name string*10
telnum integer telnum integer
end type telbook end type
（7）以下聲明語句中錯誤的是
a）const var1=123 b）dim var2 = \'abc\'
c）defint a-z d）static var3 as integer
（8）設(shè)窗體上有一個列表框控件list1，且其中含有若干列表項。則以下能表示當前被選中的列表項內(nèi)容的是
a）list1.list b）list1.listindex c）list1.index d）list1. text
（9）程序運行后，在窗體上單擊鼠標，此時窗體不會接收到的事件是
a）mousedown b）mouseup c）load d）click
（10）設(shè)a=10，b=5，c=1，執(zhí)行語句print a > b > c后，窗體上顯示的是
a）true b）false c）1 d）出錯信息
（11）如果要改變窗體的標題，則需要設(shè)置的屬性是
a）caption b）name c）backcolor d）borderstyle
（12）以下能判斷是否到達文件尾的函數(shù)是
a）bof b）loc c）lof d）eof
（13）如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是
a）如果工程中含有sub main過程，則程序一定首先執(zhí)行該過程
b）不能把標準模塊設(shè)置為啟動模塊
c）用hide方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體
d）任何時刻最多只有一個窗體是活動窗體
（14）窗體的mousedown事件過程
form_mousedown (button as integer, shift as integer, x as single, y as single)
有4個參數(shù)，關(guān)于這些參數(shù)，正確的描述是
a）通過button參數(shù)判定當前按下的是哪一個鼠標鍵
b）shift參數(shù)只能用來確定是否按下shift鍵
c）shift參數(shù)只能用來確定是否按下alt和ctrl鍵
d）參數(shù)x,y用來設(shè)置鼠標當前位置的坐標
（15）設(shè)組合框combo1中有3個項目，則以下能刪除最后一項的語句是
a）combo1.removeitem text
b）combo1.removeitem 2
c）combo1.removeitem 3
d）combo1.removeitem combo1.listcount
（16）以下關(guān)于焦點的敘述中，錯誤的是
a）如果文本框的tabstop屬性為false，則不能接收從鍵盤上輸入的數(shù)據(jù)
b）當文本框失去焦點時，觸發(fā)lostfocus事件
c）當文本框的enabled屬性為false時，其tab順序不起作用
d）可以用tabindex屬性改變tab順序
（17）如果要在菜單中添加一個分隔線，則應(yīng)將其caption屬性設(shè)置為
a）= b）* c）& d）-
（18）執(zhí)行語句open "tel.dat" for random as #1 len = 50后，對文件tel.dat中的數(shù)據(jù)能夠執(zhí)行的操作是
a）只能寫，不能讀 b）只能讀，不能寫
c）既可以讀，也可以寫 d）不能讀，不能寫
（19）在窗體上畫一個名稱為command1的命令按鈕和兩個名稱分別為text1、text2的文本框，然后編寫如下事件過程：
private sub command1_click()
n = text1.text
select case n
case 1 to 20
x = 10
case 2, 4, 6
x = 20
case is < 10
x = 30
case 10
x = 40
end select
text2.text = x
end sub
程序運行后，如果在文本框text1中輸入10，然后單擊命令按鈕，則在text2中顯示的內(nèi)容是
a）10 b）20 c）30 d）40
（20）設(shè)有以下循環(huán)結(jié)構(gòu)
do
循環(huán)體
loop while <條件>
則以下敘述中錯誤的是
a）若"條件"是一個為0的常數(shù)，則一次也不執(zhí)行循環(huán)體
b）"條件"可以是關(guān)系表達式、邏輯表達式或常數(shù)
c）循環(huán)體中可以使用exit do語句
d）如果"條件"總是為true，則不停地執(zhí)行循環(huán)體
（21）在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：
private sub command1_click()
dim num as integer
num = 1
do until num > 6
print num;
num = num + 2.4
loop
end sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是
a）1 3.4 5.8 b）1 3 5
c）1 4 7 d）無數(shù)據(jù)輸出
（22）在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：
private sub command1_click()
dim a as integer, s as integer
a = 8
s = 1
do
s = s + a
a = a－1
loop while a <= 0
print s; a
end sub
程序運行后，單擊命令按鈕，則窗體上顯示的內(nèi)容是
a） 7 9 b） 34 0
c） 9 7 d）死循環(huán)
（23）設(shè)有如下通用過程：
public function f(x as integer)
dim y as integer
x = 20
y = 2
f = x * y
end function
在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：
private sub command1_click()
static x as integer
x = 10
y=5
y = f(x)
print x; y
end sub
程序運行后，如果單擊命令按鈕，則在窗體上顯示的內(nèi)容是
a）10 5 b）20 5
c）20 40 d）10 40
（24）設(shè)有如下通用過程：
public sub fun(a(), byval x as integer)
for i = 1 to 5
x = x + a(i)
next
end sub
在窗體上畫一個名稱為text1的文本框和一個名稱為command1的命令按鈕，然后編寫如下的事件過程：
private sub command1_click()
dim arr(5) as variant
for i = 1 to 5
arr(i) = i
next
n = 10
call fun(arr(), n)
text1.text = n
end sub
程序運行后，單擊命令按鈕，則在文本框中顯示的內(nèi)容是
a）10 b）15 c）25 d）24
（25）在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下代碼：
option base 1
private sub command1_click()
d = 0
c = 10
x = array(10, 12, 21, 32, 24)
for i = 1 to 5
if x(i) > c then
d = d + x(i)
c = x(i)
else
d = d－c
end if
next i
print d
end sub
程序運行后，如果單擊命令按鈕，則在窗體上輸出的內(nèi)容為
a）89 b）99 c）23 d）77
（26）在窗體上畫兩個滾動條，名稱分別為hscroll1 、hscroll2；六個標簽，名稱分別為label1、label2、label3、label4、label5、label6，其中標簽label 4~ label6分別顯示"a"、"b"、"a*b"等文字信息，標簽label1、label2分別顯示其右側(cè)的滾動條的數(shù)值，label3 顯示a*b的計算結(jié)果。如圖所示。當移動滾動框時，在相應(yīng)的標簽中顯示滾動條的值。當單擊命令按鈕"計算"時，對標簽label1、label2中顯示的兩個值求積，并將結(jié)果顯示在label3中。以下不能實現(xiàn)上述功能的事件過程是
a）private sub command1_click()
label3.caption = str(val(label1.caption )*val( label2.caption))
end sub
b）private sub command1_click()
label3.caption = hscroll1.value * hscroll2.value
end sub
c）private sub command1_click()
label3.caption = hscroll1 * hscroll2
end sub
d）private sub command1_click()
label3.caption = hscroll1. text * hscroll2.text
end sub
（27）在窗體上畫一個名稱為command1的命令按鈕，然后編寫如下事件過程：
private sub command1_click()
for n = 1 to 20
if n mod 3 <> 0 then m = m + n \ 3
next n
print n
end sub
程序運行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容是
a）15 b）18 c）21 d）24
（28）在窗體上畫一個名稱為text1的文本框，并編寫如下程序：
private sub form_load()
show
text1.text =
text1.setfocus
end sub
private sub form_mouseup(button as integer, shift as integer, x as single, y as single)
print "程序設(shè)計"
end sub
private sub text1_keydown(keycode as integer, shift as integer)
print "visual basic";
end sub
程序運行后，如果按"a"鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是
a）visual basic b）程序設(shè)計
c）a程序設(shè)計 d）visual basic程序設(shè)計
（29）設(shè)有如下程序：
private sub command1_click()
dim sum as double, x as double
sum = 0
n = 0
for i = 1 to 5
x = n / i
n = n + 1
sum = sum + x
next
end sub
該程序通過for循環(huán)計算一個表達式的值，這個表達式是
a）1+1/2+ 2/3+3/4+4/5 b）1+1/2+2/3+3/4
c）1/2+2/3+3/4+4/5 d）1+1/2+1/3+1/4+1/5
（30）以下有關(guān)數(shù)組定義的語句序列中，錯誤的是
a） static arr1(3)
arr1(1) = 100
arr1(2) = "hello"
arr1(3) = 123.45
b）dim arr2() as integer
dim size as integer
private sub command2_click()
size = inputbox("輸入：")
redim arr2(size)
......
end sub
c）option base 1
private sub command3_click()
dim arr3(3) as integer
......
end sub
d）dim n as integer
private sub command4_click()
dim arr4(n) as integer
......
end sub
二、填空題（每空2分，共30分）
（1）執(zhí)行下面的程序段后，i的值為 〖1〗 ，s的值為 〖2〗 。
s = 2
for i = 3.2 to 4.9 step 0.8
s = s + 1
next i
（2）把窗體的keypreview屬性設(shè)置為true，然后編寫如下兩個事件過程：
private sub form_keydown(keycode as integer, shift as integer)
print chr(keycode)
end sub
private sub form_keypress(keyascii as integer)
print chr(keyascii)
end sub
程序運行后，如果直接按鍵盤上的"a"鍵（即不按住shift鍵），則在窗體上輸出的字符分別是 〖3〗 和 〖4〗 。
（3）在窗體上畫一個標簽（名稱為label1）和一個計時器（名稱為timer1），然后編寫如下幾個事件過程：
private sub form_load()
timer1.enabled = false
timer1.interval = 〖5〗
end sub
private sub form_click()
timer1.enabled = 〖6〗
end sub
private sub timer1_timer()
label1.caption = 〖7〗
end sub
程序運行后，單擊窗體，將在標簽中顯示當前時間，每隔1秒鐘變換一次（見圖）。請?zhí)羁铡?br>
（4）在窗體上畫一個文本框、一個標簽和一個命令按鈕，其名稱分別為text1、label1和command1，然后編寫如下兩個事件過程：
private sub command1_click()
s$ = inputbox("請輸入一個字符串")
text1.text = s$
end sub
private sub text1_change()
label1.caption = ucase(mid(text1.text, 7))
end sub
程序運行后，單擊命令按鈕，將顯示一個輸入對話框，如果在該對話框中輸入字符串"visualbasic"，則在標簽中顯示的內(nèi)容是 〖8〗 。
（5）在窗體上畫一個列表框、一個命令按鈕和一個標簽，其名稱分別為list1、command1和label1，通過屬性窗口把列表框中的項目設(shè)置為："第一個項目"、"第二個項目"、"第三個項目"、"第四個項目"。程序運行后，在列表框中選擇一個項目，然后單擊命令按鈕，即可將所選擇的項目刪除，并在標簽中顯示列表框當前的項目數(shù)，運行情況如圖所示(選擇"第三個項目"的情況)。下面是實現(xiàn)上述功能的程序，請?zhí)羁铡?br>private sub command1_click()
if list1.listindex >= 〖9〗 then
list1.removeitem 〖10〗
label1.caption = 〖11〗
else
msgbox "請選擇要刪除的項目"
end if
end sub
（6）設(shè)有程序：
option base 1
private sub command1_click()
dim arr1, max as integer
arr1 = array(12, 435, 76, 24, 78, 54, 866, 43)
（資料來源：東方教育網(wǎng)
〖12〗 = arr1(1)
for i = 1 to 8
if arr1(i) > max then 〖13〗
next i
print "最大值是: "; max
end sub
以上程序的功能是：用array函數(shù)建立一個含有8個元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值。請?zhí)羁铡?br>
（7）以下程序的功能是：把當前目錄下的順序文件smtext1.txt的內(nèi)容讀入內(nèi)存，并在文本框text1中顯示出來。請?zhí)羁铡?br>private sub command1_click()
dim indata as string
text1.text =
open ".\smtext1.txt" 〖14〗 as #1
do while 〖15〗
input #1, indata
text1.text = text1.text & indata
loop
close #1
end sub