1、第一套VB 窗體設(shè)計(jì)器的主要功能是_。A.顯示文字B.建立用戶界面C.畫(huà)圖 D.編寫(xiě)源程序代碼【參考答案】錯(cuò)誤B【學(xué)生答案】D以下敘述中錯(cuò)誤的是_。A.事件過(guò)程是響應(yīng)特定事件的一段程序B.對(duì)象的方法是執(zhí)行指定操作的過(guò)程C.對(duì)象事件的名稱可以由編程者指定D. 不同的對(duì)象可以具有相同名稱的方法【參考答案】錯(cuò)誤C【學(xué)生答案】B在默認(rèn)情況下，InputBox() 函數(shù)返回值的類型為_(kāi)。A.邏輯類型B.變體類型C.數(shù)值型D.字符串型【參考答案】錯(cuò)誤D【學(xué)生答案】B執(zhí)行語(yǔ)句For i=1 to 3:i=i+1:Next i后變量i的值是_。A.6B.4C.5D.3【參考答案】錯(cuò)誤C【學(xué)生答案】B下列所列中

2、，錯(cuò)誤的一維數(shù)組說(shuō)明語(yǔ)句是_。A.Dim b(5 To 5) AS StringB.Dim b(-5 To 0) AS ByteC.Dim b(-10 To -20) AS IntegerD.Dim b(100) AS Double【參考答案】錯(cuò)誤C【學(xué)生答案】D下列敘述中,錯(cuò)誤的說(shuō)法是_。A.使用Redim語(yǔ)句可以改變數(shù)組每維數(shù)的大小B.使用Redim語(yǔ)句可以對(duì)數(shù)組的元素初始化C.使用Redim語(yǔ)句可以改變數(shù)組的維數(shù)D.使用Redim語(yǔ)句可以改變數(shù)組的類型【參考答案】錯(cuò)誤D【學(xué)生答案】C若 x 為實(shí)型變量，要使其輸出保留二位小數(shù)，應(yīng)用_函數(shù)。A.Mid()B.Format()C.Right(

3、)D.InStr()【參考答案】正確B【學(xué)生答案】B下面敘述中，錯(cuò)誤的是_。A.自定義類型只能在窗體模塊的通用聲明段進(jìn)行聲明B.在窗體模塊中定義自定義類型時(shí)必須使用Private關(guān)鍵字C.自定義類型中的元素類型可以是系統(tǒng)提供的基本數(shù)據(jù)類型或已聲明的自定義類型D.自定義類型必須在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段進(jìn)行聲明【參考答案】正確A【學(xué)生答案】A在過(guò)程中定義的變量，若離開(kāi)該過(guò)程后，還能保存過(guò)程中的局部變量的值，則應(yīng)使用_關(guān)鍵字在過(guò)程中定義。A.PrivateB.StaticC.DimD.Public【參考答案】錯(cuò)誤B【學(xué)生答案】D為了裝入一個(gè) Visual Basic 應(yīng)用程序，下列說(shuō)法中，正

4、確的是_。A.分別裝入工程文件和標(biāo)準(zhǔn)模塊文件(.bas)B.只裝入窗體文件(.frm)C.只裝入工程文件(.vbp)D.分別裝入工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件【參考答案】錯(cuò)誤C【學(xué)生答案】D將數(shù)據(jù)項(xiàng) China 添加到列表框 List1 中成為第一項(xiàng)應(yīng)使用_語(yǔ)句。A.List1.AddItem China, 1B.List1.AddItem 1, ChinaC.List1.AddItem China, 0D.List1.AddItem 0, China【參考答案】錯(cuò)誤C【學(xué)生答案】D用戶在組合框中輸入或選擇的數(shù)據(jù)可以通過(guò)_屬性獲得。A.ListB.TextC.ListIndexD.ListC

