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
誰有初一年級上期末考試題所有課近幾年，正確的
陝西師大附中2007 2008學年度第一學期期末考試 七年級數學試題 命題人 劉 波 審題人 段曉慧 一.選擇題 本大題共10個小題，每小題3分，共30分。在每小題給出的四個選項中，只有一項是符合題目要求的。把符合題目要求的選項前的字母填在題後相應的括號內 1.下列結論正確的是 a 直線比射線長.b...
一些計算機等級考試題目
1.假設int用2位元組表示，那麼5就是 0000 0000 0000 0101，補碼就是取反加1，即1111 1111 1111 1011，8進位制就是1 111 111 111 111 011 即17777316進位制就是fffb，如果int用4位元組表示，則8進製為37777777773，16...
求大神救命啊，山東財經大學大一生，期末考試微積分和會計學原理都掛了！！金融學院的！哭死了
哈哈，你別說你山財的，你想幹啥？師弟 妹 我勒個去，兩門主課都掛了 穆桂英掛帥啊 在大學學習會計專業，要不要用到高等數學啊！學會計並不需要數學學習特別好，現在會計對數學的依賴並不高，只要會基本的預算能力有數學頭腦就可以。數學不好，你的專業不會受到太大的影響。數學不好，你畢業後的會計工作也不會有太大影...