VB復(fù)習(xí)習(xí)題練習(xí)一

1、練習(xí)一一、單選題一個完整計算機系統(tǒng)應(yīng)包括 _(1)_ 。(A)主機、鍵盤、和顯示器(B) 硬件系統(tǒng)和軟件系統(tǒng)(C)主機和其他外部設(shè)備(D) 系統(tǒng)軟件和應(yīng)用軟件打印機屬于計算機部件中的 _(2)_ 。(A)輸出設(shè)備(B)輸入設(shè)備下列表示存儲容量的數(shù)據(jù)中， _(3)_ 是最大的。(A)20480 KB(B) 1.44 MB(C) 1 GB在計算機內(nèi)部能夠直接執(zhí)行的程序語言是_(4)_ 。(A) 數(shù)據(jù)庫語言(B) 高級語言下列敘述正確的是 _(5)_ 。(A) 程序設(shè)計就是編制程序(B)完成(C) 程序經(jīng)調(diào)試改錯后還應(yīng)進行再測試(D)程序經(jīng)調(diào)試改錯后不必進行再測試以下敘述中錯誤的是 _(6)_ 。(

2、A)Visual Basic是事件驅(qū)動型可視化編程工具(B)Visual Basic應(yīng)用程序不具有明顯的開始和結(jié)束語句(C)Visual Basic工具箱中的所有控件都具有寬度（ Width ）和高度（ Height ）屬性(D)Visual Basic中控件的某些屬性只能在運行時設(shè)置以下不屬于 VB 工作模式的是 _(7)_ 模式。(A)編譯(B)設(shè)計(C)運行以下語句的輸出結(jié)果是 _(8)_ 。Print Format $(32548.5,“000,000.00 ”)(A) 32548.5 (B) 32,548.5 (C) 032,548.50 (D) 32,548.50若要使某可見控件獲

3、得焦點，則可使用_(9) _方法來實現(xiàn)。(A) Refresh (B) SetFocus (C) Value(D) GotFocus在下列說法中，正確的是_(10)_ 。(A)通過適當(dāng)?shù)脑O(shè)置，可以在程序運行期間，讓時鐘控件顯示在窗體上(B)在列表框中不能進行多項選擇(C)VB 系統(tǒng)不能在列表框中自動實現(xiàn)將項目按字母順序從大到小排列(D)復(fù)選框的 Value 屬性值為布爾型執(zhí)行以下程序段 , 輸出的結(jié)果為 _(11)_ 。a$=abbacddcbaFor i=6 To 2 Step -2x=Mid(a,i,i): y=Left(a,i)z=Right(a,i): z=UCase(X &

4、Y & z)Next iPrint z(A) ABA(B) BBABBA(C) ABBABA(D) AABAAB控件在窗體上的位置是由_(12)_ 屬性確定的。(A) Width和 Height (B) Top和 Left (C) Width和 Left (D) Top和 Width關(guān)于 Name 屬性，以下敘述中 _(13)_ 是正確的。(A)窗體的 Name 屬性指定窗體的名稱，用于標(biāo)識一個窗體。(B)窗體的 Name 屬性用于設(shè)置顯示在窗體標(biāo)題欄的文本。(C)可以通過代碼在程序運行中改變某個對象的Name 屬性值。(D)對象的 Name 屬性值可以設(shè)置為空。下列名稱中 _(14)

