vb選擇和迴圈結構專練（二）2013.3.23
16 下列程式執行時，從鍵盤輸入字元"-"，則輸出結果是_______。
private sub form_click()
op$=inputbox("op=")
if op$="+" then a=a+2
if op$="-" then a=a-2
print a
end sub
a. -2 b. 0 c. +2d. +0
17 下列程式段的執行結果為
for i=3 to 1 step -1
print space(5-i);
for j=1 to 2*i-1
print "*";
next j
next i
abcd. *****
20 執行以下程式後，輸出結果為
x%=1/4
y%=11/4
print x%;y%
enda. 0.25 0.75 b. 0 2 c. 0 3 d. 1 3
26 以下程式段執行後，輸出字元的排列順序是
for i=1 to 6
if i mod 2=0 then
print "#";
else
print "*";
end if
next i
abcd. *#*#*#
29 設a=1,b=2,c=3,d=4，則表示式iif(a a. 4b. 3c. 2d. 1
41 若x=1，執行語句if x then x = 0 else x = 1的結果是
a. 實時錯誤b. 編譯錯誤c. x=1 d. x=0
42 下列程式段的迴圈結構執行後，i的輸出值是
dim y as integer
for i = 1 to 10 step 2
y = y + i
next i
print i
a) 25 b) 10 c) 11 d) 因為y初值不知道，所以不確定
43 以下程式段的執行結果是
private sub form_click()
x = 5
m = 1
n = 1
dom = m * n
n = n + 1
loop until n > 5
print x ^ 2 + m / 3
end sub
a. 25 b. 45 c. 55 d. 65
44 以下程式段的執行結果是
private sub form_click()
dim s as long, f as long
dim n as integer, i as integer
f = 1
n = 4
for i = 1 to n
f = f * i
s = s + f
next i
print "s="; s
end sub
45 以下程式段的執行結果是
private sub form_click()
a = 1
b = a
do until a >= 5
x = a * b
print str(astr(b) & "="; str(x);
a = a + b
b = b + a
loop
end sub
a. 1*1=1 2*3=6 b. 1*1=2 2*2=4
c. 1*1=1 3*3=9 d. 1*1=2 3*2=6
46 下面分別是求兩個數中的大數的四個程式段，_______不正確。
a) max=iif(x>y,x,y) b) if x>y then max=x else max=y
c) max=xd) if y>=x then max=y
if y>=x then max=y max=x
47 下列迴圈能正常結束的是
a. i=5b. i=1
dodo
i=i+1i=i+2
loop until i<0 loop until i=10
c. i=10d. i=6
dodo
i=i+1i=i-2
loop until i>0 loop until i=1
48 有如下程式，執行時從鍵盤輸入4，則輸出的結果是_______。
private sub form_click()
a=inputbox("enter a value of a:")
select case a
case is>2
b=a+1
case is>3
b=a+2
case is>5
b=a+3
case else
b=a+4
end select
print a;b
end sub
a. 4 4 b. 4 5 c. 4 6 d. 4 7
49 執行如下程式段時，從鍵盤輸入-5，輸出的結果是_______。
x=-5
s=val(inputbox("請輸入s的值
select case s
case is>0
y=x+1
case is=0
y=x+2
case else
y=x+3
end select
print x;y
a. -5 -2 b. -5 -4 c. -5 -3 d. -5 -5
50 某林場2023年植樹100畝，以後每年的植樹面積按5%的速度增長，
能正確計算到2023年時四年的植樹總面積的程式是
a. s=100:r=0.05b. s=100:sum=100:r=0.05
for i=1996 to 1998for i=1996 to 1998
s=s*(1+rs=s*(1+r)
next isum=sum+s
print inext i
endprint sum
c. s=100:r=0.05d. s0=100:sum=100:r=0.05
for i=1996 to 1998for i=1996 to 1998
s=s*(1+r)+ss=s0*(1+r)
next isum=sum+s
print inext i
endprint sum
51 以下程式段執行後，變數s、x的值分別為
dim s as integer, x as integer
s = 10: x = 1
do while x < 10
s = s + 2
VB實驗報告選擇和迴圈結構程式設計
南京工程學院 電力工程學院 2010 2011 學年第 2 學期 實驗報告 課程名稱 vb語言程式設計 實驗專案名稱選擇和迴圈結構程式設計 實驗學生班級 實驗學生姓名 同組學生姓名 實驗時間 2011年3月21 日 實驗地點電力工程基礎實驗室 實驗報告成績評閱教師簽字 年月日電力工程學院二oo七年制...
VB選擇結構
三 完善程式鞏固新知 引入 半成品加工策略 出示順序結構中曾經完成的練習，要求學生指出原程式中有哪些還不夠完善的地方，請運用本課知識，進行修改 除錯，鞏固本課重點。要求兩人一組，兩人共同對兩個練習進行分析，然後每人選做一題，可以互相幫助，做完後互相交流，互相評價結果。練習一 乙個小球，不停地向上方滾...
VB選擇結構
按要求儲存檔案，窗體檔名為e6.frm，工程檔名為e6.vbp。7.彈球。窗體上有乙個紅色實心小球shape1，兩個命令按鈕 mand1和 mand2，乙個定時器timer1。shape1控制項屬性設定 shape 3 circle borderstyle 0 transparent fillsty...