2013第二學期VB期末考試復習試卷

1、姓名: 學號: 學院: 專業(yè)班級: ( 密 封 線 內(nèi) 不 答 題 )密封線線_ _ （本科）試卷（A卷）2013- 2014 學年第 二 學期VB試卷題序一二三四五六七八總 分得分評卷人注意：請務必在答題卡上作答。得分一、選擇題（ 共 40 分，每題 1 分）1Visual Basic 是一種面向對象的可視化程序設計語言，采取了_的編程機制。     A、事件驅動 B、按過程順序來執(zhí)行    C、從主程序開始執(zhí)行D、按模塊順序執(zhí)行2Visual Basic 是一種面向對象的程序設計語

2、言，_不是面向對象系統(tǒng)所包含的三要素。     A、變量B、事件    C、方法D、屬性3為了保存一個Visual Basic應用程序，應當_。 A、只保存工程文件（.vbp） B、分別保存工程文件、窗體文件和標準模塊文件 C、分別保存工程文件和標準模塊文件（.bas） D、只保存窗體模塊文件（.frm） 4為了使窗體右移200（twip），應使用的語句是_。 A、 Form1.Move Width+200 B、 Form1.Move 200 C、 Form1.Move Form1.Height+200 D、 Form1.Move L

3、eft+2005VB的一個應用程序至少包含一個_文件，該文件存儲窗體上使用的所有控件對象和有關的_、對象相應的_過程和_代碼。    A、模塊、方法、事件、程序B、窗體、屬性、事件、程序   C、窗體、程序、屬性、事件D、窗體、屬性、事件、模塊6有程序代碼如下： text1.text="text1.text"則text1、text、"text1.text"分別代表_。     A、對象、值、屬性B、對象、方法、屬性    C、

4、對象、屬性、值D、屬性、對象、值7若要設置文本框中所顯示的文本顏色，應設置_屬性的值 A、ColorB、FillColor C、BackColorD、ForeColor8當運行程序時，系統(tǒng)自動自動執(zhí)行啟動窗體的_事件過程。A、LoadB、ClickC、UnLoadD、GotFocus9設a=10，b=5，c=1，執(zhí)行語句print a>b>c后，窗體上顯示的是_。 A、FalseB、出錯 C、True D、1 10函數(shù)String（2,"book"）的值是_。    A、"o" B、"BOOK

5、"     C、"bb" D、 "bookbook"11以下語句的輸出結果是_。 Print Format $（32548.5,"000,000.00"）   A、32,548.5 B、032,548.50    C、32548.5 D、32,548.5012InputBox函數(shù)返回值的類型為_。     A、數(shù)值B、字符串   

6、; C、數(shù)值或字符串（視輸入的數(shù)據(jù)而定）D、變體13當Visual Basic執(zhí)行下面語句后，A的值為_ A=1 If A>0 then A=A+1 If A>1 then A=0 A、3B、2 C、1D、0 14假定有下面的情況語句： Select case x 為了確定x的絕對值大于5，正確的Case子句為_。 A、Case -5 to 5B、Case abs（x）>5 C、Case Not（-5 to 5）D、Case Is< -5,Is>5 15以下程序段的輸出結果為_。 x=1 y=4 do until y>4 x=x*y 姓名: 學號:

7、 系別: 年級專業(yè):( 密 封 線 內(nèi) 不 答 題 )密封線 y=y+1 loop print x A、8B、20 C、1D、4 16下面的程序計算的數(shù)學式是_。   T=1  S=0   For I=1 to 19 step 2 T=T*I      S=S+T   Next I  Print S    A

8、、1+3+5+.+19B、1+1*3+1*3*5+.+1*3*5*.19C、1*3*5*.*19 D、1!+3!+5!+.+19!17執(zhí)行下列程序，從鍵盤輸入10，運行結果是_。  Private Sub Command1_Click（）   S=InputBox（"請輸入一個數(shù)字："）    Select Case S       Case Is>0 

