職高15-16第一-學(xué)期中VB試題答案(共3頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上20102011學(xué)年第一學(xué)期期中考試試卷高三職高VB試題題號一二三四五總分得分一 、選擇題（每小題2分,共40分）1、 下列說法錯誤的是（ ）A) 標(biāo)準(zhǔn)模塊的擴(kuò)展名是.basB) 標(biāo)準(zhǔn)模塊由程序代碼組成C) 標(biāo)準(zhǔn)模塊只用來定義一些通用的過程D) 標(biāo)準(zhǔn)模塊不附屬于任何一個窗體2、如果要將窗體中的某個命令按鈕設(shè)置成無效狀態(tài)，應(yīng)動命令按鈕的何種屬性A) ValueB) VisibleC) DefaultD) Enabled3、 在窗體上有多個控件，要實(shí)現(xiàn)程序運(yùn)行后焦點(diǎn)默認(rèn)在某一控件上，應(yīng)該設(shè)置的屬性是（ ）A) 設(shè)置Enabled的值為TrueB) 設(shè)置TabIndex的值

2、為1C) 設(shè)置TabIndex的值為0 D) 設(shè)置Index的值為04、 下列幾項(xiàng)中，屬于合法的日期型常量的是（ ）A) "10/10/02"B) 10/10/02C) 10/10/02D) #10/10/02#5、 下列程序段的執(zhí)行結(jié)果為（ ）A=2：B=5If A * B < 1 Then B=B - 1 Else B=-1Print B - A > 0A) TrueB) FalseC) -1D) 16、假定定時器的Interval屬性值為1000,Enabled屬性值為True,調(diào)用下面的事件過程,程序運(yùn)行結(jié)束后,變量X的值為( )Private Sub

3、Timer1_Timer()Dim x As IntegerFor i = 1 To 10x = x + 1Next iPrint xEnd SubA)1000 B)10000 C)10 D)以下都不對7、 標(biāo)簽控件能夠顯示文本信息，決定其文本內(nèi)容的屬性是（ ）A) AlignmentB) CaptionC) VisibleD) BorderStyle8、如果要聲明一個全局性的符號常量，則應(yīng)將該聲明放在（ ）A、過程中 B、窗體模塊的通用聲明段中C、標(biāo)準(zhǔn)模塊的通用聲明段中 D、窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段中9、在窗體的通用段聲明變量時，不能使用的（ ）關(guān)鍵字A、Dim B、Public C、

4、Private D、Static10、以下常量中，不合法的是（ ）A、True B、#1999-12-01# C、1999-12-01 D、False11、設(shè)b的值為7，表達(dá)式為“x=b=7”,則運(yùn)算后表達(dá)式的值為（ ）A、True B、b=7 C、7 D、b12、能產(chǎn)生30100之間隨機(jī)數(shù)的表達(dá)式為（ ）A)Int(71*Rnd)+30 B)Int(100*Rnd)+30 C)Int(70*Rnd) D)Int(100*Rnd)13、 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() s=1 Do s=(s + 1) * (s + 2)

5、 Number=Number + 1 Loop Until s >=30 Print Number, s End Sub程序運(yùn)行后，輸出的結(jié)果是( )A) 2 3B) 2 56C) 5 12D) 10 2014、下列程序段的執(zhí)行結(jié)果為( )x=Int(Rnd() + 9)Select Case xCase 10Print "excellent"Case 9Print "good"Case 8Print "pass"Case ElsePrint "fail"End SelectA) excellentB) go

6、odC) passD) fail15、下列程序段的執(zhí)行結(jié)果為( )a=75If a > 60 Then Score=1If a > 70 Then Score=2If a > 80 Then Score=3If a > 90 Then Score=4Print " Score=" ScoreA) Score=1B) Score=2C) Score=3D) Score=416、下列程序段的執(zhí)行結(jié)果為( )I=1：x=5Do I=I + 1：x=x + 2Loop Until I >=7Print "I=" IPrint &qu

7、ot;x=" xA) I=4x=5B) I=7 x=15C) I=6x=8D) I=7 x=1717、下面的程序的運(yùn)行結(jié)果是( )a=1:b=1Do a=a2 b=b + 1Loop Until b > 5Print "k=" a; Spc(4) ; "b=" b + aA) k=7b=14B) k=6 b=6C) k=4 b=8D) k=1 b=718、 單擊命令按鈕，下列程序的執(zhí)行結(jié)果為( )Private Sub Command1_Click() Dim x As Integer, y As Integer x=32: y=42 C

8、all PCS(x, y) Print x; yEnd SubPublic Sub PCS(Byval n As Integer, ByVal m As Integer) n=n Mod 10+1m=m Mod 10+1End SubA) 32 42B) 2 32C) 2 3D) 12 319若要獲得列表框中被選中的列表項(xiàng)的內(nèi)容，可以通過訪問（ ）屬性來實(shí)現(xiàn)。 AName BListIndex CListCount DText20、在代碼中定義了一個子過程：Sub P(a,B).End Sub下面_調(diào)用該過程的格式是正確的。( )A)Call P B)Call P 10,20 C)Call P

