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 編寫程式,從鍵盤上輸入三角形的三個邊長值,應用下面計算三角形面積的公式求三角形面積。...