9、0;         Print ">0"       Case Is>3         Print ">3"      Case Is>5       

10、 Print ">5" End Select   End Sub    A、>3B、>0   C、出錯 D、>518下面程序段的運行結果為：For i=3 to 1 step -1 Print Spc（5-i）; For j=1 to 2*i-1 Print “*”; Next jprintNext iA、 *B、 *C、 *D、 * * * * * * * *19執(zhí)行下列代碼的結果是_。&#

11、160; Private Sub Command1_Click（）    Dim a（10）     For I = 1 To 10        a（I）= I * 10     Next I     Print a（I）End 

12、;Sub  A、110 B、10    C、100 D、數(shù)組下標越界20執(zhí)行下面的程序段后，x 的值為_。 x = 5 For i = 1 To 20 Step 2 x = x + i 5 Next i A、24B、23 C、21D、2221語句Dim a（-3 to 4,3 to 6） as integer定義的數(shù)組元素的個數(shù)是_。 A、32B、21 C、18D、28 22設如下程序： Option base 1 Private Sub Form_Click（） Dim arr arr=array（10,20,"

13、ABCDE"） For i=3 to 1 step -1 Print arr（i）; Next i End Sub 程序運行后，單擊窗體，在窗體上顯示的內(nèi)容為_。 A、ABCDE 10 20B、出錯信息 C、10 20 ABCDED、ABCDE 20 10 23可獲得當前系統(tǒng)日期的函數(shù)是_。、Date( )、Time( )、IsDate( )、Year( )24以下正確的函數(shù)定義形式是_。   A、Public f1（a As Single） B、Private f1（a As Single）   C、Sub f1

14、（a As Single） D、Function f1（A） As String25在窗體上添加一個名為Command1的命令按鈕和兩個名為Label1、Label2的標簽，程序代碼如下：   Private x As Integer   Private Sub proc（ByVal a As Integer,ByVal b As Integer）      

15、;x=a*a      y=b+b   End Sub   Private Sub Command1_Click（）      x=5      y=3      Call proc（x,y）     

16、0;Label1.Caption=x      Label2.Caption=y   End Sub 程序運行后，單擊命令按鈕，兩個標簽中顯示的內(nèi)容分別是_。   A、25和3B、25和6   C、5和6 D、5和3 26在窗體上畫一個命令按鈕（名稱為Command1），然后編寫如下事件過程： Private Sub Command1_Click（） Dim b as integer b=b+1 End Sub 運行

17、程序，第3次單擊命令按鈕后，變量b的值為_。 A、1B、3 C、0D、2 27、閱讀程序：   Function p1（a As Integer）     Static b b = b + 1      p1 = a * b  End Function  Private Sub 

18、command1_click（）     Dim a As Integer      a = 5      For I = 1 To 3          Print p1（a）,     Next&

19、#160;I   End Sub 程序運行后，單擊命令按紐，輸出結果為：_。    A、5 5 10B、5 10 15   C、5 10 50D、10 15 2028假設希望在另一個窗體模塊中調(diào)用本窗體模塊的某個過程，應在此過程前加上_。 A、PrivateB、Static C、DimD、Public 29假定Picture1和Text1分別為圖片框和文本框的名稱，下列不正確的語句是_。 A、Picture1.Print 25B、Debug.print 25 C、Print 25D、T

20、ext1.Print 25 30下列描述中，錯誤的是_。 A、單選按鈕可以接收Click事件 B、當單選按鈕的Value屬性值為True時表示選中 C、在一組單選按鈕中，可以選擇一個，也可以選擇多個 D、復選框中為空白時表示未選中31表示滾動條控件取值范圍最大值的屬性是_。A、ValueB、Max C、LargeChangeD、Max-Min 32要使定時器控件每隔3秒鐘產(chǎn)生一個Timer事件，應將其Interval屬性值設置為_。    A、300 B、3000    C、3 D、3033復選框的Value屬性為