5、_ 可以作為 VB 的變量名。(A) mod(B) m-d(C) tempVal(D) left要求出變量 x 和 y 中較大的一個并保存在變量Max 中，下面的程序段中 _(15)_是不正確的。(A) Max = IIf(x y, x, y)(C) Max = xIf y = x Then Max = y(B) If x y Then Max = x Else Max = y(D) If y x Then Max = yMax = x執(zhí)行以下語句后， a 的值為 _(16)_Dim a As Integera = 1Do Until a = 100a = a + 2Loop(A) 102(B

6、)100(C)溢出(D)101對于語句 If a = b Then c = d的語法分析， _(17)_ 是正確的。(A) a=b和 c=d 都是賦值語句(B) a=b是關(guān)系表達(dá)式， c=d 是賦值語句(C) a=b和 c=d 都是關(guān)系表達(dá)式(D) a=b是賦值語句， c=d 是關(guān)系表達(dá)式運行下列程序段，單擊兩次命令按鈕，則第二次單擊時窗體中顯示的結(jié)果是_(18)_ 。Private Sub Command1_Click()Dim a As IntegerStatic b As Integera = a + 5: b = b + 5Print a, bEnd Sub(A) 510(B)55(C

7、) 1010(D)00在系統(tǒng)默認(rèn)的情況下， Dim a(3, 4, 2 To 5)定義的數(shù)組共有 _(19)_ 個元素。(A) 36(B) 48(C) 60(D) 80下面的子過程定義語句中沒有語法和邏輯錯誤的是_(20)_ 。(A) Sub S1(ByVal n%()(B) Sub S1(n As Integer) As Integer(C) Function S1(ByVal n As Integer) (D) Function S1%(ByVal S1 As Integer)執(zhí)行了下面程序后，組合框中數(shù)據(jù)項的值是_(21)_。Private Sub Form_Click()For i=1

8、 to 6Combo1.AddItem iNext iFor i= 1 to 3Combo1.RemoveItem iNext iEnd Sub(A)1 5 6(B)1 3 5(C)4 56(D)2 4 6設(shè)窗體上有一個列表框控件 List1 ，且其中含有若干列表項。則以下能表示當(dāng)前被選中的列表項內(nèi)容的是 _(22)_.(A)List1.List B）List1.ListIndex (C)List1.Index (D)List1. Text在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱為 Text1 的文本框，然后編寫如下事件過程：Private Sub Command1_Cli

9、ck()n = Val(Text1.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該事件過程的功能是 _(23)_(A)輸出 n 以內(nèi)的奇數(shù)(B)輸出 n 以內(nèi)的偶數(shù)(C)輸出 n 以內(nèi)的素數(shù)(D)輸出 n 以內(nèi)能被j整除的數(shù)如果要在菜單中添加一個分隔線，則應(yīng)將其標(biāo)題屬性設(shè)置為_(24)_ 。(A)=(B)*(C)&(D)-以下關(guān)于文件的敘述中正確的是_(25)_ 。(A)一個記錄中所包含的各元素的數(shù)據(jù)類型都是相同的

10、(B)隨機文件中每個記錄的長度是固定的(C) Open 命令的作用是打開一個已經(jīng)存在的文件(D)使用 Input #語句可以從隨時機文件中讀取數(shù)據(jù)以下定義數(shù)組或給數(shù)組元素賦值的語句中，正確的是_(26)_ 。(A) Dim a As Variant(B) Dim a(10) As Integera=Array(1,2,3,4,5)a=Array(1,2,3,4,5)(C) Dim a%(10)(D) Dim a(3),b(3) As Integera(1)=ABCDEa(0)=0 : a(1)=1 : a(2)=2 : b=a窗體中有一個命令按鈕，編寫如下程序，程序運行后，輸出結(jié)果為_(27)

11、_ 。Private Sub test(p,m,n)p=p+1: m=m+1: n=n+1Print“Sub:”; p; m; nEnd SubPrivate Sub Command1_Click()a1=1: b1=2: c1=3Call test(a1,b1+3,(c1)Print“Main: ”; a1; b1; c1End Sub(A) Sub: 2 6 4(B) Sub: 2 6 4(C) Sub: 2 6 4(D) Sub: 2 6 4Main: 2 6 4Main: 1 6 4Main: 1 2 3Main: 2 2 3以下語句用于打開一個順序文件OpenC:MyFile.txt

12、 For OutPut,但是該語句的一個重要錯誤是沒有 _(28)_ 。(A)指定打開方式 (B) 指定文件號 (C) 指定打開文件名 (D) 指定文件類型在窗體上畫一個名稱為 Label1 、標(biāo)題為“ VisualBasic 考試”的標(biāo)簽， 兩個名稱分別為Command1 和 Command2、標(biāo)題分別為“開始”和“停止”的命令按鈕，然后畫一個名稱為 Timer1 的計時器控件，并把其Interval屬性設(shè)置為 500。編寫如下程序：Private Sub Form_Load()Private Sub Timer1_Timer()Timer1.Enabled=FalseIf Label1.L

13、eft 2 * b Or a = c And b c Or c d運行下列程序，單擊命令按鈕，則Text1 中顯示 _6_ ，窗體中顯示 _7_ 。Private Sub Command1_Click()Dim i As Integer, j As Integer, a(5, 4) AsInteger For i = 2 To 3For j = 2 To 4a(i, j) = i + jNext jNext iText1.Text = a(3, 2)Print a(3, 1)End Sub如下圖，窗體上有兩個命令按扭 C1, C2 及一個文本框 Text1，當(dāng)按下 C1 時，將 C2 的標(biāo)題與

14、 Text1 中的內(nèi)容交換。C1C2Private Sub C1_Click()Dim a As StringForm1.Caption = 交換后 a = _8_Text1.Text = _9_C2.Caption = aEnd Sub請完善以下判斷完數(shù)的程序。一個數(shù)如果恰好等于它的因子之和，這個數(shù)就被稱為“完數(shù)” 。一個數(shù)的因子是指除了該數(shù)本身以外能夠被其整除的數(shù)。例如6 是一個完數(shù)，因為 6=1+2+3。Private Sub CmdJudge_Click()Dim a()m = Val(Text1.Text)If _13_ThenReDim a(1)Picture1.Print m &

15、amp; 是完數(shù)a(1) = 1Picture1.Print m; =;k = _10_For i = 1 To UBound(a) -1j = 1Picture1.Print a(i); +;For i = 2 To m - 1Next iPicture1.Print_14_ElseIf m Mod i = 0 Thenk = k + i 因數(shù)和j = j + 1 因數(shù)個數(shù)ReDim _11_ a(j)a(j) = _12_End IfNext I(轉(zhuǎn)右 )編寫程序。在窗體上顯示如下圖所示的“九九加法表”。_15_ ExplicitPrivate Sub Form_Click()Dim i%

16、, j%Print + 1 2 3 4 5 6789For i = 1 To _16_Print i;For j = 1 To _17_If i + j = A And ch max Then max = A(i): x = iNext iLabel1.Caption = 使用頻率最高的是 & Chr(x+64) & ，共出現(xiàn) & max & 次。 End Sub練習(xí)二一、單選題1、用 _屬性可唯一標(biāo)志控件數(shù)組中的某一個控件。A)NameB)IndexC)CaptionD)Tablndex2、算法的時間復(fù)雜度是指 _。A)執(zhí)行算法程序所需要的時間B)算法程序的長

