VB練習(xí)題二含答案

1、如有幫助歡迎下載支持5練習(xí)二一、單項(xiàng)選擇! 1.窗體文件、標(biāo)準(zhǔn)模塊文件的擴(kuò)展名分別是(A) . frm 和.mdb(B) . frm 和.vbp(C) . bas 和.vbp(D) .frm 和.bas2 .任何控件都具有的是 屬性。(D) Caption(A) Text (B) Name(C) ForeColor3 .Visual Basic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，構(gòu)成對象的三要素是 。(A)屬性、控件和方法(B)屬性、事件和方法(C)控件、過程和模塊(D)窗體、控件和過程4 .要將變量x賦值為50到100之間(含50和100)的一個隨機(jī)整數(shù)，下面語句正確 的是。A. x=50+Int

2、(50*Rnd)(B) x=50+Int(51*Rnd)(C) x=Int(49+50*Rnd)(D) x=Int(49+51*Rnd)5 .為了使標(biāo)簽Label1的大小根據(jù)其 Caption屬性的值自動擴(kuò)大或縮小，應(yīng)對Label1的何種屬性進(jìn)行怎樣的設(shè)置？(A)將BorderStyle屬性設(shè)為1(B)將AutoSize屬性設(shè)為 True(C)將 BorderStyle 屬性設(shè)為 0(D)將 AutoSize 屬性設(shè)為 False6 .以下事件過程中，Private表示。Private Sub Text1_ChangePrint "Text1 Changed"End Sub

3、A.此過程可以被任何其他過程調(diào)用B.此過程只可以被本窗體或本標(biāo)準(zhǔn)模塊中的其他過程調(diào)用C.此過程不可以被任何其他過程調(diào)用D.此過程只可以被本工程中的其他過程調(diào)用! 7.如果變量 a、b、c的值分別為 3、2、- 3. 5,則Abs(b*c- a)+Int(c)的值為。(A) 6(B) 7(C) 14(D) -13! ! 8.下列函數(shù)中 的值與其他三個的不一樣。(A) Val (" -1")(B) Round (- 0. 9)(C) Int ( - 0. 9)|(D) Fix (- 0. 9)! 9.下列程序代碼執(zhí)行的結(jié)果是Const st As String = "

4、1234” st = st + "5678"Print st(A) 1234(B) 12345678(C) 6912(D)出錯信息10.當(dāng)用戶在文本框中鍵入一個字符時(shí)，能觸發(fā)文本框的 事件。(A) KeyPress 和 Click (B) KeyPress 和 LostFocus(C) KeyPress 和 Change (D) Change 和 LostFocus! 11.執(zhí)行了下面的程序后，列表框 Listl中余下的兩項(xiàng)為 Private Sub Form_Click()For i = 1 To 4Listl.AddItem iNext iFor i = 1 To 2L

5、istl.Removeltem iNext iEnd Sub(A) 1,2(B) 3,4(C) 1,3(D)2, 4 sin x一 cos x(x>=0)(x<0)(A) y = Sin(x)If x < 0 Then y = Cos(x)(C) If x >=0 Then y = Sin(x) ElseIf x < 0 Then(B) y = Cos(x)If x >= 0 Then y = Sin(x)(D) If x >= 0 Then y = Sin(x) y = Cos (x)12 .下列哪段語句不.能夠計(jì)算分段函數(shù)yy = Cos(x) E

6、nd If13 .執(zhí)行下面的程序段后，變量a的值是score = Int(Rnd * 10) + 80Select Case scoreCase Is < 60 a = "F" Case 60 To 69a = "D"Case 70 To 79 a = "C"Case 80 To 89a = "B" Case Elsea = "A"End Select(A)字符“ B"(B)字符“ C”! ! 14.要使某菜單項(xiàng)能夠通過按住鍵盤上的(C)字符“ D"(D)字符“ F”A

7、lt鍵及K鍵打開，應(yīng)該在菜單編輯器中設(shè)置A.在“名稱”欄中“ K”字符前加上“ &B.在“標(biāo)題”欄中“ K”字符前加上“ &C.在“名稱”欄中“ K”字符后加上“ &”D.在“標(biāo)題”欄中“ K”字符后加上“ &”15 .以下程序片段運(yùn)行后輸出a的值是a = 0For i = 1 To 3Forj = 1 To 3If j < i Then a = a + 1Next jNext iPrint a(A) 3(B) 9(C) 6(D) 416 .用列表框(Listl)最后一個數(shù)據(jù)項(xiàng)應(yīng)使用 。(A) Listl.List (Listl.ListCount)(B)