5、ount【參考答案】錯(cuò)誤B【學(xué)生答案】C在下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是_。A.每個(gè)菜單項(xiàng)都是一個(gè)控件，與其它控件一樣也有自己的屬性和事件。B.在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇。C.除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的如DblClick等事件。D.菜單項(xiàng)的快捷鍵不能任意設(shè)置?！緟⒖即鸢浮垮e(cuò)誤C【學(xué)生答案】D下面所列中，鼠標(biāo)單擊事件名為_(kāi)。A.DblClickB.MouseUpC.MouseDownD.Click【參考答案】錯(cuò)誤D【學(xué)生答案】C圖片框 Picture1 中裝入了一個(gè)圖形，運(yùn)行時(shí)為了清除該圖形，應(yīng)采用的正確方法是_

6、。A.選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵B.Picture1.picture = C.選擇圖片框，然后按Del鍵D.Picture1.picture = LoadPicture()【參考答案】錯(cuò)誤D【學(xué)生答案】B下面關(guān)于隨機(jī)文件的描述中，不正確的是_。A.一個(gè)文件的記錄號(hào)不必唯一B.其組織結(jié)構(gòu)比順序文件復(fù)雜C.每條記錄的長(zhǎng)度必須相同D.數(shù)據(jù)只能對(duì)ASCII碼形式存放在文件中，所以可通過(guò)編輯軟件顯示【參考答案】錯(cuò)誤A【學(xué)生答案】C程序題（69）在窗體上畫(huà)一個(gè)名稱為Command1的命令按鈕，編寫(xiě)下列程序： Private Sub Command1_Click() Di

7、m a As Integer Static b As Integer a=a+b b=b+4 Print a,b End Sub程序運(yùn)行后，單擊該命令按鈕三次后，屏幕上顯示的值是_。A.8 12B.4 8C.0 4D.4 12【參考答案】錯(cuò)誤A【學(xué)生答案】C判斷題：語(yǔ)句If x 0 Then y=7x-1是正確的?！緟⒖即鸢浮垮e(cuò)誤錯(cuò)誤【學(xué)生答案】正確一個(gè)名為pic2.gif的圖形文件，要在運(yùn)行期間把該文件裝入一個(gè)圖片框（Picturel），應(yīng)執(zhí)行的語(yǔ)句是_?！究?1】錯(cuò)誤【學(xué)生答案】無(wú)【參考答案】Picture1.Picture=LoadPicture(pic2.gif)picture1.pi

8、cture=loadpicture(pic2.gif)為了使列表框中的項(xiàng)目分為多列顯示，需要設(shè)置的屬性是_。【空 1】錯(cuò)誤【學(xué)生答案】無(wú)【參考答案】COLUMNScolumnsColumns設(shè)a=北京，b=Shanghai，則表達(dá)式LEFT(a，2)+STRING(3，-)+LEFT(b，8)構(gòu)成的字符串是_?！究?1】錯(cuò)誤【學(xué)生答案】京-i【參考答案】北京-Shanghai在程序運(yùn)行中，要想使用按鈕變成看得見(jiàn)但不可操作，則應(yīng)設(shè)置_的屬性是False?？?1】錯(cuò)誤【學(xué)生答案】enable【參考答案】ENABLEDEnabledenabledInputBox函數(shù)返回值的類型為_(kāi)?！究?1】錯(cuò)誤【

9、學(xué)生答案】變體型【參考答案】字符型關(guān)閉所有已經(jīng)打開(kāi)的文件，應(yīng)使用語(yǔ)句_?！究?1】錯(cuò)誤【學(xué)生答案】end【參考答案】CLOSEcloseCloseVB6.0識(shí)別對(duì)象靠的是對(duì)象的_屬性。 【空 1】正確【學(xué)生答案】name【參考答案】NAMENamename題目：編寫(xiě)函數(shù)fun，函數(shù)的功能是：計(jì)算n門(mén)課程 的平均值，計(jì)算結(jié)果作為函數(shù)值返回。 例如，若有5門(mén)課程的成績(jī)是：92，76，69， 58，88，則函數(shù)的值為76.6。-Private Function fun(a() As Integer, n As Integer) As Double* Begin * * End *End Functi