17、度C)算法執(zhí)行過程中所需要的基本運算次數(shù)D)算法程序中的指令條數(shù)3、下列哪條語句是錯的 _。A)exit subB)exit functionC)exit whileD)exit do4、下列敘述中正確的是 _。A)在窗體的 Form Load 事件過程中定義的變量是全局變量B)局部變量的作用域可以超出所定義的過程C)在某個 Sub 過程中定義的局部變量可以與其他事件過程中定義的局部變量同名，但其作用域只限于該過程D)在調(diào)用過程中，所有局部變量被系統(tǒng)初始化為0 或空字符串5、對建立良好的程序設(shè)計風(fēng)格，下面描述正確的是_。A)程序應(yīng)簡單、清晰、可讀性好B)符號名的命名要符合語法C)充分考慮程序的

18、執(zhí)行效率D)程序的注釋可有可無6、設(shè)在菜單編輯器中定義了一個菜單項，名為 menu1。為了在運行時隱藏該菜單項，應(yīng)使用的語句是 _。A)menu1Enabled=TrueB)menu1 Enabled=FalseC)menu1Visible=TrueD)menu1 Visible=False7、圖像框有一個屬性，可以自動調(diào)整圖像框的大小， 以適應(yīng)圖像的尺寸，這個屬性是 _ 。A)AutoSize B)Stretch C)AutoRedraw D)Appearance 8、大部分控件都沒有的屬性是 _。A)Top B)Name C)Visible D)Interval 9、在代碼中定義了一個子過