8、 Listl.List (List1.ListCount-1)(C) Listl.List (ListCount)(D) Listl.List (ListCount-1)17 .下列運(yùn)算的結(jié)果中值最大的是(A) 8/9(B) 89(C) 8 mod 9(D) 9 mod 818 .設(shè)a=2,b=3,c=4,d=5,下列表達(dá)式的值是 。a>b AND c<=d OR 2*a>c(A) True (B) False (C) -1(D) 119 .以下語句的輸出結(jié)果是 .Print Format$(32548.5,"000,000.00")(A) 32548.5

9、(B) 32,548.5 (C) 032,548.50 (D)32,548.50二、填空題窗體中有兩個命令按鈕：“顯示”(控件名為cmdDisplay)和“測試"(控件名為 cmdTest)。完成下列事件代碼過程，使單擊“測試”按鈕時(shí)，隱藏“顯示”按鈕。Private Sub cmdTest_Click ()(1) mdDisplay.Visible=FalseEnd Sub窗體中有圖像框Image1 ,完成下列事件代碼過程，使單擊 Image1時(shí)，Image1 移到窗體中心。Private Sub Image1_Click ()Image1. = (Form1 . ScaleWid

10、th - Image1 . Width) 2 LeftImage1. Top =(3) ( Form1.ScaleHeight-Image1.Height ) 2End Sub窗體中有圖片框（Picture1）和計(jì)時(shí)器（Timer1）兩個控件。完成下列事件代碼 過程，使運(yùn)行程序時(shí)，將指定圖片加載到圖片框里，然后圖片框以每2秒鐘一次的速度向窗體的右下角移動。Private Sub Form_Load ()LoadPicturePicture1. Picture =(4)("c:white.bmp")Timeri .IntervalEnd Sub=一.2000Private S

11、ub Timer1_Timer ()Picturel .Move (6), Picture1.Left+100 Picture1.Top+100End Sub用公式-=1 - +-+(-1)可以計(jì)算兀的近似值。請完成下列程序，43 52n-1n= 100時(shí)兀的近似值。編寫函數(shù)Pi (n)求兀的近似值，并調(diào)用該函數(shù)求Function Pi (ByVal n As Integer) As DoubleDim i As IntegerPi = 0For i = 1 To nPi = Pi + (8)(-1)A(i-1)/(2*i-1)Next iPi = Pi * 4(9) End Function

12、Private Sub Form_Click ()Print "n=100 時(shí)，兀的近似值為："(10)Pi(100)End Sub輸入任意一個整數(shù) x,將其插入到一個按升序排列的整數(shù)數(shù)組中，并保證數(shù)組在 插入之后仍按原來的升序排列，請?zhí)顚懲暾绦?。Option ExplicitOption Base 1Const n = 10Private Sub Form_Click() Dim aDim i As Integer, j As Integer, x As Integer(11) = Array(1,3, 4, 5, 9,15, 22, 28, 30, 60) a x =

13、 InputBox("輸入一個整數(shù) x:") ReDim Preserve a(n + 1)For i = n To 1(12) Step -1If (13) Then X<a(i)a(i + 1) = a(i)Else(14)a(i+1)=XExit ForEnd IfNext iIf i < 1 Then(15)a(1)=XEnd Sub在名稱為Forml的窗體上畫一個文本框，其名稱為 Textl ,在屬性窗口中把該文 本框的MultiLine屬性設(shè)置為True,然后編寫如下的事件過程：Private Sub Form_Click()Open "d

14、: test smtext1.txt" For Input As#1Do While Not (16) EOF(1)Line Input #1,aspect$whole$=whole$+aspect$+Chr$(13)+Chr$(10)LoopText1.Text=whole$Close #1Open "d: test smtext2.txt" For Output As#1Print #1, (17) text1.textClose #1End Sub以上程序的功能是：把磁盤文件smtext1.txt的內(nèi)容讀到內(nèi)存并在文本框中顯示出來，然后把該文本框中的內(nèi)容存入磁盤文件smtext2.txt。請?zhí)羁?。設(shè)有如下程序：Option Base 1Private Sub Command1_Click()Dim arr1D