南京工業(yè)大學(xué)vb期末題庫(kù)10

1、 2009年VB模擬考試一滿分：100分姓名：_1、單項(xiàng)選擇題(本題共計(jì)60分)1、_在用戶的應(yīng)用程序執(zhí)行期間發(fā)生，比如鼠標(biāo)單擊或敲擊鍵盤。 ( )A、方法B、屬性C、事件D、工程2、一只白色的足球踢進(jìn)球門，則白色、足球、踢、進(jìn)球門是_。 ( )A、屬性、對(duì)象、方法、事件B、屬性、對(duì)象、事件、方法C、對(duì)象、屬性、方法、事件D、對(duì)象、屬性、事件、方法3、_是接收用戶鼠標(biāo)或鍵盤輸入的能力。當(dāng)對(duì)象具有_時(shí)，可接受用戶的輸入。 ( )A、事件B、屬性C、焦點(diǎn)D、對(duì)象4、VisualBasic是一種面向_的程序設(shè)計(jì)語(yǔ)言。 ( )A、過(guò)程B、用戶C、方法D、對(duì)象5、能被對(duì)象所識(shí)別的動(dòng)作與可執(zhí)行的活動(dòng)分別稱

2、為對(duì)象的_。 ( )A、方法、事件B、事件、方法C、事件、屬性D、過(guò)程、方法6、VisualBasic是用于開發(fā)_環(huán)境下的應(yīng)用程序的工具。 ( )A、DOSB、WindowsC、DOS和WindowsD、UNIX7、VisualBasic中的窗體文件的擴(kuò)展名是_。 ( )A、.regB、.frmC、.basD、.vbp8、在程序中分別將變量Inta、Bl、St、D定義為整型、布爾型、字符串型和日期型，下列賦值語(yǔ)句在執(zhí)行時(shí)會(huì)出錯(cuò)的是_。 ( )A、Inta=4.6B、Bl=#True#C、St=5 & 123.5D、D=#10/05/01#9、與數(shù)學(xué)表達(dá)式 (ab/3cd) 對(duì)應(yīng)，VB的

3、不正確表達(dá)式是_。 ( )A、a*b/(3*c*d)B、a/3*b/c/dC、a*b/3/c/dD、a*b/3*c*d10、表達(dá)式16/4-25*8/4 MOD 5/2的值為_。 ( )A、14B、4C、20D、211、以下各項(xiàng)中，_不是一個(gè)合法的字符串。 ( )A、"Visual"B、""C、#Basic#D、"等級(jí)考試"12、賦值語(yǔ)句：a=123+MID("123456",3,2)執(zhí)行后，a變量中的值是_。 ( )A、"12334"B、123C、12334D、15713、要判斷&ld

4、quo;月收入在2000元以上（含2000元）且5000元以下（不含5000元）&rdquo;的職工，應(yīng)該使用的邏輯表達(dá)式是_。 ( )A、M>2000 AND M<=5000B、M>2000 Or M<=5000C、M>=2000 AND M<5000D、M&gt;=2000 Or M&lt;500014、語(yǔ)句Print "5*20" 輸出的結(jié)果是_。 ( )A、"5*20"B、出現(xiàn)錯(cuò)誤信息C、5*20D、10015、設(shè)M=3，N=5，P=4.5，Q=2.5，表達(dá)式(M*N+2)/(P-Q)的

5、計(jì)算結(jié)果為_。 ( )A、8B、9C、8.5D、8.016、下列語(yǔ)句中不能正常執(zhí)行的是_。 ( )A、print +32758+10B、print 5+9=15C、print "65"+12D、print "65"&1217、假定變量Logic類型是Boolean，下面賦值語(yǔ)句_是正確的。 ( )A、Logic = TrueB、Logic = .True.C、Logic = # True #D、Logic = 3<418、以下哪個(gè)是合法的變量名_。 ( )A、LenB、TestqwC、6cost_1D、count2s19、下面程序的運(yùn)行結(jié)果

6、是_。Private Sub Command1 Click ( )x=1: y=1For i=1 TO 3x=x+y: y=y+xNext iPrint x;yEnd Sub ( )A、6 6B、5 8C、13 21D、34 3520、VB也提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是_。 ( )A、遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)B、選擇結(jié)構(gòu)、過(guò)程結(jié)構(gòu)、順序結(jié)構(gòu)C、過(guò)程結(jié)構(gòu)、輸入、輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)D、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)21、下列程序運(yùn)行后的輸出結(jié)果是_。Private Sub Command1_Click()For i=1 TO 3For j=0 TO i-1k=k+1next