9、(10,20) D)P(10,20)二、判斷題(把答案涂在卡上,對的涂A,錯的涂B,每題2分,共20分)1、若要使某命令按鈕獲得控制焦點(diǎn)，可使用GotFocus方法來設(shè)置。2、標(biāo)準(zhǔn)模塊中的全局變量可以被工程中的其他模塊調(diào)用，而公共的過程可以被窗體模塊的任何事件調(diào)用。3、Dim a1,a2 as integer 語句顯式聲明變量a1和a2都為整型變量。4、函數(shù)Len("abc d"+space(5)的值是5。5、計(jì)時器（Timer）控件的Interval屬性的單位是毫秒，即若將此屬性值設(shè)為 10，則每0.01秒產(chǎn)生一次Timer事件。6、 For k = 1 to 40 St

10、ep 2表示該For語句循環(huán)執(zhí)行了20次。7、表達(dá)式：36.51 Mod 3 +253的值是12。8、表達(dá)式："123"+456的值為579。9、表達(dá)式：Val（Len（"北京歡迎你！"）+10的值為：16。10、表達(dá)式：Str(Len("-56.66") + Str(Val("66.6e2cd")的值為6 6660。三 、填空題（1-10每小題6分，11-12每10分，共80分）1、該程序的運(yùn)行結(jié)果為 Function total(x As Integer) As Long Dim ss As Long, i A

11、s Integer ss = 0 For i = 1 To x ss = ss + i Next i total = ssEnd Function下面是調(diào)用它的事件過程。Private Sub Command1_Click()Dim i As Integer, sum As LongFor i = 1 To 5 sum = sum + total(i)Next iPrint "和數(shù)為：" sumEnd SubA55 B.15 C.5 D.352、下列程序的執(zhí)行結(jié)果為 Private Sub Command1_Click() Dim s1 As String, s2 As S

12、tring s1="abcd" Call Transfer(s1, s2) Print s2End SubPrivate Sub Transfer (ByVal xstr As String, ystr As String) Dim tempstr As String i=Len(xstr) Do While i >=1 tempstr=tempstr + Mid(xstr, i, 1) i=i - 1 Loop ystr=te mpstrEnd Sub3、 單擊命令按鈕，下列程序的執(zhí)行結(jié)果是( )Private Sub Blck(x As Integer)x=x *

13、 2 + 1If x < 6 ThenCall Blck(x)End Ifx=x * 2 + 1Print x;End SubPrivate Sub Command1_Click()Blck 2End Sub4、運(yùn)行下面的程序后，單擊命令按鈕，輸出結(jié)果為 Private Sub Command1_Click()Dim a As Integera=2For i=1 To 3Print Gad (a)Next iEnd SubFunction Gad (a As Integer)b=0Static cb=b + 1c=c + 1Gad=a + b + cEnd Function5、單擊窗體時

14、，下列程序的執(zhí)行結(jié)果為 Sub proc1(x As Integer, ByVal y As Integer, z As Integer)x = 3 * zy = 2 * zz = x + yPrint x, y, zEnd SubPrivate Sub Form_Click()Dim x As Integer, y As Integer, z As Integerx = 1: y = 2: z = 3Call proc1(x, x, z)Call proc1(x, y, y)End Sub6、執(zhí)行下面的程序后，第1行輸出 ，第2行輸出 Option ExplicitPrivate Sub t

15、est(m As Integer, n As Integer)Static sta As Integerm = m + nn = n + m + stasta = sta + mEnd SubPrivate Sub Form_Click()Dim i As Integer, j As Integeri = 1: j = 2Call test(i, j)Print i, jCall test(i, j)Print i, jEnd Sub7、在窗體上畫一個命令按鈕，然后編寫如下程序：(假定變量x是一個窗體級變量)Dim x As IntegerSub inc(a As Integer)x = x

16、+ aEnd SubPrivate Sub Command1_Click( )inc 2inc 3inc 4Print x;End Sub 程序執(zhí)行后，單擊Command1命令按鈕，輸出的結(jié)果是 。8、以下程序用業(yè)計(jì)算1至100之間所有奇數(shù)的和，試將程序補(bǔ)充完整Function mult( n as long ) as longDim sum As Integersum = 0Dim i As IntegerFor i = 1 To n If i Mod 2 <> 0 Then sum = sum + iNext i Mult=sum End FunctionPrivate Sub

17、 Form_Click()Print mult(100)End Sub 9、下面是用冒泡法將5個整數(shù)按升序排列，請將程序補(bǔ)充完整。 Sub GASR()Dim mm=Array(10, 1, 5, 6, 7)For i=0 To 4 For j=i+1 to 4 If m(i) >=m(j) Then T=m(i) m(i) =m(j)m(j) =t End IfNext jNext i For i=0 To 4 Print m(i)Next iEnd Sub10、以下程序的運(yùn)行結(jié)果為 Dim x As Integer, y As IntegerPrivate Function f(x

18、As Integer) Dim y As Integer x = x + 2 f = x + yEnd Function Private Sub p(ByVal z As Integer) x = y + z End SubPrivate Sub Command1_Click() x = 1: y = 1 Call p(x) z = f(y) Print x; y; zEnd Sub11、左列表框list1中有100個兩位整數(shù)；選中左列表框list1中若干項(xiàng)后，單擊“移動”按鈕，將所選項(xiàng)目移動到右列表框list2中。 Private Sub cmdMove_Click()Do While i <= lst