(完整word)最新VB題庫(kù)及答案,推薦文檔

1、1 最新 VB 題庫(kù)及答案 一、選擇題 第 1 部分 1、在窗體(名稱為 Forml)上畫一個(gè)名稱為 Textl 的文本框和一個(gè)名稱為 Command1 的命令按鈕，然后編寫一個(gè)事件過程。程序運(yùn)行后，如果在文本框中輸入一個(gè)字 符，則把命令按鈕的標(biāo)題設(shè)置為 計(jì)算機(jī)等級(jí)考試”。以下能實(shí)現(xiàn)上述操作的事件過 程是 A、 Private Sub Text1_Change() Command1.Caption =計(jì)算機(jī)等級(jí)考試 End Sub B、 Private Sub Command1_Click() Caption =計(jì)算機(jī)等級(jí)考試 End Sub C、 Private Sub Form_Click

2、() Text1.Caption =計(jì)算機(jī)等級(jí)考試” End Sub D、 Private Sub Command1_Click() Text1.Text =計(jì)算機(jī)等級(jí)考試 End Sub 2、在一行內(nèi)寫多條語(yǔ)句時(shí)，每個(gè)語(yǔ)句之間用( )符號(hào)分隔 A、 , B、： C、. D、； 3、 下面( )是合法的變量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y 4、 下面( )是合法的字符常量。 A、 ABC$ B、 “ ABC C、 ABC D、 ABC 5、表達(dá)式 16/4 - 2A5*8 MOD 52 的值為( ) A、14 B、 4 C、20 D、2 6、設(shè) a=” Mi

3、crosoftVisualBasic，則以下使變量的 b 值為” VisualBasic 的語(yǔ)句是 A、b=Left(a,1O) B、b=Mid(a,10) C、b=Right(a,1O) D、b=Mid(a,11,10) 7、設(shè) a=a，b=b，c=c，d=d，執(zhí)行語(yǔ)句 x = IIf(a d), A, B)后, x 的值為 A、a B、b C、B D、A &在窗體上畫一個(gè)文本框，然后編寫如下事件過程: Private Sub Form_Click() x = InputBox(請(qǐng)輸入一個(gè)整數(shù))2 Print x + Textl.Text End Sub 程序運(yùn)行時(shí)，在文本框中輸入

4、456,然后單擊窗體，在輸入對(duì)話框中輸入 123,單 擊 確定”按鈕后，在窗體上顯示的內(nèi)容為 A、 123 B、 456 C、 579 D、 123456 9、在 BASIC 中，三個(gè)邏輯運(yùn)算符 NOT, AND，OR 在運(yùn)算過程中，優(yōu)先級(jí)從高 到低的順序是（ ）。 A、 AND-NOT-OR B、 NOT-AND-OR C、 OR-NOT-AND D、 NOT-OR-AND 10、下面程序段運(yùn)行時(shí)內(nèi)層循環(huán)的循環(huán)總次數(shù)（ FOR X=1 TO 2 FOR Y=1 TO X NEXT Y NEXT X A. 、1 B、2 C、3 D、4 11、在 VB 中，復(fù)寫框（Check）的 Value 值

5、有三種，分別是（） A、-1，0，1 B、0，1，2 C、1，2，3 D、True, False 0 12、若要退出 For 循環(huán)，可使用的語(yǔ)句為（）。 A、 Exit B、 Exit Do C、Time D、Exit For 13、利用 VB 設(shè)計(jì)程序的基本步驟可分四步： （1）設(shè)計(jì)用戶界；（2） （ ）;（3）運(yùn)行調(diào)試程序；（4）生成執(zhí)行文件 A、編寫代碼 B、設(shè)計(jì)算法 C、信息反饋 D、系統(tǒng)集成 14、在代碼窗口內(nèi)將表單 Form1 的“Caption 屬性設(shè)置為 時(shí)鐘”正確的書寫形式是 15、保存文件時(shí)，窗體的所有數(shù)據(jù)存儲(chǔ)格式為（） A、 *. PRG B、 *. FRM C、*. V

6、BP 16、在窗體上畫一個(gè)文本框和一個(gè)計(jì)時(shí)器控件， 名稱分別為 Text1 和 Timer1，在屬 性窗口中把計(jì)時(shí)器的Interval屬性設(shè)置為1000, Enabled屬性設(shè)置為Falseo程序運(yùn) 行后，如果單擊命令按鈕，則每隔一秒中在文本框中顯示一次當(dāng)前的時(shí)間。以下 是實(shí)現(xiàn)上述操作的程序： Private Sub Comma nd1_Click（） Timer1. _ End Sub() A、Form1.Caption 時(shí)鐘” C、Caption=時(shí)鐘” B、Form1.Caption=時(shí)鐘” D、Fopm1.Caption(時(shí)鐘”) D、 * . EXE 3 Private Sub Ti

