1樓：匿名使用者
單項選擇題 判斷題 填空題 程式設計題
1) 下列程式執行後，輸出的結果為______。
b=1do while (b<40)
b=b*(b+1)
loop
print b
a) 42
b) 39
c) 6
d) 1 答案：a
2) 設執行以下程式段時依次輸入1、3、5，執行結果為_____。
dim a(4) as integer
dim b(4) as integer
for k =0 to 2
a(k+1) =val(inputbox(「請輸入資料："))
b(3-k) =a(k+1)
next k
print b(k)
a) 1
b) 3
c) 5
d) 0 答案：a
3) 下列程式執行後，變數s的值為______。
dim s as long ,x as integer
s=0:x=1
do while (x<10)
s=s+x
x=x+2
loop
print s
a) 10
b) 25
c) 50
d) 100 答案：b
4) 編寫如下事件過程：
private sub form_mousedown(button as integer ,shift as integer,x as single,y as single)
if shift=6 and button=2 then
print "hello"
end if
end sub
程式執行後，為了在窗體上輸出"hello"，應在窗體上執行以下_______操作。
a) 同時按下 shift 鍵和滑鼠左鍵
b) 同時按下 shift 鍵和滑鼠右鍵
c) 同時按下ctrl、alt 鍵和滑鼠左鍵
d) 同時按下 ctrl、alt 鍵和滑鼠右鍵 答案：d
5) 當變數x=2,y=5時，以下程式的輸出結果為____。
do until y>5
x=x*y
y=y+1
loop
print x
a) 2
b) 5
c) 10
d) 20 答案：c
6) 當執行以下程式時，在名為lblresult的標籤框內將顯示_____。
private sub cmdlt_click()
dim i,r
r=0for i=1 to 5 step 1
r=r+i
next i
lblresult.caption=str（r）
end sub
a) 字串15
b) 整數15
c) 字串5
d) 整數5 答案：a
7) 如下有一段不完整的程式段，如果要求該程式執行3次迴圈，則應在程式中的括號裡輸入______。
x=1do
x=x+3
print x
loop until(___)
a) x>=8
b) x<=8
c) x>=7
d) x<=7 答案：a
8) 若整型變數a的值為2、b的值為3，則下列程式段執行後整型變數c的值為______。
if a>5 then
if b<4 then
c=a-b
else
c=b-a
end if
elseif b>3 then c=a*b
else
c=a mod b
end if
a) 2
b) -1
c) 1
d) 6 答案：a
9) 設有如下語句：
str1=inputbox("輸入","","練習")
從鍵盤上輸入字串「示例」後，str1的值是___。
a) 「輸入」
b) 「」
c) 「練習」
d) 「示例」 答案：d
10) 我們在一個窗體上建立兩個文字框，名稱分別為text1和text2，事件過程如下，
private sub text1_change( )
text2.text=ucase(text1.text)
end sub
則在text1文字框輸入「visual basic」，text2將______。
a) text2中無內容顯示。
b) text2顯示"visual basic"。
c) text2顯示"visual basic"
d) text1顯示"visual basic" 答案：b
11) 下列程式的執行後s的值是_____。
s=0for x=99 to 1 step-2
s=s+x
next x
print s
a) 100
b) 500
c) 2500
d) 5000 答案：c
12) 下列程式的執行結果是____。
k=0for i=1 to 3
a=i^i^k
print a;
next i
a) 1 1 1
b) 1 2 3
c) 0 0 0
d) 1 4 9 答案：a
13) 下列程式的執行結果是_____。
dim a(5) as string
dim b as integer
dim i as integer
for i =0 to 5
a(i)=i+1
print a(i)
next i
a) 123456
b) 6
c) 654321
d) 0 答案：a
14) 下列程式的執行結果為_____。
dim intsum as integer
dim i as integer
intsum=0
for i=20.2 to 5 step -4.7
intsum=intsum +i
next i
print intsum
a) 150
b) 200
c) 50
d) 0 答案：c
15) 下列程式的執行結果為_____。
dim s as integer,n as integer
s=0:n=1
do while n<=100
s=s+n
n=n+1
loop
print s
a) 5050
b) 2500
c) 3000
d) 4000 答案：a
16) 下列程式的執行結果為_____。
a=100:b=50
if a>b then
a=a-b
else
b=b+a
end if
print a
a) 50
b) 100
c) 200
d) 10 答案：a
17) 下列程式的執行結果為________。
dim intsum as integer
dim i as integer
intsum=0
for i=0 to 50 step 10
intsum=intsum+i
next i
print intsum
a) 150
b) 200
c) 50
d) 0 答案：a
18) 下面程式執行後，x的結果為_____。
x=0for i =1 to 5
for j=i to 5
x=x+1
next j
next i
print x
a) 5
b) 10
c) 15
d) 20 答案：c
19) 下面程式執行的結果是____。
private sub form_click()
a$="123":b$="456"
c=val(a$)+val(b$)
print c\100
end sub
a) 123
b) 3
c) 5
d) 579 答案：c
20) 下列迴圈語句將執行______次。
a=100
doprint a
a=a+1
loop until a<=10
a) 1
b) 10
c) 100
d) 死迴圈 答案：d
21) 下面程式段的迴圈結構執行後， 的輸出值是_____。
程式段為：
for i=1 to 10 step 2
y=y+i
next i
print i;
a) 25
b) 10
c) 11
d) 因為y的初值不知道，所以不確定 答案：c
22) 寫列程式段的執行結果____。
a="abbacddcba"
for i=6 to 2 step -2
x=mid(a,i,i)
y=left(a,i)
z=right(a,i)
z=x & y & z
next i
print ucase(z)
a) aba
b) aabaab
c) bbabba
d) abbaba 答案：c
23) 以下語句輸出結果是（在立即視窗中）_____。
a="beijing"
b="shanghai"
print a;b
a) beijing shanghai
b) abeijing shanghai
c) beijingshanghai
d) abeijing 答案：c
24) 有如下程式：
for i=1 to 3
for j=5 to 1 step-1
print i+j
next j,i
其迴圈執行的次數為______。
a) 12
b) 13
c) 14
d) 15 答案：d
25) 有如下程式段，該程式執行後，變數a的值為______。
for i=1 to 2
for j=i to 2
for k=1 to j
a=a+2
next k
next j
next i
a) 2
b) 8
c) 10
d) 20 答案：c
26) 執行下列程式後，變數a的值為____。
dim i as integer
dim a as integer
a=0for i=0 to 100 step 2
a=a+1
next i
a) 1
b) 10
c) 51
d) 100 答案：c
27) 執行下列程式後，x的值為______。
x=3y=6
do while y<=6
x=x*y
y=y+1
loop
a) 3
b) 6
c) 18
d) 20 答案：c
28) 執行下列程式段後，整型變數c的值為___。
a=24
b=328
select case b\10
case 0
c=a*10+b
case 1 to 9
c=a*100+b
case 10 to 99
c=a*1000+b
end select
a) 537
b) 2427
c) 24328
d) 240328 答案：c
29) 執行完下面的程式段後，迴圈將執行____次。
for i=1.7 to 5.9 step 0.9
a=a+1
print a
next i
a) 3
b) 4
c) 5
d) 6 答案：c
30) 有如下語句，執行後該段語句的迴圈次數是_____。
dim s,i,j as integer
for i =1 to 3
for j=3 to 1 step-1
s=i*j
next j
next i
a) 9
b) 10
c) 3
d) 4 答案：a
31) 有如下程式，該程式將______。
for i=1 to 10 step 0
k=k+2
next i
a) 形成無限迴圈。
b) 迴圈體執行一此後結束迴圈。
c) 語法錯誤。
d) 迴圈體不執行即結束迴圈。 答案：a
32) 有如下程式段，該程式段執行完畢後，共迴圈了________。
for i=1 to 5
for j=1 to i
for k=j to 4
print "a"
next k
next j
next i
a) 4
b) 5
c) 38
d) 40 答案：d
33) 有如下程式，該程式的執行結果為______。
dim k as integer
n=5:m=1:k=1
do while k<=n
m=m*2
k=k+1
loop
print m
a) 1
b) 5
c) 32
d) 40 答案：c
34) 以下程式輸出1到1000之間所有的偶數之和，請補充完該程式。
private sub command_click()
dim x as double
for i=0 to 1000
if ____ then
x=x+i
end if
next i
print x
end sub
a) i mod 2 = 0
b) x mod 2 = 0
c) i mod 2 <> 0
d) x mod 2 <> 0 答案：a
35) 以下是計算10的階乘的程式，請補充該程式。
dim t as single
dim k as integer
k=0:t=1
while_______
k=k+1
t=t*k
wend
print t
a) k<10
b) k>10
c) k=10
d) k>=10 答案：a
36) _____是由visual basic提供的一種專門的子程式，由物件本身所具有，反映該物件功能的內部函式或過程。
a) 檔案
b) 屬性
c) 方法
d) 窗體 答案：c
37) 剛建立一個新的標準exe工程後，不在工具箱**現的控制元件是_____。
a) 單選按鈕
b) **框
c) 通用對話方塊
d) 文字框 答案：c
38) 下列各項不是visual basic的基本資料型別的是_____。
a) char
b) string
c) integer
d) double 答案：a
39) 下列運算結果中，值最大的是 ______。
a) 3\4
b) 3/4
c) 4 mod 3
d) 3 mod 4 答案：d
40) 以下不屬控制元件的一項是_____。
a) 文字框
b) 標籤框
c) 列表框
d) 訊息框 答案：d
41) 用inputbox函式可幫助生成_______。
a) 訊息框
b) 「儲存」對話方塊
c) 簡單輸入框
d) 「顏色」對話方塊 答案：c
42) ______物件不能響應click事件。
a) 列表框
b) **框
c) 窗體
d) 計時器 答案：d
43) 17 mod 3的運算結果是_____。
a) 0.5
b) 1
c) 1.5
d) 2 答案：d
44) 變數x=32769，則變數宣告時不能將其宣告為_____。
a) intrger
b) variant
c) long
d) single 答案：a
45) 表示式2*3^2+2*8/4+3^2的值為_____。
a) 64
b) 31
c) 49
d) 22 答案：b
46) 複選物件是否被選中，是由其_____屬性決定的。
a) checked
b) value
c) enabled
d) selected 答案：b
47) 沒有caption屬性的控制元件是_____。
a) label
b) optionbutton
c) frame
d) lisbox 答案：d
48) 下列符號是visual basic中合法變數名的是_____。
a) if
b) 7ab
c) a[b]7
d) ab_7 答案：d
49) 使窗體自動向下移動的語句是move_____。
a) left, top+100
b) top+100
c) top+100
d) top=top+100 答案：a
50) rgb函式通過紅、綠、藍三基色混合產生某種顏色，其語法為rgb（紅、綠、藍），括號中紅、綠、藍三基色的成分使用0-255之間的整數。若使用3個滾動條分別輸入3種基色，為保證輸入數值有效，則應設定_____屬性。
a) max和min
b) smallchange和largechange
c) scroll和change
d) value 答案：a
小學五年級期末考試試題
五年級數學上冊期末考試卷 一 口算 6分 二 填空 14分 1 6.01千克 克 3平方米70平方分米 平方米 1.3小時 小時 分 54分米 米 2 兩個數的商是4.5，如果被除數 除數同時擴大20倍，商是 3 從某人的身份證號碼441900199607123452，知道這個人出生的時間是 性別是...
期末考試怎麼複習，期末考試如何複習
你的學習生活和我當年的很像，我和你說說我那時的感受吧。我是學理科的，所以只能在理科方面給你點建議，文科以我理解就是背和理解，加延伸，不用太過動腦吧 理科學習也不是很難，首先當然離不開要做大量習題，不過最主要的不是你做了多少，而是理解了多少，要懂得舉一反三，我個人開始物理不是很好，被老師弄過很多次，然...
期末考試英語怎麼複習，期末考試英語如何複習整理
申屠清安黎書 開學的時候應該都發了四冊的英語書吧，是不是每一冊都有一本練習本？如果有的話做做裡面的閱讀理解吧，通常閱讀理解會有一篇裡面的，還有就是要好好記單詞和短語，考試都有翻譯句子，漢譯英，短語都是要考的，當然你要是有時間也可以做書上每一課後面的練習題！我是大四的 梅酒且滿盅 通常有集中複習 分散...