10、onPrivate Sub Form_Load() Show Dim a(5) As Integer, i As Integer a(1) = 92: a(2) = 76: a(3) = 69: a(4) = 58: a(5) = 88 Print fun(a, 5) TestFuncEnd SubPrivate Sub TestFunc() Dim i As Integer Dim s As String Dim l As Long Dim d As Double Dim a(10) As String Dim b(5) As Integer Dim fIn As Integer Dim f

11、Out As Integer fIn = FreeFile Open App.Path & in.dat For Input As #fIn fOut = FreeFile Open App.Path & out.dat For Output As #fOut For i = 1 To 5 Line Input #fIn, a(i) b(i) = Val(a(i) Next Print #fOut, fun(b, 5) Close #fIn Close #fOut End Sub【參考代碼】 Dim i As Integer Dim y As Single For i = 1 To n y =

12、 y + a(i) Next fun = y / n=【考生代碼】Dim a(i) As String, s!, n%, ave!n = InputBox(請(qǐng)輸入課程數(shù))ReDim a(1 To n) As Strings = 0For i = 1 To na(i) = InputBox(請(qǐng)輸入課程的分?jǐn)?shù))s = s + a(i)Next iave = s / nPrint ave第二套設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組，要求數(shù)組名為A，類型為字符串類型，第一維下標(biāo)從1到5，第二維下標(biāo)從-2到6，則相應(yīng)的數(shù)組聲明語(yǔ)句為_(kāi)?！究?1】錯(cuò)誤【學(xué)生答案】dim A(1 to 5,-2 to 6) as

13、string【參考答案】dim A(1 To 5，-2 To 6) As StringDim A(1 To 5，-2 To 6) As String日期表達(dá)式 #2/24/02# - #2/12/02# 的值為_(kāi)?！究?1】錯(cuò)誤【學(xué)生答案】#0/12/0#【參考答案】12已知a=3，b=4，c=5，表達(dá)式ab and Not ca Or cb And ca And Not b n Then t = m: m = n: n = t* Begin * End *End FunctionPrivate Sub Form_Load() Show Print fun(5, 2) NJIT_VBEnd S

14、ubPrivate Sub NJIT_VB() Dim i As Integer Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & in.dat For Input As #fIn fOut = FreeFile Open App.Path & out.dat For Output As #fOut For i = 1 To 10 Step 2 Line Input #fIn, a(i) Line Input #fIn, a(i + 1) Print #fOut,

