一、選擇題
（1）—（35）題每題2分，共70分。
下列各題a)、b)、c)、d)四個先項中,只有一個選擇是正確的,請將正確選項涂寫在答題卡相應位置上,答在試卷上不得分。
(1) 下列不能打開屬性窗口的操作是 。
a) 執(zhí)行“視圖”菜單中的“屬性窗口”命令
b) 按f4鍵
c) 按ctrl+t
d) 單擊工具欄上的“屬性窗口”按鈕 。
(2) 下列可以打開立即窗口的操作是 。
a) ctrl+d b) ctrl+e c) ctrl+f d) ctrl+g
(3) inputbox函數(shù)反回值的類型為 。
a) 數(shù)值 b) 字符串
c) 變體 d) 數(shù)值或字符串（視輸入的數(shù)據(jù)而定）
(4) 可以同時刪除字符串前導和尾部空白的函數(shù)是 。
a) ltrim b) rtrim c) trim d) mid
(5) 表達式4+5 6 * 7 / 8 mod 9 的值是
a) 4 b) 5 c) 6 d) 7
(6) 如果在立即窗口中執(zhí)行以下操作：
a=8 <cr> (<cr>是回車鍵，下同)
b=9 <cr>print a>b <cr>
則輸出結(jié)果是 。
a) -1 b) 0 c) false d) true
(7) 以下語句的輸出結(jié)果是 。
print format $(32548.5,“000,000.00”)
a) 32548.5 b) 32,548.5 c) 032,548.50 d) 32,548.50
(8) 執(zhí)行以下程序段后，變量c$=“visual basic programing”b$=“quick”
c$=b$ & ucase(mid$(a$,7,6)) & right $ (a$,11)
a) visual basic programing
b) quick basic programing
c) quick basic programing
d) quick basic programing
(9) 為了在按下回車鍵時執(zhí)行某個命令按鈕的事件過程，需要把該命令按鈕的一個屬性設(shè)置為true，這個屬性是 。
a) value b) default c) cancel d) enabled
(10)為了把焦點移到某個指定的控件，所使用的方法是
a) setfocus b) visible c) refresh d) getfocus
(11)設(shè)a=6，則執(zhí)行 x=iif(a>5,-1,0)后，x 的值為 。
a) 5 b) 6 c) 0 d) -1
(12)執(zhí)行下面的程序段后，x 的值為 。
x=5for i=1 to 20 step 2
x=x+i5
next i
a) 21 b) 22 c) 23 d) 24
(13)在窗體上畫一個命令按鈕，然后編寫如下事件過程：
private sub command1_click()for i=1 to 4
x=4
for j =1 to 3
x=3
or k=1 to 2
x=x+6
next k
next j
next i
print x
end sub
程序運行后，單擊命令按鈕，輸出結(jié)果是 。
a) 7 b) 15 c) 157 d) 538
(14)在窗體上畫一個命令按鈕，然后編寫如下事件過程：prevate sub command1_click()x=0
do until x=-1
a = inputbox(“請輸入a的值”)a = val(a)
b = inputbox(“請輸入b的值”)b = val(b)
x = inputbox(“請輸入x的值”)x = val(x)
a = a+b+x
loop
print a
end sub
程序運行后，單擊命令按鈕，依次在輸入對話框中輸入5、4、3、2、1、-1，則輸出結(jié)果為 。
a) 2 b) 3 c) 14 d) 15
(15)在窗體(name屬性為form1)上畫兩個文本框（其name屬性分別為text1和text2）和一個命令按鈕（name 屬性為command1），然后編寫如下兩個事件過程：
private sub command1_click()a=text1.text+text2.text
print a
end sub
private sub formm_load()text1 text=
text2 text=
end sub
程序運行后，在第一個文本框（text1）和第二個文本框（text2）中分別輸入123和321，然后單擊命令按鈕，則輸出結(jié)果為 。
a) 444 b) 321123 c) 123321 d) 132231
(16)閱讀下面的程序段：for i=1 to 3for j=1 to i
for k=j to 3
a=a+1
next k
next j
next i
執(zhí)行上面的三重循環(huán)后，a 的值為 。
a) 3 b) 9 c) 14 d) 21
(17)在窗體上畫一個文本框（其中name屬性為text1），然后編寫如下事件過程：private sub form_load()ttext1.text=>
text1.setfocus
for i=1 to 10
sum=sum+i
next i
text1.text=sum
end sub
上述程序的運行結(jié)果是 。
a) 在文本框text1中輸出55b) 在文本框text1中輸出0c) 出錯d) 在文本框text1中輸出不定值
(18)在窗體上畫兩個文本框(其name 屬性分別為text1和text2)和一個命令按鈕(其name屬性為command1)，然后編寫如下事件過程：private sub command1_click()x=0
do while x<50
x=(x+2)*(x+3)
n=n+1
loop
text1.text=str(n)
text2.text=str(x)
end sub
程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為
a) 1和0 b) 2和72 c) 3和50 d) 4和168
(19)用下面語句定義的數(shù)組的元素個數(shù)是 。
dim a (- 3 to 5 ) as integer
a) 6 b) 7 c) 8 d) 9
(20)以下程序的輸出結(jié)果是option base 1private sub command1_click()
dim a(10),p(3) as integer
k=5
for i=1 to 10
a(i)=i
next i
for i=1 to 3
p(i)=a(i*i)
next i
for i=1 to 3
k=k+p(i)*2
next i
print k
end sub
a) 33 b) 28 c) 35 d) 37
(21)在窗體上面畫一個命令按鈕，然后編寫如下事件過程：option base 1private sub commandl_click()
dim a
a = array(1,2,3,4)
j = 1
for i = 4 to step -1
s = s + a(i)*j
j =j*10
next i
print s
end sub
運行上面的程序，單擊命令按鈕，其輸出結(jié)果是 。
a) 4321 b) 12 c) 34 d) 1234
(22)在窗體上面一個命令按鈕（其name屬性為commandl），然后編寫如下代碼：option base 1private sub commandl_click( )
dim a(4,4)
for i =1 to 4
for j =1 to 4
a(i,j) = (i-1)*3+j
next j
next i
for i =3 to 4
for j =3 to 4
print a(j,i);
next j
print
next i
end sub
程序運行后，單擊命令按鈕，其輸出結(jié)果為 。
a) 6 9 b) 7 10 c) 8 11 d) 9
127 10 8 11 9 12 10 13
(23)假定有如下的sub過程：sub s（x as single,y as single）t = =t/y
y =t mod y
end sub
在窗體上畫一個命令按鈕，然后編寫如下事件過程：private sub commandl_click ( )dim a as single
dim b as single
a =5
b =4
s a,b
print a,b
end sub
程序運行后，單擊命令按鈕，輸出結(jié)果為 。
a) 5 4 b) 1 1 c) 1.25 4 d) 1.25 1
(24)閱讀程序：function f(a as integer)b = 0
static c
b = b+1
c = c+1
f = a+b+c
end function
private sub commandl_click ()dim a as integer
a =2
for i =1 to 3
print f(a)
next i
end sub
運行上面的程序，單擊命令按鈕，輸出結(jié)果為 。
a) 4 b) 4 c) 4 d) 4
4 5 6 7
4 6 8 9
(25)閱讀程序：sub subp(b() as integer)for i =1 to 4
b(i)=2*i
next i
end sub
private sub commandl_click()dim a(1 to 4)as integer
a (1)=5
a (2)=6
a (3)=7
a (4)=8
subp a ()
for i =1 to 4
print a(i)
next i
end sub
運行上面的程序，單擊命令按鈕，輸出結(jié)果為 。
a）2 b）5 c）10 d）出錯
4 6 12
6 7 14
8 8 16
(26)下列不能打開菜單編輯器的操作是 。
a）按ctrl+e
b）單擊工具欄中的“菜單編輯器”按鈕
c）執(zhí)行“工具”菜單中的“菜單編輯器”命令
d）按shift + alt + m
(27)假定有一個菜單項，名為menuitem，為了在運行時使該菜單項失效（變灰），應使用的語句為 。a) menuitem. enabled=false
b) menuitem. enabled=true
c) menuitem. visible=true
d) menultem. visible=false
(28)在程序運行期間，如果拖動滾動條上的滾動塊，則觸發(fā)的滾動條事件是 。
a) move b) change c) scroll d) getfocus
(29)假定窗體上有一個標簽，名為labell，為了使該標簽透明并且沒有邊框，則正確的屬性設(shè)置為 。
a) label1. backstyle=0 label1.borderstyle=0
b) label1.backstyle=1 label1.borderstyle=1
c) label1.backstyle=true label1.borderstyle=true
d) label1.backstyle=false label1.borderstyle=false
(30)在窗體上畫一個列表框和一個文本框，然后編寫如下兩個事件過程：private sub form_load ()list1.additem"357"
list1.additem"246"
list1.additem"123"
listl.additem"456"
text1.text=
end sub
private sub list1_ dblclick ( )a =list1.text
print a+text1.text
end sub
程序運行后，在文本框中輸入“789”（見圖1），然后雙擊列表框中的"456"，則輸出結(jié)果為 。a) 1245 b) 456789 c) 789456 d) 0
(31)為了暫時關(guān)閉計時器，應把該計時器的某個屬性設(shè)置為false ，這個屬性是 。
a) visible b) timer c) enabled d) interval
(32)為了把一個記錄型變量的內(nèi)容寫入文件中指定的位置，所使用的語句的格式為 。
a）get文件號，記錄號，變量名
b）get文件號，變量名，記錄號
c）put文件號，變量名，記錄號
d）put文件號，記錄號，變量名
(33)對窗體編寫如下事件過程：private sub form _mousedown(button as integer, _shift as integer, x as single y as single)
if button =2 then
print "aaaaa"
end if
end sub
private sub form _ mouseup(button as integer, _shift as integer, x as single, y as single)
print "bbbbb"
end sub
程序運行后，如果單擊鼠標右鍵，則輸出結(jié)果為 。
a) aaaaa b) bbbbb c) aaaaa d) bbbbbbbbbb aaaaa
(34)為了在運行時能顯示窗體左上角的控制框（系統(tǒng)菜單），必須 。
a) 把窗體的contro1box 屬性設(shè)置為fale,其他屬性任意
b) 把窗體的controlbox 屬性設(shè)置為true,并且把boder style屬性設(shè)置為1-5
c) 把窗體的controlbox 屬性設(shè)置為false,同時把boderstyle屬性調(diào)協(xié)為非0值
d) 把窗體的controlbox 屬性設(shè)置為true,同時把boderstyle屬性設(shè)置為0值
(35)對窗體編寫如下代碼：option base 1private sub form_keypress(keyascii as integer)
a = array(237,126,87,48,498)
m1 = a(1)
m2 = 1
if keyascii = 13 then
for i =2 to 5
if a(i)>ml then
m1 =a(j)
m2 =i
end if
next i
end if
print m1
print m2
end sub
程序運行后，按回車鍵，輸出結(jié)果為
a) 48 b) 237 c) 498 d) 498
4 1 5 4
二、填空題（每空2分，共30分）
請將每空的正確答案寫在答題卡[1]—[15]序號的橫線上，答在試卷上不得分。
（1）設(shè)有如下的visual basic表達式：5 * x^2 – 3 * x – 2 * sin(a)/3它相當于代數(shù)式【1】 。
（2）執(zhí)行下面的程序段后，s的值為 【2】 。
s = 5for i = 2.6 to 4.9 step 0.6
s = s+1
next i
（3）表達式fix(-32.68)+int(-23.02)的值為【3】 。
（4）為了在運行時把圖形文件picfile. jpg裝入圖片框picture1,所使用的語句為【4】 。
（5）在窗體上畫一個命令按鈕，然后編寫如下事件過程：
private sub command1_click()a = inputbox("請輸入一個整數(shù)")
b = inputbox("請輸入一個整數(shù)")
print a + b
end sub
程序運行后，單擊命令按鈕，在輸入對話框中分別輸入321和456，輸出結(jié)果為 【5】。
(6) 執(zhí)行下面的程序段后，b的值為【6】。
a=300b=20
a=a+b
b=a-b
a=a-b
(7) 以下程序段的輸出結(jié)果是【7】 。
num=0while num<=2
num=num+1
print num
wend
(8) 在窗體畫一個命令按鈕，然后編寫如下事件過程：private sub command1_click()dim a(1 to 10)
dim p(1 to 3)
k=5
for i=1 to 10
a(i)=i
next i
for i=1 to 3
p(i)=a(i*i)
next i
for i=1 to 3
k=k+p(i)*2
next i
print k
end sub
程序運行后，單擊命令按鈕，輸出結(jié)果是【8】 。
(9) 下面的程序用“冒泡”法將數(shù)組a中的10個整數(shù)按升序排列，請在【9】、【10】、【11】處將程序補充完整。
option base 1private sub command1_click()
dim a
a=array(678,45,324,528,439,387,87,875,273,823)
for i=【9】for j=【10】if a(i)【11】 a(j) thena1=a(i)
a(i)=a(j)
a(j)=a1
end if
next j
next i
for i=1 to 10
print a(i)
next i
end sub
(10) 在窗體畫一個命令按鈕，然后編寫如下過程：function fun(byval num as long)as longdim k as long
k=1
num=abs(num)
do while num
k=k*(num mod 10)
num=num10
loop
fun=k
end function
private sub command1_click()dim n as long
dim r as long
n=inputbox("請輸入一個數(shù)")n=clng(n)
r=fun(n)
print r
end sub
程序運行后，單擊命令按鈕，在輸入對話框中輸入234，輸出結(jié)果為【12】 。
(11) 如果要將某個菜單項設(shè)計為分隔線，則該菜單項的標題應設(shè)置為【13】。
(12) 假定建立了一個工程，該工程包括兩個窗體，其名稱(name 屬性)分別為form1和form2，啟動窗體為form1。在form1畫一個命令按鈕command1，程序運行后，要求當單擊該命令按鈕時，form1窗體消失，顯示窗體form2，請在【14】和【15】處將程序補充完整。
private sub command1_click()【14】 form1form2. 【15】end sub