7、 jnext iprint kEnd Sub ( )A、6B、5C、4D、322、下列循環(huán)能正常結(jié)束循環(huán)的是_。 ( )A、i=5<BR /> Do<BR /> i=i+1<BR /> Loop Until i&lt;0B、i=1<BR /> Do<BR /> i=i+2 <BR /> Loop Until i=10C、i=10<BR /> Do<BR /> i=i+1<BR /> Loop Until i&gt;0D、i=6<BR /> Do<BR /

8、> i=i-2<BR /> Loop Until i=123、下列程序的輸出結(jié)果是_。<br />Dim y As Integer<br />y=10<br />Do While y&lt;&gt;0<br /> y=y-1<br />Loop<br />Print &quot;y=&quot; y ( )A、y=0B、y=1C、y=隨機(jī)值D、y=&ndash;124、執(zhí)行以下語(yǔ)句后，a的值為_。<BR />Dim a As Integer<BR

9、/>a=1<BR />Do Until a=100 <BR /> a=a+2 <BR />Loop ( )A、99B、100C、溢出D、10125、表達(dá)式X+1&gt;X是_. ( )A、算術(shù)表達(dá)式B、非法表達(dá)式C、字符串表達(dá)式D、關(guān)系表達(dá)式26、計(jì)算機(jī)算法可以分為兩大類：一類是_算法，另一類是_算法。 ( )A、計(jì)算機(jī)輔助設(shè)計(jì)、財(cái)務(wù)B、數(shù)值計(jì)算、非數(shù)值計(jì)算C、步驟管理、通信D、排序、查找27、VisualBasic認(rèn)為下面_組變量是同一個(gè)變量。 ( )A、A1和a1B、Sum 和SummaryC、Aver 和 AverageD、A1 和A_1

10、28、下面語(yǔ)句運(yùn)行后的輸出結(jié)果是_.Private Sub Command1_Click()x=0Do While x<10x=x+1: x=x*xLoopPrint xEnd Sub ( )A、16B、19C、20D、2529、下面程序段運(yùn)行后，顯示的結(jié)果是_。Dim xIf x Then Print x Else Print x +1 ( )A、1B、0C、-1D、顯示出錯(cuò)信息30、有如下程序：Private Sub Command1_Click( )score=65select Case scoreCase Is<60a$="F"Case 60 To 69

11、a$="D"Case 70 To 79a$="C"Case 80 To 89a$="B"Case elsea$="A"End SelectMsgBox a$End Sub程序運(yùn)行后，消息對(duì)話框中顯示的內(nèi)容為_。 ( )A、AB、BC、CD、D31、在過(guò)程中有語(yǔ)句ForI=N1 To N2 Step N3，在該循環(huán)體內(nèi)有下列四條語(yǔ)句，其中_會(huì)影響循環(huán)執(zhí)行的次數(shù)。 N1=N1+I N2=N2+N3 I=I+N3 N3=2*N3 ( )A、B、C、D、32、下列程序Private Sub Command1_Click(

12、)a=InputBox("請(qǐng)輸入")b=InputBox("請(qǐng)輸入")Print a+bEnd Sub運(yùn)行時(shí)輸入3和4輸出的結(jié)果是 _ 。 ( )A、7B、34C、3+4D、出錯(cuò)33、如下二維數(shù)組聲明語(yǔ)句，_正確。 ( )A、Dim a3，4 As IntegerB、Dim a(3，4) As IntegerC、Dim a(n，n) As IntegerD、Dim a(34) As Integer34、在窗體模塊的通用聲明處用下面的語(yǔ)句聲明變量、數(shù)組，正確語(yǔ)句有_個(gè)。Public A(5) As IntegerPublic N As IntegerPub

13、lic St As StringPrivate b() As Integer ( )A、2B、3C、4D、135、在窗體的通用聲明處有語(yǔ)句Dim A() As Single，以下在某事件過(guò)程中重定義此數(shù)組的一組正確語(yǔ)句是：_。 ( )A、ReDim A(3,3)<BR /> ReDim A(4,4) As IntegerB、ReDim A (3,3)<BR /> ReDim Preserve A (4,4)C、ReDim A(3)<BR /> ReDim A(3,3) As IntegerD、ReDim A (3,3)<BR /> ReDim P