21、1時，表示_。    A、復選框未被選中 B、復選框被選中   C、復選框內(nèi)有灰色的勾D、復選框操作有錯誤34退出For循環(huán)可使用的語句為_。 、Exit For 、Exit Do、End For、End Do 35假定有一個菜單項，取名為MenuItem。為了在運行時使該菜單項失效（變灰），應使用的語句為_。    A、MenuItem.Visible=FalseB、MenuItem.Enabled=False    C、MenuItem.Enabled=True

22、D、MenuItem.Visible=True36窗體的標題欄顯示內(nèi)容由窗體對象的_屬性決定。 、BackColor、BackStyle、Text 、Caption 37設a=“Visual Basic”，下面使b=“Visual”的語句是_。 、b=Left(a,8,12) 、b=Mid(a,8,5)  C、b=Rigth(a,6)  D、b=Left(a,6) 38若要使命令按鈕不可用，則可設置其_屬性為False來實現(xiàn)。 、Value、Cancel、Enabled、Default 39復選框或單選鈕的當前狀態(tài)可通過_屬性來返回或設置。 、Checked、Va

23、lue、Selected、Caption40VB提供_屬性用于控制對象是否可用。 、Default、Cancel、Enabled、Visible得分二、填空題（共20分，每題2分）1表示x是5的倍數(shù)或是9的倍數(shù)的VB邏輯表達式為_。2若要卸載一個窗體，可以使用該窗體的_語句。3在Visual Basic 6.0中，過程有子程序過程和函數(shù)過程，其中_只是執(zhí)行一系列動作沒有返回值。4若定義二維數(shù)組為：Dim W（N，M），則該數(shù)組的元素共有_個。5在中若要讓某對對象獲取焦點，則可通過_方法來實現(xiàn)。6a 和b 中有僅只有一個不為1，相應的Visual Basic邏輯表達式為_。7函數(shù)Ucase（Mi

24、d（"visual basic",8,5）的值為_。8在Visual Basic 中，變量從它的作用范圍來看，可分為全局變量、_和過程級變量。9過程調(diào)用時，參數(shù)傳遞的兩種主要方式是按值傳遞和_。10執(zhí)行下面的語句后，分別輸入1和2，輸出結果是_。 Private Sub Form_Click（） a = InputBox（"1"） b = InputBox（"2"） Print a + b + 1 End Sub得分三、讀程序（共20分，每題4分）1.從計算機輸入三個數(shù),找出中間數(shù)Private Sub FindMidNum( )&#

25、160;     X=INPUTBOX(“PLEASE INPUT THE FIRST NUMBER”)      Y=INPUTBOX(“PLEASE INPUT THE SECOND NUMBER)      Z=INPUTBOX(“PLESSE INPUT THE THIRD NUMBER)      IF（ ）THEN A=X X=Y Y=A     

26、; END IF      IF （ ）THEN PRINT Y      ELSEIF （ ） THEN PRINT Z      ELSE PRINT X END IF  End Sub2. 程序說明:利用一個計時器、一個標簽框和二個命令按鈕制作一個動態(tài)秒表，單擊“開始“命令按鈕，秒表開始計時 ，單擊“結束“命令按鈕， 秒表結束計時，并在標簽框顯示運行時間，如“運行了小時分秒“。 （假設對象的屬性都在程序代碼中設

27、定）。Dim x As LongDim h As Integer, m As Integer, s As IntegerPrivate Sub Form_Load()Form1.Caption = "動態(tài)秒表（小時：分：秒）"Command1.Caption = "開始&S"Command2.Caption = "結束&E"Label1.Alignment = 2   '居中對齊Label1.Caption = "0:0:0"timer1.Interval =_Timer

