廣藥VB練習(xí)八

1、練習(xí)八、單選題1. 計(jì)算機(jī)中釆用二進(jìn)制，是因?yàn)镺(A) 可降低硬件成本(B)兩個(gè)狀態(tài)的系統(tǒng)具有穩(wěn)定性(0二進(jìn)制的運(yùn)算法則簡單(D)上述三個(gè)原因2. 我們通常說的U盤屬于計(jì)算機(jī)部件中的。(A) 輸出設(shè)備 (B)輸入設(shè)備 (C)存儲設(shè)備 (D)打印設(shè)備3. 下列表示存儲容量的數(shù)據(jù)中，是最小的。(A) 20480 KB(B) 1.44 MB (C) 1 GB(D)4865723 Byte4. 一個(gè)完整計(jì)算機(jī)系統(tǒng)應(yīng)包括(4)o(A)主機(jī)和顯示器(B)硬件系統(tǒng)和軟件系統(tǒng)(0系統(tǒng)軟件和應(yīng)用軟件(D)內(nèi)存和外存5. 下列執(zhí)行速度最快的程序語言是(5)o(A)數(shù)據(jù)庫語言(B)高級語言 (C)機(jī)器語言(D)匯編

2、語言6. 一只白色的足球被踢進(jìn)球門，則白色、足球、踢、進(jìn)球門是(6)。(A)屬性、對象、方法、事件(B)屬性、對象、事件、方法(C)對象、屬性、方法、事件(D)對象、屬性、事件、方法7. 以下敘述中正確的是o(A) 窗體的Name屬性指定窗體的名稱，用來標(biāo)識一個(gè)窗體(B) 窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本(C) 可以在運(yùn)行期間改變對象的Name屬性的值(D) 對象的Name屬性值可以為空8. 在VB中，保存一個(gè)工程至少應(yīng)保存兩個(gè)文件，這兩個(gè)文件分別是o(A)文本文件和工程文件(B)窗體文件和工程文件(C)窗體文件和標(biāo)準(zhǔn)模塊文件(D)類模塊文件和工程文件9. 在下列說法中，正確的

3、是(9)(A) 通過適當(dāng)?shù)脑O(shè)置，可以在程序運(yùn)行期間，讓時(shí)鐘控件顯示在窗體上(B) 在列表框中不能進(jìn)行多項(xiàng)選擇(C) VB系統(tǒng)不能在列表框中自動實(shí)現(xiàn)將項(xiàng)目按字母順序從大到小排列(D) 復(fù)選框的Value屬性值為布爾型10. 當(dāng)一個(gè)復(fù)選框被選中時(shí)，它的Value屬性的值是(10)(A) 3( B) 2(C) 1(D) 011. 計(jì)算結(jié)果為0的表達(dá)式是(11)(A) Int (2. 4)+Int (-2. 8)(B) Cint (2. 4) +Cint (-2. 8)(C) Fix (2. 4) +Int (-2. 8)(D) Fix (2. 4) +Fix (-2. 8)12. 可以惟一標(biāo)識控件數(shù)

4、組中的每一個(gè)控件屬性的是(12)(A)Name(B)Caption (C)Index (D)Enabled13. 下列變量名中，合法的變量名是(13)。(A)m24(B)mn-k(C)24m(D)m+n14. 若有語句” Dim Flag As BooleanM，則下面賦值語句正確的是(14)。(A) Flag 二True (B) Flag二True (C)Flag=Ture(D)Flag二True15. 下列敘述不正確的是(15)o(A) InputBox函數(shù)返回值為字符型(B)HsgBox函數(shù)返回值為所單擊按鈕的鍵值(C) MsgBox語句沒有返回值(D) MsgBox語句返回值為所單擊按

5、鈕的鍵值16. 若要在Textl的光標(biāo)(焦點(diǎn))移動到其它控件時(shí)進(jìn)行合法性判斷，則可使用_(16) _ 事件來實(shí)現(xiàn)。(A) Refresh (B) SetFocus (C) LostFocus (D) GotFocus17. 一般情況下，控件的大小是由(17)屬性確定的(A) Width 和 Height (B) Top 和 Left (C) Width 和 Left (D) Top 和 Width18. 以下能判斷是否到達(dá)文件尾的函數(shù)是_(18)(A)BOF(B) LOC (C)LOF (D)EOF19. 下列過程語句說明合法的是(19)o(A) Sub fl (ByVai n() As In

6、teger)(B) Sub fl (n() As Integer)As Integer(C) Function fl (fl As Integer) As Integer (D)Finction fl (ByVai n As Integer)20. 要在文本框Textl中顯示列表框Listl中最后一個(gè)項(xiàng)目的止確語句是(20)。(A) Textl. Text二Listl. List (ListCountT)(B) Textl. Text二Listl. List (0)(C) Textl. Text二Listl. List (Listl. ListCountT) (D) Textl. Text二L

7、istl. Listindex21. 設(shè)組合框Combol中有5個(gè)項(xiàng)目，則以下能刪除最后一項(xiàng)的語句是_(21)。(A)Combol. Removeitem Text(B)Combol. Removeitem 5(C)Combol. Removeitem 4(D)Combol. Removeitem Combol. Listcount22. 在通用聲明代碼中有以下語句：Option Base 1Dim a (4,-3 to 3) As String則該數(shù)組有_(22)個(gè)元素。(A) 28(B) 24(C) 35(D) 3023. 要使菜單項(xiàng)能通過按鍵盤上的Alt鍵及K鍵打開，應(yīng)在菜單編輯器中設(shè)(

8、23)_o(A)在“名稱”欄中“K”字符前加上“&”(B)在“標(biāo)題”欄中“K”字符前加上“&”(C)在“名稱”欄中“K”字符后加上“&” (D)在“標(biāo)題”欄中“K”字符后加上“&”24. 以下Case語句中錯(cuò)誤的是_(24)_。(A) Case 0 To 10(B) Case Is10(C) Case Is10 And Is1025. 假定有以下兩個(gè)過程，則以下說法中不正確的是_(25)oPrivate Sub PPP (a As Single, b As Single)a = a + bb = a + bPrint a, bEnd SubPrivate Sub Form_Activate()

9、x=18Call PPP (x, (x)Print xEnd Sub(A) 形參是a和b ,兩個(gè)實(shí)參x和(x)允許重名(B) 形參是a和b ,實(shí)參(x)表示是傳值調(diào)用(C) 形參是d和b ,實(shí)參x表示是傳址調(diào)用(D) Print a, b輸出的值分別為36, 3626. 若需要在同一窗口內(nèi)安排兩組相互獨(dú)立的單選按鈕(OptionButton),可使用_(26)控件將它們分隔開。 TextBox PictureBox Image Frame(A)或或(C)或(D)或27. 在窗體上畫一個(gè)名稱為CommandDialogl的通用對話框，一個(gè)名稱為Command 1的命 令按鈕。然后編寫如下事件過程

10、：Private Sub Command1_C1ick()CommonDialog1. F訂eName 二CommonDialogl. F 訂 ter 二All file * (* Doc) Doc (*. Txt)水.Txt CommonDialog1. Filterlndex=2CommonDialog1. DialogTitle二VBTestCommonDialog1. Action=lEnd Sub對于這個(gè)程序，以下敘述中錯(cuò)誤的是(27)(A)該對話框彼設(shè)置為“打開”對話框(B)在該對話框中指定的默認(rèn)文件名為空(C)該對話框的標(biāo)題為VBTest(D)在該對話框中指定的默認(rèn)文件類型為文本

11、文件化Txt)28. 在窗體上畫一個(gè)名稱為Commandl的命令按鈕，然后編寫如下事件過程：Option Base 1Private Sub Commandl_Click()Dim aa= Array (1, 2, 3, 4, 5)For i=l To UBound(a)a(i) = a(i)+i-lNextPrint a(3)End Sub程序運(yùn)行后，單擊命令按鈕，則在窗體上顯示的內(nèi)容是(28)o(A) 4(B) 5(C) 6(D) 729. 在窗體上畫一個(gè)名稱為Commandl的命令按鈕和一個(gè)名稱為Textl的文本框，然后 編寫如下事件過程,該事件過程的功能是_(29)_Private S

12、ub Commandl_Click()n = Vai(Textl Text)For i = 2 To nFor j = 2 To sqr(i)If i Mod j = 0 Then Exit ForNext jIf j Sqr(i) Then Print iNext iEnd Sub(A)輸出n以內(nèi)的奇數(shù)(B)輸出n以內(nèi)的偶數(shù)(C)輸出n以內(nèi)的素?cái)?shù)(D)輸出n以內(nèi)能被j整除的數(shù)30. 設(shè)有如下程序：Private Sub Command1_C1ick()Dim sum As Double, x As Doublesum = 0: n = 0For i = 1 To 5x = n / i: n