14、reserve A(3,4)36、對(duì)窗體編寫如下代碼：Option Base 1Private Sub Command1_Click( )a=Array(237,126,87,48,498)m1=a(1)m2=1For i=2 To 5If a(i)>m1 Thenm1=a(i)m2=iEnd IfNext iPrint m1;m2End Sub程序運(yùn)行后，按回車鍵，輸出結(jié)果為_。 ( )A、48 4B、237 1C、498 5D、498 437、下列有關(guān)數(shù)組的說(shuō)法中，不正確的是_。 ( )A、在窗體模塊中不可以定義全局?jǐn)?shù)據(jù)組B、可以使用Erase語(yǔ)句釋放所有數(shù)組所占據(jù)的存儲(chǔ)儲(chǔ)空間C、語(yǔ)

15、句Dim X(3.6+2)As Integer定義了一個(gè)維上界是6的一維的整型數(shù)組D、形參數(shù)組的類型可以是定長(zhǎng)符串類型38、在窗體上添加一個(gè)命令按鈕，名為Command1，事件過(guò)程如下。執(zhí)行結(jié)果是_。Sub pb(b( ) As Integer)For i=1 To 4B(i)=2*iNext iEnd SubPrivate Sub Command1_Click( )Dim a(1 To 4) As Integera(1)=5:a(2)=6: a(3)=7:a(4)=8pb aFor i=1 To 4Print a(i);Next iEnd Sub ( )A、2 4 6 8B、1 3 5 7C

16、、3 6 6 12D、4 8 12 1639、當(dāng)發(fā)生Command1_Clik事件后，下列程序的輸出結(jié)果是_。<br />Dim i As Integer<br />Dim a(10) As Integer<br />For i=9 To 0 Step&ndash;1<br /> a(i)=10&ndash;i<br />Next i<br />Print a(2);a(5);a(8) ( )A、2 5 8B、7 4 1C、8 5 2D、3 6 940、在窗體模塊的通用聲明處用下面的語(yǔ)句聲明變量、數(shù)組，正確

17、語(yǔ)句有_個(gè)。Public A(5) As IntegerPublic N As IntegerPublic St As StringPrivate b() As Integer ( )A、2B、3C、4D、141、以下有關(guān)數(shù)組的說(shuō)明中，錯(cuò)誤的是_。 ( )A、根據(jù)數(shù)組說(shuō)明的方式，可將數(shù)組分為動(dòng)態(tài)數(shù)組和靜態(tài)數(shù)組。B、在過(guò)程中，不能用Private語(yǔ)句定義數(shù)組。C、利用ReDim語(yǔ)句重新定維時(shí)，不得改變已經(jīng)說(shuō)明過(guò)的數(shù)組的數(shù)據(jù)類型。D、數(shù)組重新定維后，原有的數(shù)組元素內(nèi)容將不予保留。42、當(dāng)發(fā)生Command1_Click事件后，程序輸出結(jié)果是_。<br />Option Base 1&l

18、t;br />Private Sub Command1_Click()<br />Dim a(4, 4) As Integer,i As Integer,s As Integer<br />s=0<br />Fori=1 To 4<br /> For j=1 To 4<br /> a(i, j) = (i-1)*4+j*2<br /> Next j<br />Next i<br />For i = 1 To 4<br /> s=s+a(i, i)<br />Next i

19、<br />Print s<br />End Sub ( )A、28B、32C、30D、4443、在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程：Option Base 1Private Sub Command1_Click( )Dim a As Varianta = Array(1,2,3,4)j = 1For i = 4 To 1 Step -1s = s + a(i)*jj = j * 10Next iPrint sEnd Sub運(yùn)行上面的程序，單擊命令按鈕，其輸出結(jié)果是_。 ( )A、4321B、12C、34D、123444、如下二維數(shù)組聲明語(yǔ)句，_正確。 ( )

20、A、Dim a3，4 As IntegerB、Dim a(3，4) As IntegerC、Dim a(n，n) As IntegerD、Dim a(34) As Integer45、運(yùn)行以下程序段，輸出結(jié)果是<u> </u>。<br />Dim a(1 To 10)<br />Dim p(1 To 4)<br />k = 5<br />For i = 1 To 4<br />p(i) = i * 2<br />Next i<br />For i = 1 To 4<br />

21、k = k + p(i) * 2<br />Next i<br />Print k ( )A、48B、32C、30D、4546、當(dāng)發(fā)生Command1_Clik事件后，下列程序的執(zhí)行結(jié)果是_。<br />Private Sub Command1_Click()<br /> Dim a<br /> a = Array(1, 2, 3, 4, 5)<br /> For i = 1 To 4<br /> Print a(i) - a(i&ndash;1);<br /> Next i<br /