19、程：Sub P(a,b),End Sub下面 _調(diào)用該過程的格式是正確的。A)Call P B)Call P 10,20 C)Call P(10,20) D)P(10,20)10、將一個窗體設(shè)置為MDI 子窗體的方法是 _。A)將窗體的名稱改為 MDI B) 將窗體的 MDIChild 屬性設(shè)為 C)將窗體的MDIChild 屬性設(shè)為 False D) 將窗體的 Enabled 屬性設(shè)為TrueFalse11、在程序運行期間，如果拖動滾動條上的滾動框，則觸發(fā)的滾動條事件是_。A)MoveB)ChangeC)ScrollD)GetFocus12、表達(dá)式 4+5 6*7 8 Mod 9 的值是 _

20、。A)4B)5C)6D)713、在 Visual Basic中，下列 _是合法的變量名。A) RemB) 2ndC) Lo apD) Sum14、對象的三個要素是： _。A) 屬性、方法、事件B)色彩、高度、寬度C)事件、屬性、色彩D)屬性、高度、寬度15、窗體模塊文件的擴展名是： _。A) frmB) basC) vbpD) txt16、Visual Basic邏輯運算符 Xor、 0r 、Not、And 中，級別最高的運算符是_。A) XorB) OrC) NotD) And17、InputBox函數(shù)返回值的類型為 _。A)數(shù)值B)字符串C) 變體D) 數(shù)值或字符串 ( 視輸入的數(shù)據(jù)而定

21、)18、為了把焦點移到某個指定的控件，所使用的方法是_。A)SetFocusB)VisibleC)RefreshD)GetFocus19、設(shè) a=6，則執(zhí)行 x=IIF(a5 ， -1,0)后， x 的值為 _。A)5B)6C)0D)-120、以下對變量名的說法中，不正確的是_。A) 不能以數(shù)字開頭B)不能是 Visual Basic的保留字C) 可以包含字母、數(shù)字、下劃線和標(biāo)點符號D)不能超過 255 個字符21、以下關(guān)于多重窗體程序的敘述中，錯誤的是_。A) 用 Hide 方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體B) 在多重窗體程序中，各窗體的菜單是彼此獨立的C) 在多重窗體程序中，可

22、以根據(jù)需要指定啟動窗體D) 對于多重窗體程序，需要單獨保存每個窗體22、在 Visual Basic中，設(shè)置控件的大小，可改變下列_屬性。A) Height 與 WidthB) Height與 Top C)Left與 TopD) Left23、Visual Basic根據(jù)計算機訪問文件的方式將文件分成三類，其中不包括_。A)順序文件B)Unix文件C)二進制文件D)隨機文件24、符號是聲明 _類型變量的類型定義符。A)IntegerB)VariantC)SingleD)String25、用 Dim(1，1 to 3)聲明的是一個 _維數(shù)組。A)1B)2C) 3D) 426、計算機操作系統(tǒng)的作用

23、是_。A)管理計算機系統(tǒng)的全部軟、硬件資源，合理組織計算機工作流程，以達(dá)到充分發(fā)揮計算機資源的效率，為用戶提供使用計算機的友好界面B)對用戶存儲的文件進行管理，方便用戶C)執(zhí)行用戶鍵入的各類命令D)為漢字操作系統(tǒng)提供運行基礎(chǔ)27、計算機的硬件主要包括：中央處理器（CPU）、存儲器、輸出設(shè)備和_。A)鍵盤B)鼠標(biāo)C)28、下列個組設(shè)備中，完全屬于外部設(shè)備的一組是_。A)內(nèi)存儲器、磁盤和打印機B)CPUC)CPU、顯示器和鍵盤D)29、計算機存儲器中，組成一個字節(jié)的二進制位數(shù)是_。A)4B)8C)1630、微型計算機硬件系統(tǒng)中最核心的部件是_。A)硬盤B)I/O設(shè)備二、填空題I 閱讀程序，寫出下列