13、= n + 1: sum = sum + xNextEnd Sub該程序通過For循環(huán)計(jì)算一個(gè)表達(dá)式的值，這個(gè)表達(dá)式是(30)(A)1+1/2+ 2/3+3/4+4/5(B)1+1/2+2/3+3/4(C)1/2+2/3+3/4+4/5(D)1+1/2+1/3+1/4+1/5填空K 設(shè)屮6,則執(zhí)行 x=Iif(a5,-l,0)后，x 的值為1_-12. Visual Basic提供了三種對數(shù)據(jù)文件的訪問方式，它們是順序訪問方式、隨機(jī) 訪問方式和二進(jìn)制訪問方式。3、賦值語句：a=123 & MIDri23456z，,3,2)執(zhí)行后，a變量中的值_創(chuàng)_12334。4、如果有以下程序代碼，則輸出結(jié)果

14、是4_false。x = 10y = 5Print x 2 二 y 35、運(yùn)行下面的程序，單擊窗體后在窗體上顯示的內(nèi)容是_10 220_51_；若將程序 中的A語句與B語句的位置互換，再次執(zhí)行程序，單擊窗體后在窗體上顯示的內(nèi)容是_10 120_6 。Private Sub Form_Click()Dim a As Integer, b As Integera=0： b二0Do While a a(j + 1) Thenal 二 a(j)a(j) = a(j + 1)a(j + 1) = al_end if_21Next jNext iEnd Sub 10、在C盤根H錄下有一數(shù)據(jù)文件（cj.da