22、>End Sub ( )A、1 1 1 1 1B、1 1 1 1C、1 1 1D、2 2 247、以下有關(guān)Sub過(guò)程與Function過(guò)程的區(qū)別，正確的是_。 ( )A、Sub過(guò)程可以使用Call語(yǔ)句或直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以B、Function過(guò)程可以有形參，Sub過(guò)程不能有形參C、兩種過(guò)程參數(shù)傳遞方式不同D、Sub過(guò)程沒(méi)有返回值，F(xiàn)unction過(guò)程能返回值48、<font size="2"><strong><font face="Times New Roman">在語(yǔ)句Public

23、Sub Sort(i As Integer)中i是一個(gè)按_傳遞的參數(shù)。</font> </strong></font> ( )A、<strong><font size="2">地址</font></strong>B、<strong><font size="2">值</font></strong>C、<strong><font size="2">變量</font><

24、/strong>D、<strong><font size="2">常量</font></strong>49、<font face="宋體" size="2"><strong>如果在被調(diào)用過(guò)程中改變了形參值，只影響副本，而不會(huì)影響實(shí)參的變量本身，這種參數(shù)傳遞方式稱為<u>&#160;&#160;&#160;&#160;&#160;&#160;&#160; </u>傳遞。</s

25、trong></font> ( )A、<strong><font face="宋體" size="2">按值</font></strong>B、<strong><font face="宋體" size="2">按地址</font></strong>C、<strong><font face="宋體" size="2">ByRef</fo

26、nt></strong>D、<strong><font face="宋體" size="2">按形參</font></strong>50、下列定義Sub過(guò)程的語(yǔ)句中，正確的語(yǔ)句是_。 Private Sub Test(St As String * 8) Private Sub Test(Sarray( ) As String * 5) Private Sub Test(Sarray( ) As String) Private Sub Test(St As String) ( )A、B、C、

27、D、51、<font size="2"><strong>可以在窗體模塊的通用聲明段中聲明的是_。</strong></font> ( )A、<strong><font size="2">全局變量</font></strong>B、<strong><font size="2">全局常量</font></strong>C、<strong><font size="2&qu

28、ot;>全局?jǐn)?shù)組</font></strong>D、<strong><font size="2">全局用戶自定義類型</font></strong>52、窗體的Name屬性為Frm1，在窗體模塊通用聲明處和過(guò)程Sub1中分別用Public K As Integer,Dim K As Integer聲明了兩個(gè)同名變量K，則在過(guò)程Sub1中要訪問(wèn)全局變量K，可采用 _。 ( )A、Frm1.KB、Form.KC、Form1.KD、K53、<font face="Times New Ro

29、man" size="2"><strong>假定已定義了一個(gè)過(guò)程Sub Add(a As Single, b As Single)，則正確的調(diào)用語(yǔ)句是_。</strong></font> ( )A、<font face="Times New Roman" size="2"><strong>Add (12 , 12)</strong></font>B、<strong><font face="Times New

30、Roman" size="2">Call Add( 2 * x , Sin(1.57) ) </font></strong>C、<strong><font face="Times New Roman" size="2">Call Add x , y </font></strong>D、<strong><font face="Times New Roman" size="2">Call

31、Add(12 ,12, x)</font></strong>54、<font face="Times New Roman" size="2"><strong>在Cmdl_C1ick事件中有效的地址傳遞的調(diào)用語(yǔ)句是<u>&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&

32、amp;#160;&#160;&#160; </u>&#160;。<br/>Public Sub Fl(n%)<br/>&#160; <br/>&#160; n =3*n+4<br/>&#160; <br/>End Sub<br/>Private Sub Cmdl_Click()<br/>&#160; Dim n%, m% <br/>&#160; n=3 :m &#160;=4<br/>&#160

33、; &#160;&#160; <font color="#006633">'調(diào)用F1語(yǔ)句</font><br/>End Sub</strong></font> ( )A、<strong><font face="Times New Roman" size="2">F1 n+m </font></strong>B、<strong><font face="Times New Roma

34、n" size="2">F1 m </font></strong>C、<strong><font face="Times New Roman" size="2">F1 5 </font></strong>D、<strong><font face="Times New Roman" size="2">F1 m+5</font></strong>55、在窗體上畫一個(gè)

35、名稱Command1的命令按鈕和一個(gè)名稱為Text1的文本框，然后編寫如下程序：Private Sub Command1_Click()Dim x, y, z As Integerx = 5: y = 7: z = 0Text1.Text = ""Call p1(x, y, z)Text1.Text = Str(z)End SubPrivate Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + bEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是_。 ( )A、0B、12