24、程序的運行結(jié)果：1、下列 Visual Basic程序段運行后 , 變量 M 的值為 _1_ 。a=2 : b=1 : c=5If ab Then m=a Else m=bIf c2 Thena=10Else If(102)=6 Thena=20Elsea=30End IfAI 在下列程序的劃線處填寫適當(dāng)代碼，使之能夠完成題目要求：6、完善程序，自定義一個名為JieC 的函數(shù)，利用遞歸定義N!=n*(n-1)!求 n 的階乘。Public _6_ JieC(_7_%) As DoubleIf n = 0 ThenJieC = 1Else_8_End If_9_Function7、完善程序，統(tǒng)計

25、文本框中大小寫字母各有多少個。s = Text1.TextFor i = 1 To _10_c = _11_If c = A And _12_ Thent = t+1Elsem = m +1End If_13_Print 大寫字符有 & t & 個; 小寫字符有 & m & 個8、完善程序，完成選擇排序。 程序可隨機生成指定個數(shù)的10 ，99 區(qū)間的整數(shù)進行排序，在窗體中顯示每一步排序操作的結(jié)果。Dim ia() As Integer, i%, j%, imin%, t%, n%n = Val(InputBox(請輸入數(shù)組元素的個數(shù):)_14_Form1.Cls

26、For i = 1 To nia(i) = _15_Print ia(i);Next iFor i = 1 To _16_imin = iFor j = i + 1 To nIf ia(imin) ia(j) Then imin = jNext jt = ia(i)ia(i) = ia(imin)_17_PrintFor j = 1 To nPrint ia(j);Next jNext iPrint9、完善程序，輸入x，求：Sin （x）=x/1-x3/3!+x5/5!-x7/7!+(-1)n-1*x2n-1/(2n-1)!要求當(dāng)?shù)?N 項的精度小于 10-5 時結(jié)束運算，自變量x 單位為弧度

27、。提示： t當(dāng)前項= -1 * t前一項* x 2 / (i - 1) * i)Dim x!Dim Sx!Dim i%, t!x = Val(InputBox(x=)i = 1t = x / 1Do Until _18_ 10 (-5)_19_i = i + 2t = -1_20_ x 2 / (i - 1) * i)_21_MsgBox 計算結(jié)果 Sin(& x & )=& Sx & vbCrLf& 驗證Sin( &x & )= & Sin(x)10、完善程序，在窗體中繪制 y=Sin(x) 函數(shù)圖形。要求鼠標(biāo)單擊窗體時開始繪制

28、，繪制范圍：-3.1415926=x=3.1415926Dim x!, y!Private Sub _22_23_Timer1.Interval = 100End SubPrivate Sub Timer1_Timer()x = x + 0.05_24_x0 = x + Line2.X1y0 = -y + Line1.Y1Shape1.Move x0, y0 - Shape1.Height / 2PSet (x0, y0), RGB(255, 0, 0)If x _25_ Then Timer1.Interval = 0End Sub三、編程題1、建立一個名為 Max 的函數(shù)過程，它能接受一個

