3．下面的（b ）控制項不具備caption屬性
a 標籤 b 文字框 c 命令按鈕 d 單選按鈕
4． 若要使使用者不能修改文字框textbox1中內容，應修改（ a）屬性
a locked b multiline c passwardchar d scrollbar
6. 若要求從文字框中輸入密碼時在文字框中只顯示#號， 則應當在此文字框的屬性視窗中設定（ d）
a text屬性值為「#」 b caption的屬性值為「#」
c password屬性值為空 d passwordchar屬性值為「#」
8. 在visual basic 預設狀態下，用下面語句定義的陣列的元素個數是（b ）
dim a (-4 to 2) as integer
a 6 b 7 c 8d 9
10. 在過程定義中用（ a）表示形參的傳址。
a byref b val c byval d value
12. 在visual basic 中 ，乙個語句行內寫多條語句時，語句之間應該用（ d ）隔開
a 逗號 b 頓號 c 分號 d 冒號
15. 下列變數名中，不合法的是（ d ）
a city b class_1 c abc% d const
18. 下列各組中 ，兩個函式功能完全相反的是（ a ）
a str(x)和val(x) b sin(x)和cos(x) c ltrim(x)和rtrim(x) d timer(x)和time(x)
1、visual basic是面向（ c）的程式語言
a）視窗b）方法c）物件d）過程
5、能產生[50，500]之間隨機整數的函式表示式是 （ c ）
a）int（450*rnd）+50 b）int（450*rnd）c）int（451*rnd）+50 d）int（451*rnd）
6、表示學習成績（score）在75分90分之間的布林表示式是（ a ）
a）score>=75 and score<=90 b) score>=75 or score<=90
c) score<=75 and score>=90 d) score<=75 or score>=90
25、在visual basic中陣列分類方法有多種，下面錯誤的提法是（ c ）
a)依陣列的大小確定與否將其分為靜態陣列和動態陣列兩類
b)依據陣列的維數不同可以分為一維陣列，二維陣列，直至最大為60維陣列
c)依據陣列的維數不同可以分為一維陣列，二維陣列，直至最大為81維陣列
d)依據物件不同，將其分為變數陣列和控制項陣列兩類
三、程式閱讀選擇題（15*2=30分）
1、下面程式的功能是：計算1到50之間的偶數和及偶數平方和,並顯示出來。請在處選擇正確答案。
private sub form_click()
dim sum1 as integer, sum2 as integer, i as integer
sum1 = 0: sum2 = 0
for i = 2 to 50 step 2
sum1 = c
sum2 = d
next i
print "偶數和=";sum1
print "偶數平方和=";sum2
end sub
（1）a）i b）i*i c）sum1+i d）sum2+i*i
（2）a）i b）i*i c）sum1+i d）sum2+i*i
2、下面程式的功能是：讀入n後，求算式 1+1/2！+1/3！+……+1/n！的值。請在處選擇正確答案。
private sub form_click()
dim sum as single, item as single
dim nn as string
dim i as integer, j as integer, n as integer
nn = inputbox("請輸入求的項數n")
n = a
sum = 1
for i = 2 to n
item = 1
for j = 1 to i
item = a
next j
sum = b
next i
print "sum="; sum
end sub
（1）a）val（nn） b）inputbox（nn） c）asc（nn） d）len（nn）
（2）a）item*j b）item+jc）j*jd）item*item
（3）a）1/item b）sum+1/item c）item*item d）sum+item
15、在visual basic中，能夠改變窗體邊框型別的屬性是 c 。
a)fontstyle b)backstyle c)borderstyle d)border
private sub form_click()
dim a(10), i as integer, s as integer
cfor i = 1 to 10
a(i) = int（ d
print a(i);
s = （b
next i
print "s="; s
end sub
（56）a）rand b）random c）randomize d）begain
（57）a）(500-300)*rnd+300 b）(500-300)*rnd+500
c）201*rnd+500d）201*rnd+300
(58) a)s+1 b)s+a(i) c)s+a(10) d)a(i)
2、下面程式的功能是：讀入n，計算1＋1/(2×3)＋1/(3×4)+…+1/(n×(n+1))的值。請在處選擇正確答案將程式補充完整。
private sub form_click()
dim sum as single, kk as single, mm as single
dim i as integer, n as integer
mm = inputbox$("請輸入求的項數n")
n= a
sum = 1
for i = 2 to n
kk = i * (i + 1)
sum= d
next i
print "sum=";b
end sub
（59）a）val（mm） b）inputbox（mm） c）asc（mm） d）len（mm）
（60）a）1/kk b）sum+1/kkc）sum*kkd）sum+kk
（61）kk b）mm c）n d）sum
3、下面程式的功能是：把1 元鈔換成1分、2分和5分的硬幣（每種至少有1枚），求有哪幾種換法？共有多少種換法？
分析：為保證每種硬幣至少有一枚，5分可取1到19枚，若5分取定為k（≥1）枚，則2分可以取（100-5*k）/2枚，當剩下1分個數≥1時，該取法符號題意。
private sub command1_click()
dim i%, j%, k%, s%
print "5分", "2分", "1分"
for k=1 to c
for j = 1 to (100 - 5 * k) / 2
i = 100 - 5 * k - 2 * j
if i >= 1 then print c
s = s + 1
next j
next k
print "s="; d）
end sub
(62)a．3 b. 5 c.19 d.20
(63) b. k,i,j c. i,j,k d. i,k,j
(64) b. j c . i d. s
4、在窗體上有乙個名稱為command1的命令按鈕,然後編寫如下事件過程,向陣列輸入3×3個元素的數值方陣，並計算出第1個數值與最後1個數值所連成對角線的各元素之和。請在處選擇正確的答案將程式補充完整。
dim s as single
sub trace(a() as single)
dim i%
s = 0
for i = lbound(a) to ubound(a)
s= b
next i
end sub
private sub command1_click()
const n% = 3
dim i%, j%, b(n, n) as single, k as integer
for i = 1 to n
for j = 1 to n
k = inputbox$("enter a number:")
c =val (k)
next j
next i
call trace(b())
print "s="; a
end sub
(65) a．s+ a(i,j) b．s+ a(i,i) c．s+ a(j,i) d．a (i，i)
(66) a．b（i,i） b．b（j，j） c．b（i,j） d．b
（67）a．s
。1. 單擊窗體後，用輸入對話方塊輸入x、n，按下式計算機結果。要求：將計算機結果以標籤控制項顯示，且每秒鐘隨機變換一次顏色。
x/2!+x^2/3!+x^3/4!+∧+x^n/(n+1)!
dim s as single
private sub form_load()
= 1000: = false
end sub
private sub form_click()
dim x as single, n as integer, i as integer, t as single
s = 0: x = inputbox("x="): n = inputbox("n=")
cfor i= b
t = t * x / i: s = s + t
next id
VB選擇結構
三 完善程式鞏固新知 引入 半成品加工策略 出示順序結構中曾經完成的練習，要求學生指出原程式中有哪些還不夠完善的地方，請運用本課知識，進行修改 除錯，鞏固本課重點。要求兩人一組，兩人共同對兩個練習進行分析，然後每人選做一題，可以互相幫助，做完後互相交流，互相評價結果。練習一 乙個小球，不停地向上方滾...
VB選擇結構
按要求儲存檔案，窗體檔名為e6.frm，工程檔名為e6.vbp。7.彈球。窗體上有乙個紅色實心小球shape1，兩個命令按鈕 mand1和 mand2，乙個定時器timer1。shape1控制項屬性設定 shape 3 circle borderstyle 0 transparent fillsty...
VB選擇結構
第四章選擇結構程式設計 程式設計基本過程 變數定義 變數賦值 直接輸入 文字框輸入 inputbox函式 問題解決計算過程 輸出計算結果 print語句 文字框輸出 執行 除錯 修改及完善程式 儲存程式。例 4.9 編寫程式，從鍵盤上輸入三角形的三個邊長值，應用下面計算三角形面積的公式求三角形面積。...