36、C、Str(z)D、沒(méi)有顯示56、名為sort的Sub子過(guò)程的形式參數(shù)為一數(shù)組，以下的定義語(yǔ)句中正確的是_。 ( )A、Private Sub sort(A( )As Integer)B、Private Sub sort(A(10)As Integer)C、Private Sub sort(By Val A( ) As Integer)D、Private Sub sort(A( , )As Integer)57、在調(diào)用Sub過(guò)程或Function過(guò)程時(shí)，采用_傳送相應(yīng)過(guò)程的變量名、數(shù)組名、常數(shù)或表達(dá)式。 ( )A、形式參數(shù)B、實(shí)際參數(shù)C、對(duì)象參數(shù)D、數(shù)組參數(shù)58、<strong>&

37、lt;font face="Times New Roman" size="2">要從自定義對(duì)話框Form2中退出，可以在該對(duì)話框的“退出”按鈕的Click事件過(guò)程中使用的語(yǔ)句是<u>&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;

38、&#160;&#160;&#160; </u>。</font></strong> ( )A、<span lang="EN-US"><font face="Times New Roman" size="2"><strong>Unload Form2</strong></font> </span>B、<span lang="EN-US"><font face="

39、Times New Roman" size="2"><strong>Hide Form2</strong></font></span>C、<span lang="EN-US"><font face="Times New Roman" size="2"><strong>Unload.Form2</strong></font></span>D、<span lang="E

40、N-US"><font face="Times New Roman" size="2"><strong>Form2.Unload</strong></font></span>59、下面子過(guò)程語(yǔ)句說(shuō)明合法的是_。 ( )A、Sub f1(ByVal n%()B、Sub f1(n%)As IntegerC、Function f1%(f1%)D、Function f1(ByVal n%)60、在多窗體的應(yīng)用程序中，當(dāng)前窗體模塊的Form_Click事件過(guò)程中包含如下語(yǔ)句，單擊該窗體，其

41、中_一定可以將Hello顯示在當(dāng)前窗體上。 ( )A、Forml.PrintHelloB、Me.PrintHelloC、Debug.PrintHelloD、Form2.PrintHello2、填空題(本題共計(jì)40分)1、已知A=7.5，B=2，C=-3.6，表達(dá)式 a>b and c>a or a<b and not c>b的值為_ false _.2、2Sinx+3Cosx+Tan2x+LnxLny的VB表達(dá)式為_2*sin(x)+3*cos(x)+tan(2*x)+log(x)*log(y)_3、下面程序的功能是判斷100999之間的所有素?cái)?shù)，所謂素?cái)?shù)是指只能被1和

42、它本身整除的數(shù)。完善下列程序。Private Sub Form_Click( )Dim i As IntegerDim k As integerFor i=100 To 999For k=2 To i-1If _ i Mod k=0 _ThenExit For _End IfNext kIf _ k=I _ThenPrint iEnd IfNext iEnd Sub4、輸入任意長(zhǎng)度的字符串，要求將字符順序倒置，例如，將輸入的"ABCDEFG"變換成"GFEDCBA"。Private Sub Command1_Click()Dim a$,i%,c$，d$a

43、=inputBox$("輸入字符串")n=_ Len(a) _For I=1 To _ n/2_c=Mid(a,I,1)Mid(a,I,1)=_ Mid(a,n-i+1)_ Mid(a,n-i+1)_=cNext iPrint aEnd Sub5、下列程序的運(yùn)行結(jié)果為_2 2_。Private Sub Command1_Click( )x = 1For k = 1 To 3If k = 1 Then a = x * xIf k<= 2 Then a = x * x+1If k >= 3 Then a = x * x+2Print a;Next kEnd Sub6、已知數(shù)組A(4，4)，各個(gè)元素在運(yùn)行程序時(shí)，被賦值并打印，形成四階方陣。程序執(zhí)行后，產(chǎn)生一個(gè)轉(zhuǎn)置矩陣(即行列互換)，仍放在數(shù)組A中，并打印出來(lái)。請(qǐng)完善下列程序。例如：1 2 3 4 ->1 1 1 11 2 3 4 ->2 2 2 21 2 3 4 ->3 3 3 31 2 3 4 ->4 4 4 4Private Sub Command1_Click( )Dim a(4,4)For k=1 To 4For j=1 To 4a(k,j)=j