7、mer1_Timer() Textl.Text = Time End Sub 在 _ 應(yīng)填入的內(nèi)容是 A、Enabled = True B、Enabled = False C、Visible = True D、Visible = False 17、把窗體的 KeyPreview 屬性設(shè)置程為 True,然后編寫如下事件過程 Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As Stri ng ch = Chr(KeyAscii) KeyAscii = Asc(UCase(ch) Print Chr(KeyAscii + 2) End

8、Sub 程序運(yùn)行后，按鍵盤上的“A 鍵，則在窗體上顯示的內(nèi)容是 A、A B、B C、C D、D 18、VB 中的變量如果沒有顯示聲明其數(shù)據(jù)類型，則默認(rèn)為（ A、日期型 B、數(shù)據(jù)型 C、字符型 D、變體型 ）屬性的值，可以為列表框添加項(xiàng)目 C、Caption D、Text 已知 A$= ” 12345678,則表達(dá)式 Val(left$(a$,4)+Mid$(a$,4,2)的值為( A、12345 B、123445 C、8 D. 6 22、用來測(cè)試指定文件結(jié)束狀態(tài)的函數(shù)是（） A、Eof B、FreeFile C、Loc D、Open 23、當(dāng) Long 類型數(shù)據(jù)與 Single 類型運(yùn)算時(shí),運(yùn)

9、算結(jié)果的類型為（ ） A、Integer B、Long C、Single D、Double 24、某一 VB 工程含 F1、F2 兩個(gè)窗體，執(zhí)行“F1 Show: F2. Hide ”語(yǔ)句后，F(xiàn)1、 F2 窗體顯示的結(jié)果為（）o A、都顯示 B、都不顯示 C、僅顯示 F1 窗體 D、 僅顯示F2 窗體 25、數(shù)學(xué)關(guān)系 3= x 10 表示成正確的 VB 表達(dá)式為（） A、3 =x 10 B、3= x AND x 10 C、x=3 OR x 10 D、3 2*b Or a=c And bc Or cd A、1 B、True C、False D、2 30、下列操作不能打開代碼窗口的是() A、 選

10、中對(duì)象，單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇 查看代碼”命令 B、 選中對(duì)象，雙擊鼠標(biāo)左鍵 C、 按 F7 鍵 D、 按 F4 鍵5 第 2 部分 1、VB 語(yǔ)言的語(yǔ)法規(guī)定，多條語(yǔ)句放在同一行中，語(yǔ)句之間用（）分隔 A、逗號(hào) B、冒號(hào) C、分號(hào) D、單引號(hào) 2、在 VB 中，執(zhí)行“A=18MOD 4”語(yǔ)句后，A 的值為（） A、2 B、4 C、6 D、8 則“Aand B”和“A Or B”的值分別是（ False C、False True D 、False 4、在 VB 中，執(zhí)行 “ DimA,B As String 語(yǔ)句后，A，B 的數(shù)據(jù)結(jié)構(gòu)為（） A、整型數(shù) B、實(shí)型數(shù) C、字符型 D、

11、字節(jié)型 5、在 VB 中，執(zhí)行 “A=123 B=Str$（A）語(yǔ)句后，B 的數(shù)據(jù)結(jié)構(gòu)為（） A、整型數(shù)、B、字節(jié)型 C、實(shí)型數(shù) D、字符型 6、在 VB 中，復(fù)寫框（Check）的Value 值有三種，分別是（）。 A、-1，0， 1 B、0， 1，2 C、1，2， 3 D、True，F(xiàn)alse, 0 7、若要退出 For 循環(huán)，可使用的語(yǔ)句為（）。 A、Exit B、Exit Do C、Time D、Exit For &利用 VB 設(shè)計(jì)程序的基本步驟可分四步： （1）設(shè)計(jì)用戶界；（2） （ ）; （3）運(yùn)行調(diào)試程序；（4）生成執(zhí)行文件 A、 編寫代碼 B、 設(shè)計(jì)算法 C、信息反饋

12、D、 系統(tǒng)集成 9、 在代碼窗口內(nèi)將表單 Form1的“ Caption 屬性設(shè)置為 時(shí)鐘”正確的書寫形式是 （） A、Form.C aption 時(shí)鐘” B、Form.Caption=時(shí)鐘” C、Caption=時(shí)鐘” D、Fopm.Caption（時(shí)鐘”） 10、保存文件時(shí)，窗體的所有數(shù)據(jù)存儲(chǔ)格式為（）。 A、 *. PRG B、 *. FRM C、 *. VBP D、 *. EXE 11、窗體初始化程序應(yīng)寫在（）事件中。 A、 Load B、Un load C、Activate D、GotFocus 12、某一 VB 工程含 F1、F2 兩個(gè)窗體，執(zhí)行“F1 Show:F2. Hide

13、”語(yǔ)句后，F(xiàn)1、 F2 窗體顯示的結(jié)果為（）。3、A 為 True，B 為 False, A、True True B、True False 6 B、都不顯示 C、僅顯示 F1 窗體 D、僅顯示 F2 窗體 14、VB 中的變量如果沒有顯示聲明其數(shù)據(jù)類型，則默認(rèn)為（ ） A、日期型 B、數(shù)據(jù)型 C、字符型 D、變體型 ）屬性的值，可以為列表框添加項(xiàng)目 C、Caption D、Text 16、在 VB 中，三個(gè)邏輯運(yùn)算符 NOT, AND，OR 在運(yùn)算過程中，優(yōu)先級(jí)從高到低 的順序是（ ）。 A、AND-NOT-OR B、 NOT-AND-OR C、 OR-NOT-AND D、 NOT-OR-AN

14、D 17、下面程序段運(yùn)行時(shí)內(nèi)層循環(huán)的循環(huán)總次數(shù)（ ） FOR X=1 TO 2 FOR Y=0 TO X-1 NEXT Y NEXT X A、1 B、2 C、3 D、4 18、正確的算術(shù)表達(dá)式是（ ）。 A、 -3/8+5INT24.6 B、 8 * 3 / 5 C、（X+Y）*Z/30 D、（XA2+Y/3）*X3 19、若 A=2, B=3, C=4,則值為真的關(guān)系式是（ ） A. 12/A+2=BA2 B、32*B OR A=C AND BC OR AB C、 AB AND B C D、 A*B C+3 20、當(dāng) Long 類型數(shù)據(jù)與 Single 類型運(yùn)算時(shí),運(yùn)算結(jié)果的類型為（ ） A

15、、In teger B、Lo ng C、Si ngle D、Double 21、下面關(guān)于順序文件的描述正確的是（ ）。 A. 每條記錄長(zhǎng)度必須相同 B. 可通過編程對(duì)文件中的某條記錄方便的修改。 A、都顯示 13、VB 的數(shù)據(jù)類型分為（） A、數(shù)值型、字符型、布爾型、日期型 C、基本類型、擴(kuò)展類型 型 B、數(shù)值型、字符型、對(duì)象型、日期型 D、整型、實(shí)型、字符型、日期型、布爾 15、在 VB 中，通過改變表框 7 C. 數(shù)據(jù)只能以 ASCII 碼形式存放在文件中，所以可通過文本編輯軟件顯示 D. 文件的組織結(jié)構(gòu)復(fù)雜。8 22、下列（）不屬于 VB 的控件 A、窗體 B、數(shù)據(jù) C、形狀 D、直線

16、23、下面（ ）是合法的變量名。 A、X_YZ B、123+ABC C、INTEGER D、X-Y 24、下面的程序段，輸入 9 后，輸出結(jié)果是（） X=inputbox（輸入一個(gè)數(shù)”） Select case x Cas 1 to 5 Y=-1 Cas 5 to 10 Y=0 Cas 10 to 15 Y=1 End select A、0 B、1 C、-1 D、2 25、下列說法中正確的是（）。 A、 數(shù)組只具有數(shù)組名，而沒有數(shù)組類型 B、 數(shù)組只具有數(shù)組類型，而沒有數(shù)組名 C、 數(shù)組的類型和數(shù)組元素的類型不同 D、 數(shù)組和變量一樣，都有名稱和類型這兩種屬性 26、 創(chuàng)建公用數(shù)組的方法是（）

17、。 A、在模塊中用 Private 語(yǔ)句聲明 B、在模塊中用 Public 語(yǔ)句聲明 C、在過程中用 Private 語(yǔ)句聲明 D、在過程中用 Public 語(yǔ)句聲明 不是 B 就是 D 27、 Visual Basic 6.0 中缺省的參數(shù)傳遞機(jī)制是（）。 A、傳值 B、傳地址 C、傳值和傳地址 D、從實(shí)參到形參 28、已知 A$= ” A、 12345 12345678”,則表達(dá)式 Val(left$(a$,4)+Mid$(a$,4,2) B、123445 C、8 D、6 的值為（ 29、下面正確的賦值語(yǔ)句是（） A、x+y=30 B、y= *r*r C、y=x+30 D、 3y=x 30

18、、要保留動(dòng)態(tài)數(shù)組原有的內(nèi)容，應(yīng)當(dāng)使用（）語(yǔ)句 A、Redim Preserve B、 Redim C、Dim C、Public 不是A就是 B 9 、填空題（每空 2 分，共 20 分） 1 下面的程序是求 100 以內(nèi)奇數(shù)和 s 的值(S=1+3+5+7.+99)。請(qǐng)?jiān)谟?)的地 方填上適當(dāng)?shù)恼Z(yǔ)句或表達(dá)式。(8 分) Private Sub Comma nd1_Click() Dim s As Si ngle Dim i As Si ngle s=( 0) For i=1 to 100 ( step 2) S=( s + i) (n ext i ) Print s End Sub 2、在下列

19、程序的（）內(nèi)寫上適當(dāng)?shù)膬?nèi)容，使能輸出如下圖形 程序如下： Private Sub Comma nd1_Click() For i=1 to (6 For j=1 to ( i-6) Print ( “ ” ) Next j (Print Stri ng(i, *) Next i End Sub 3、寫出下列程序的執(zhí)行結(jié)果 Private Sub Form_Click() Dim a(1 To 10) As In teger Dim b(1 To 10) As In teger Dim c(1 To 10) As In teger For i = 1 To 10 a(i) = i Next i

20、b(1) = 10 For j = 9 To 1 Step -1 b(10 - j + 1) = j Next j For k = 1 To 10 c(k) = a(k) + b(k) 10 Next k For l = 1 To 10 Prin t c(l); If l = 5 The n Print End If Next l End Sub 結(jié)果： 11 11 11 11 11 11 11 11 11 11 4、在窗體上畫一個(gè)文本框和一個(gè)圖片框，然后編寫如下兩個(gè)事件過程: Private Sub Form_Click() Text1.text=VB 程序設(shè)計(jì) End Sub Privat

21、e Sub Text1_Cha nge() Picture1.Pri ntVB Programmi ng End Sub 程序運(yùn)行后，單擊窗體，在文本框顯示的內(nèi)容是 _ VB 程序設(shè)計(jì) _ ，而在圖 片框顯示的內(nèi)容是_ VB Programming _ 。 5、 下列程序輸出的值是多少？ Private Sub Comma nd1_Click() s = 0 For i = 9 To 42 Step 11 s = s + i Next i If i 50 Then s = s + i Else s = s - i End If Print s End Sub 結(jié)果是： _ 155 _ 。 6、

22、 設(shè)有如下程序： Private Sub Form_Click() Dim a As In teger,s As In teger n=8 s=0 Do s=s+n 11 n=n-1 Loop While n0 Print s End Sub 以上程序的功能是計(jì)算 1 到 8 的累加。程序運(yùn)行后，單擊窗體，輸出結(jié)果為_36_。 7、設(shè)有如下程序：用 Array 函數(shù)建立一個(gè)含有 8 個(gè)元素的數(shù)組，然后查找并輸 出該數(shù)組中各元素的最小值。 Option Base 1 Private Sub Comma nd1_Click() Dim arr1 Dim Min As In teger,i As I

23、n teger arr 仁 Array(12,435,76,-24,78,54,866,43) Mi n= arr1(1) For i=2 To 8 If arr1(i) Min Then _min=arr1(i) Next i Print最小值是：;min End Sub &在名稱為 Form1 的窗體上畫一個(gè)文本框，其名稱為 Text1，在屬性窗口中把 該文本框的 MultiLine 屬性設(shè)置為 True，然后編寫如下的事件過程：以下程序的 功能是，把磁盤文件 smtext1.txt 的內(nèi)容讀到內(nèi)存并在文本框中顯示出來， 然后把 該文本框中的內(nèi)容存入磁盤文件 smtext2.txt

24、。 Private Sub Form_Click() Ope nd:testsmtext1.txtFor In put As #1 Do While Not eof(1) Line In put #1,aspect$ whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ Close #1 Ope n d:testsmtext2.txtFor Output As #1 Print #1,text1.text Close #1 End Sub 12 二、程序設(shè)計(jì)題 1、編寫一個(gè)函數(shù)計(jì)算 1*2*n 的值，函數(shù)名為 fact() Private Fun cti