15、Trim(Str(fun(Val(a(i), Val(a(i + 1) Next Close #fIn Close #fOutEnd Sub【參考代碼】Product = 1For i = m To n If i Mod 2 0 Then Product = Product * iNext ifun = Product=【考生代碼】Dim i As Integerproduct = 1For i = m To n If i Mod 2 0 Then product = product = product * i End IfNext iPrint product=; product第二套組合框

16、有3種不同的類型，這3種類型是下拉式列表框、簡(jiǎn)單組合框和_。【空 1】錯(cuò)誤【學(xué)生答案】混合組合框 【參考答案】下拉式組合框print format(32548.5,#,#.#)的輸出結(jié)果是_?！究?1】錯(cuò)誤【學(xué)生答案】無(wú)【參考答案】32,548.5為了使列表框中的項(xiàng)目分為多列顯示，需要設(shè)置的屬性是_。【空 1】錯(cuò)誤【學(xué)生答案】無(wú)【參考答案】COLUMNScolumnsColumns標(biāo)簽控件的默認(rèn)屬性是_。【空 1】錯(cuò)誤【學(xué)生答案】label【參考答案】CAPTIONCaptioncaption如果要將變量a在過(guò)程中定義為靜態(tài)的整型變量，應(yīng)使用的語(yǔ)句是_?！究?1】錯(cuò)誤【學(xué)生答案】dim a a

17、s string【參考答案】static a%static a as integerStatic a%Static a As Integer判斷題：語(yǔ)句：If a=c-b Then Print # Else Print *是正確的?！緟⒖即鸢浮垮e(cuò)誤正確【學(xué)生答案】錯(cuò)誤如果文本框的 Enabled 屬性設(shè)為 False，則_。A.文本框的文本將變成灰色，用戶仍然能改變文本框中的內(nèi)容。B.文本框的文本將變成灰色，并且此時(shí)用戶不能將光標(biāo)置于文本框上C.文本框的文本將變成灰色，用戶仍然能將光標(biāo)置于文本框上，但是不能改變文本框中的內(nèi)容。D.文本框的文本正常顯示，用戶能將光標(biāo)置于文本框上，但是不能改變文本

18、框中的內(nèi)容?！緟⒖即鸢浮垮e(cuò)誤B【學(xué)生答案】C執(zhí)行語(yǔ)句For i=1 to 3:i=i+1:Next i后變量i的值是_。A.6B.4C.5D.3【參考答案】錯(cuò)誤C【學(xué)生答案】B若有數(shù)組說(shuō)明語(yǔ)句：Dim t(1 To 10)，則 t 被定義為_(kāi)。A.字符串型數(shù)組B.變體類型數(shù)組C.動(dòng)態(tài)數(shù)組D.整型數(shù)組【參考答案】錯(cuò)誤B【學(xué)生答案】C通用過(guò)程可以通過(guò)執(zhí)行工具菜單中的_命令來(lái)建立。A.通用過(guò)程B.添加過(guò)程C.添加窗體D.添加模塊【參考答案】正確B【學(xué)生答案】B有如下的程序： Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c) Pr

19、int main:;a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 PrintSub:;p;m;n End Function當(dāng)運(yùn)行程序后，單擊命令按鈕 Command1 ，顯示的結(jié)果是_。A.sub:2 6 4 main:1 6 4B.sub:2 6 4 main:2 6 4C.sub:2 6 4 main:1 2 3D.sub:2 4 6 main:2 2 3【參考答案】錯(cuò)誤D【學(xué)生答案】B在過(guò)程中定義的變量，若離開(kāi)該過(guò)程后，還能保存過(guò)程中的局部變量的值，則應(yīng)使用_關(guān)鍵字在過(guò)程中定義。A.PrivateB.Static

20、C.DimD.Public【參考答案】錯(cuò)誤B【學(xué)生答案】D事件內(nèi)編程，要停止觸發(fā) Timer 事件，可通過(guò)以下_屬性。A.Enabled = False且Interval = 0B.Enabled = False或Visible = FalseC.Enabled = False或Interval = 0D.Visible= False或Interval = 0【參考答案】錯(cuò)誤C【學(xué)生答案】A下面關(guān)于列表框正確的是_。A.列表框中的內(nèi)容可以直接修改B.列表框控件實(shí)質(zhì)是一維字符數(shù)組C.列表框的AddItem方法是把項(xiàng)目從列表框中刪除D.列表框的Clear方法是刪除列表框中由索引值指定的項(xiàng)目【參考答

21、案】正確B【學(xué)生答案】B在下列關(guān)于菜單的說(shuō)法中，錯(cuò)誤的是_。A.每個(gè)菜單項(xiàng)都是一個(gè)控件，與其它控件一樣也有自己的屬性和事件。B.在程序執(zhí)行時(shí)，如果菜單項(xiàng)的Enabled屬性為False，則該菜單項(xiàng)變成灰色，不能被用戶選擇。C.除了Click事件之外，菜單項(xiàng)還能響應(yīng)其他的如DblClick等事件。D.菜單項(xiàng)的快捷鍵不能任意設(shè)置?！緟⒖即鸢浮垮e(cuò)誤C【學(xué)生答案】D在 VB 中用來(lái)畫(huà)弧、圓和橢圓的屬性或者方法是_。A.PsetB.LineC.CircleD.三者都不是【參考答案】錯(cuò)誤C【學(xué)生答案】D數(shù)組題目：(事件)單擊窗體。 (響應(yīng))利用控件數(shù)組產(chǎn)生如圖所示的1-9的9個(gè)按鈕。要求： 用For語(yǔ)句來(lái)

22、實(shí)現(xiàn)-注意： 請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫(xiě)代碼,代碼只能寫(xiě)在 * Begin * * End * 的內(nèi)部，不得修改已有代碼保存時(shí)不得修改 窗體和工程文件的名稱及路徑，否則后果自負(fù)。-Private Sub Form_click() Dim i As Integer* Begin * * End *End Sub【參考代碼】 For i = 1 To 9 Load Command1(i) Command1(i).Visible = True Command1(i).Left = Command1(0).Left + Command1(0).Width * i Command1(i).Caption =

23、i Next i【程序設(shè)計(jì)】-題目：(事件)單擊命令按鈕。 (響應(yīng))利用隨機(jī)函數(shù)產(chǎn)生10-99的10個(gè)整數(shù)存入數(shù)組x中，然后在窗體上輸出這10個(gè)數(shù)， 再用冒泡排序法對(duì)這10整數(shù)由小到大排序，并將排序后的結(jié)果輸出在窗體上要求： 用For語(yǔ)句來(lái)實(shí)現(xiàn)-注意： 請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫(xiě)代碼,代碼只能寫(xiě)在 * Begin * * End * 的內(nèi)部，不得修改已有代碼保存時(shí)不得修改 窗體和工程文件的名稱及路徑，否則后果自負(fù)。-Option Base 1Private Sub Command1_Click() Randomize Cls Dim x(10) As Integer, t As Integer Di

24、m i As Integer, j As Integer* Begin * End *End Sub【參考代碼】 For i = 1 To 10 x(i) = Int(Rnd * 90) + 10 Print x(i); Next i Print For i = 1 To 10 For j = 1 To 10 - i If x(j) x(j + 1) Then t = x(j) x(j) = x(j + 1) x(j + 1) = t End If Next Next For i = 1 To 10 Print x(i); Next i【程序設(shè)計(jì)】-題目：(事件)單擊命令按鈕。 (響應(yīng))利用隨

25、機(jī)函數(shù)生成0,9的數(shù)字組成的5行5列的矩陣， 并在窗體上按5行5列顯示該矩陣,然后求它的兩條對(duì)角線上 的元素之和s ,最后在窗體上顯示出s的值。要求： 用For語(yǔ)句來(lái)實(shí)現(xiàn)-注意： 請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫(xiě)代碼,代碼只能寫(xiě)在 * Begin * * End * 的內(nèi)部，不得修改已有代碼保存時(shí)不得修改 窗體和工程文件的名稱及路徑，否則后果自負(fù)。-Option Base 1Private Sub Command1_Click() Dim a(5, 5), s As Integer Dim i%, j% Randomize* Begin * End * End Sub【參考代碼】 For i = 1 To

26、 5 For j = 1 To 5 a(i, j) = Int(Rnd * 10) Print a(i, j); Next j Print Next i s = 0 For i = 1 To 5 For j = 1 To 5 If i = j Or i + j = 6 Then s = s + a(i, j) Next j Next i Print s-【程序設(shè)計(jì)】-題目：(事件)單擊命令按鈕。 (響應(yīng))求已知數(shù)組A的所有元素的平均值存入變量Aver,并在窗體上輸出結(jié)果。要求： 用For語(yǔ)句來(lái)實(shí)現(xiàn)-注意： 請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫(xiě)代碼,代碼只能寫(xiě)在 * Begin * * End * 的內(nèi)部，不得

27、修改已有代碼保存時(shí)不得修改 窗體和工程文件的名稱及路徑，否則后果自負(fù)。-Option Base 1Private Sub Command1_Click() Dim A(), Aver As Single A = Array(10, 20, 34, 54, 26, 89, 12, 34)* Begin *Dim i As Integer Aver = 0 For i = 1 To 8 Aver = Aver + A(i) Next i Aver = Aver / 8 Print Aver=【程序設(shè)計(jì)】-題目：(事件)單擊命令按鈕。 (響應(yīng))求數(shù)列1，1，2，3，5，8，,的前40項(xiàng)，并以每行5個(gè)

28、數(shù)的形式在窗體上輸出結(jié)果。要求： 用For語(yǔ)句來(lái)實(shí)現(xiàn)-注意： 請(qǐng)?jiān)谥付ǖ氖录?nèi)編寫(xiě)代碼,代碼只能寫(xiě)在 * Begin * * End * 的內(nèi)部，不得修改已有代碼保存時(shí)不得修改 窗體和工程文件的名稱及路徑，否則后果自負(fù)。-Option Base 1Private Sub Command1_Click() Dim f(1 To 40) As Long, i As Integer f(1) = 1: f(2) = 1* Begin * * End *End Sub【參考代碼】 For i = 3 To 40 f(i) = f(i - 1) + f(i - 2) Next i For i = 1 T

29、o 40 Print f(i), If i Mod 5 = 0 Then Print Next i第三套英文縮寫(xiě)“OOP”的含義是_。A.事件驅(qū)動(dòng)的編程機(jī)制B.結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言C.面向?qū)ο蟪绦蛟O(shè)計(jì)D.可視化程序設(shè)計(jì)【參考答案】錯(cuò)誤C【學(xué)生答案】未答此題以下敘述中錯(cuò)誤的是_。A.事件過(guò)程是響應(yīng)特定事件的一段程序B.對(duì)象的方法是執(zhí)行指定操作的過(guò)程C.對(duì)象事件的名稱可以由編程者指定D. 不同的對(duì)象可以具有相同名稱的方法【參考答案】錯(cuò)誤C【學(xué)生答案】B執(zhí)行語(yǔ)句 receive = MsgBox(AAAA, , BBBB, , 5) 后，所產(chǎn)生的信息框的標(biāo)題是_。A.AAAAB.BBBBC.空D.出錯(cuò)

30、，不能產(chǎn)生信息框【參考答案】錯(cuò)誤B【學(xué)生答案】A下面所列中，正確的數(shù)組聲明語(yǔ)句是_。A.Dim a(n,n) AS IntegerB.Dim a(0 To 8,5 To -1) AS SingleC.Dim a(10,-10) AS DoubleD.Dim a(-1 To 5,8) AS String【參考答案】錯(cuò)誤D【學(xué)生答案】A下列敘述中，正確的是_。A.在調(diào)用過(guò)程時(shí)，所有局部變量被系統(tǒng)初始化為0或空字符串B.在窗體的Form_Load事件過(guò)程中定義的變量是全局變量C.在某個(gè)Sub過(guò)程中定義的局部變量可以與其他事件過(guò)程中定義的局部變量同名，但其作用域只限于該過(guò)程D.局部變量的作用域可以超出

31、所定義的過(guò)程【參考答案】正確C【學(xué)生答案】C當(dāng)要用字符串 VB考試 修改列表框 List1 所選中的數(shù)據(jù)項(xiàng)時(shí)，正確的表示方法是_。A.List(List1.ListIndex) = VB考試B.List1.List(ListIndex) = VB考試C.List1.AddItem VB考試D.List1.List(List1.ListIndex)=VB考試【參考答案】正確D【學(xué)生答案】D滾動(dòng)條的默認(rèn)屬性是_。A.NameB.MinC.ValueD.Max【參考答案】錯(cuò)誤C【學(xué)生答案】A在設(shè)計(jì)彈出式菜單時(shí)，必須把菜單名的 Visible 屬性設(shè)置為_(kāi)。A.TrueB.EnabledC.VisibleD.False【參考答案