15、t）,內(nèi)容如下:9901,56, 789902,97,899903,67,759904,78,769905,10090其中第一列數(shù)據(jù)表示學(xué)號，第二列數(shù)據(jù)表示數(shù)學(xué)成績，第三列數(shù)據(jù)表示語文成績，要求 根據(jù)學(xué)號計(jì)算學(xué)生的總分，并按總分從高到低次序在窗體上輸出。現(xiàn)有程序如下：Dim a(5, 4) As IntegerPrivate Sub Form_Click()Dim i As Integer, j As IntegerOpen “c:cjdat For input_22 As #1For i = 1 To 5For j = 1 To 3Input #1,_23 a(i. j)Next j_a(i

16、,4)_24= a(i, 2) + a(i, 3)Next iSortFor i = 1 To 5For j = 1 To 4Print a(i, j),Next jPrintext iClose #1End SubPrivate Sub Sort()Dim i As Integer, j As Integer, k As Integer, temp As IntegerFor i = 1 To 4For j = i + 1 To 5If a(i, 4) Mid(S 1, n + Len(S2)9 DeleStr(x, y)10、強(qiáng)制顯示聲明變量11、nl=i10012、n=n+l13、Additem14、q=s mod 1015 x mod i=016、False12345678910DCBBCBABCc11121314151617181920DCADDCADDc21222324252627282930CABCDCDBCc17、step 222、Input18、prime(n-k)23、a(ij)19、Array24、a(i,4)20