29、單精度類型的數(shù)組參數(shù)，求出該數(shù)組元素的最大值并將這個最大值作為函數(shù)值返回。建立一個簡單的窗體界面，任意定義一個單精度類型數(shù)組，調(diào)用上述的函數(shù) Max 求出其最大值并顯示出來。2、編程計算圓周率Pi 的近似值。計算方法：, 一直到1/i小于 0.0000001 為止。參考答案一、單選題1- 5: BCCCA16-20: CBADC6-10: DBDCB21-25: AABAB11-15: CBDAA26-30: ACDBD二、填空題1、 (1)12、 (2) AAAAAAA3、 (3)24、 (4)12 185、 (5)306、 (6)Function(7) n(8)JieC=n*JieC(n-

30、1)(9) End7、 (10)Len(s)或 Len(Text1.text)(11) Mid(s,i,1)(12) c3.1415926三、編程題1、 Function Max(a() As Single) As SingleDim iMax%, i%iMax = Lbound(a)For i = Lbound(a)+1 To Ubound(a)If a(i) a(iMax) Then iMax = iNext iMax = a(iMax)End FunctionPrivate Sub Picture1_Click()Dim x(1 To 10) As SingleFor i = 1 To

31、10 x(i) = Rnd * 100Print x( & i & )= & x(i);Next iPrintPrint 最大的數(shù)組元素是 & Max(x()End Sub2、 Dim Pi As Double, I As Long, fuhao%fuhao = 1i = 1Do Until 1 / i y, x, y)(B) If x y Then Max = x Else Max = y(C) Max = x(D) If y x Then Max = yIf y = x Then Max = yMax = x設(shè) x 和 y 都是數(shù)值型變量，使用 _(18)_

32、 組語句可將 x 和 y 的值互換。(A) x = y: y = x(B) x = x + y: y = x - y: x = x - y(C) x = x + y: x = x - y: y = x y (D) x = (x + y) / 2: y = (x - y) / 2對于語句 If x = 10 Then y = 100的語法分析， _(19)_ 是正確的。(A) x=10和 y=100 都是賦值語句(B) x=10是關(guān)系表達(dá)式， y=100 是賦值語句(C) x=10和 y=100 都是關(guān)系表達(dá)式(D) x=10是賦值語句， y=100 是關(guān)系表達(dá)式運行下列程序段，單擊兩次命令按鈕

33、，則第二次單擊時窗體中顯示的結(jié)果是_(20)_ 。Private Sub Command1_Click()Dim a As IntegerStatic b As Integera = a + 5b = b + 5Print a, bEnd Sub(A) 510(B)55(C) 10在系統(tǒng)默認(rèn)的情況下，Dim a(3, 4, 2 To 5)(A) 36(B) 48(C) 60(D) 8010(D) 0定義的數(shù)組共有0_(21)_ 個元素。下面的子過程定義語句中沒有語法和邏輯錯誤的是_(22)_ 。(A) Sub S1(ByVal n%()(B) Sub S1(n As Integer) As I

34、nteger(C) Function S1(ByVal n As Integer)(D) Function S1%(ByVal S1 As Integer)引用列表框 List中最后一項的文本應(yīng)使用_(23)_.(A) List1.List(List1.ListCount)(B) List1.List(List1.ListCount-1)(C) List1.List(ListCount)(D) List1.ListListCount-1如果需要在單擊滾動條兩端的箭頭時滾動條的值改變量為10，則應(yīng)設(shè)置其 _(24)_屬性值為 10。(A) Value(B) SmallChange(C) Larg

35、eChange(D) Max下列關(guān)于 VB 中編輯菜單的敘述，錯誤的是_(25)_ 。(A)同一窗體中不允許出現(xiàn)標(biāo)題相同的菜單項(B)在定義菜單時使用符號“ &”加字母表示菜單項的熱鍵(C)程序運行中，可以重新設(shè)置菜單的Enabled 屬性(D)彈出式菜單也在菜單編輯器中定義VB 中默認(rèn)的坐標(biāo)原點在窗體的_(26)_ 。(A)左上角(B)左下角(C)中心(D)底部中點以下關(guān)于文件的敘述中正確的是_(27)_ 。(A)一個記錄中所包含的各元素的數(shù)據(jù)類型都是相同的(B)隨機文件中每個記錄的長度是固定的(C) Open 命令的作用是打開一個已經(jīng)存在的文件(D)使用 Input #語句可以從隨機文件中讀取數(shù)據(jù)執(zhí)行下面的程序段后，顯示x的值為 _(28)