28、1.Enabled = Falsex = 0End SubPrivate Sub Command1_Click()_End SubPrivate Sub Command2_Click()Timer1.Enabled = Falsex= 0Label1.Caption = "運行了" + Str(h) + "小時" + Str(m) + "分" + Str(s) + "秒"End SubPrivate Sub Timer1_Timer()x = x + 1h=_m = (x Mod 3600) 60s=_(x mod

29、 3600) mod 60_Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)End Sub3. 程序說明: 已知自然對數(shù)的底數(shù)e的級數(shù)表示如下:     e=1+1/1!+1/2!+1/3!+.+1/n!+.本程序利用函數(shù)過程fact()求e，其中絕對值小于1E-8的項被忽略。程序代碼如下:Private Function fact(m As Integer) As Single    ' 求！的函數(shù) 

30、; Dim x As Single, i As Integer  x = 1  For i=1 to m x= _ Next   fact = xEnd FunctionPrivate Sub Form_Click()Dim e As Single, item As SingleDim n As Integere=1 n=_Do  n = n + 1  item=_  e = e + itemLoop  while item >= 1E-8_Form1.Print "e=" eEnd Sub4. 閱

31、讀下面的程序Private Sub Form_Click( )Static Sum As IntegerFor I=1 To 10 Sum= Sum+INext IPrint SumEnd Sub   運行結果：（ ）5.閱讀下面的程序Private Static Sub Command1_Click() Dim x As Integer, s As Integer x = Val(InputBox("請輸入一個正整數(shù)") If x < 5 Then    s = s * x Else   

32、;      s = s + x End If Text1.Text = "s=" + Str(s)End Sub程序運行時連續(xù)三次單擊Command1，且設輸入的數(shù)是5，2和4時，分別寫出文本框Text1.Text的值。運行結果：（ ）得分四、程序設計題（共20分，每題5分）1編程計算自然數(shù)n的階乘。在命令按鈕Commond1的單擊事件過程中用InputBox函數(shù)輸入n，然后計算n的階乘，并將計算結果顯示在窗體上。2用隨機函數(shù)產(chǎn)生10個正整數(shù)，其范圍為10x<100用一維數(shù)組存放，求10個數(shù)中的最大數(shù)和最大

33、數(shù)所在數(shù)組中的下標，在窗體上輸出這10個數(shù)、最大數(shù)和下標。3. 編寫一個計算圓面積的函數(shù)，在文本框Text1中輸入圓半徑r，然后在命令按鈕Command1的單擊事件過程中調(diào)用該函數(shù)計算圓面積，并將計算結果顯示在窗體上。4.一個球從100米高度自由下落，每次下落后反跳回原高度的一半，再落下。求它在第10次落地時，共經(jīng)過多少米？落地10次反彈高度是多少？姓名: 學號: 系別: 年級專業(yè): ( 密 封 線 內(nèi) 不 答 題 )密封線線_ _ 姓名: 學號: 學院: 專業(yè)班級: ( 密 封 線 內(nèi) 不 答 題 )密封線線_ _ （本科）試卷（A卷）2013 - 2014 學年第 二 學期VB答題卡題序一

34、二三四五六七八總 分得分評卷人得分一、選擇題（ 共 40 分，每題 1 分）12345678910111213141516171819202122232425262728293031323334353637383940得分二、填空題（共20分，每題2分）1、 2、 3、 4、 5、 6、 7、 8、 9、 10、 得分三、讀程序（共20分，每題4分）1、 2、 3、 4、 5、 得分四、程序設計題（共20分，每題5分）1、 答：2、 答：姓名: 學號: 學院: 專業(yè)班級: ( 密 封 線 內(nèi) 不 答 題 )密封線線3、 答：4、 答：參考答案及評分標準得分一、選擇題（ 共 40 分，每題 1 分）參考答案12345678910AABDBCDACC11121314151617181920BBDDDBBCDC21222324252627282930ADADAABDDC31323334353637383940BBBABDDC