南京工業(yè)大學VB考試[1]

1、vbzj523 滿分：60分 姓名：_  一、單項選擇題(本題共計40分) C 1、_在用戶的應用程序執(zhí)行期間發(fā)生，比如鼠標單擊或敲擊鍵盤。   (  ) A、方法 B、屬性 C、事件 D、工程 2、執(zhí)行語句 X2Print Format(1234.567,“#,#0.00”) 后，輸出結(jié)果是_。   (  ) A、1234.57 B、1,234.

2、57 C、1，234.567 D、1,234.56 X3、想要設(shè)置窗體狀態(tài)為不顯示控制菜單，應設(shè)置下列_屬性。   (  ) A、Style B、Picture C、ControlBox D、Caption D 4、用于字符串連接的運算符是_。   (  ) A、& B、+ C、And D、A、B選項皆可 D 5、VisualBasic是一種面向_的程序設(shè)計語

3、言。   (  ) A、過程 B、用戶 C、方法 D、對象 B6、執(zhí)行語句"Print format(5459.478,"#,#0.00")"，正確的輸出結(jié)果是_。   (  ) A、5459.48 B、5,459.48 C、5,459.478 D、5,459.47 7、執(zhí)行下列程序，輸出結(jié)果為_。 Private Sub

4、60;Command1_Click( ) Dim b As Single B=2 / 3 Print bEnd Sub   (  ) A、0.6666666666667 B、1 C、0 D、0.6666667 B 8、VisualBasic中的標準模塊文件的擴展名是_。   (  ) A、.reg B、.frm

5、0;C、.bas D、.vbp B 9、下面程序的內(nèi)層循環(huán)次數(shù)是_。 For i=1 TO 3  For j=1 TO i  For k=j TO 3  .  Next k  Next j Next i   (  ) A、3 B、14 C、9 D、21 10、以下有關(guān)對象屬性的說法中錯誤的

6、是_。   (  ) A、所有的對象都具有Name(名稱)屬性 B、只能在執(zhí)行時設(shè)置或改變的屬性為執(zhí)行時屬性 C、對象的某些屬性只能在設(shè)計時設(shè)定，不能使用代碼改變 D、Enabled屬性值設(shè)為False的控件對象在窗體上將不可見 C 11、下列4個表達式中，不能對Single類型變量x(正數(shù))的第三位小數(shù)正確地進行四舍五入的是   (  ) A、Format(x,"#.00") B、Int(100*(x+0

7、.005)/100 C、CInt(100*(x+0.005)/100 D、Fix(100*(x+0.005)/100 12、以下語句的輸出結(jié)果是_。 print Format s(3678.234,"000，000，000")   (  ) A、000,003.678  B、003,678.23  C、003,678,234  D、000,003,678 13、當用戶單擊命令按鈕時，_屬性可以使得命令按鈕對激發(fā)事件無

8、效。   (  ) A、Name B、Enable C、Default D、Cancel14、語句x=x+1的正確含義是_.   (  ) A、變量X的值與X+1的值相等  B、將變量X的值存在X+1中去 C、將變量X的值加1后賦給變量X D、變量X的值為1 X15、要想改變窗體邊框線型，可使用的屬性是_。   (  ) A、FonStyle

9、60;B、BorderStyle C、BackStyle D、Border D 16、在窗體中添加一個命令按鈕，并編寫如下程序代碼： Private Sub Command1_Click( ) Dim y As Integer y = 0 Do While y<7  y=y+3 Loop MsgBox y End Sub 程序運行后，消息對話框中顯示_

10、。   (  ) A、6 B、7 C、8 D、9 17、如果單擊一個當前沒有被選中的復選框，其他已被選中的復選框會處于_ 狀態(tài)。   (  ) A、不選中 B、不顯示 C、禁止 D、選中 C 18、以下_程序段可以實施X，Y變量值的變換.   (  ) A、Y=X:X=Y B、Z=X:Y=Z:X=Y C、Z=

11、X:X=Y:Y=Z D、Z=X:W=Y:Y=Z:X=Y 19、在窗體上畫一個命令按鈕名為Command1，然后編寫如下事件過程: Option Base 0 Private Sub Command1_Click()  Dim city As Variant  city = Array("Beijing", "Shanghai", "NewYork", &qu

12、ot;London")  Print city(4) End Sub 程序運行后，屏幕顯示_   (  ) A、Beijing Shanghai NewYork London B、London C、出錯 D、空白 20、下述語句段運行時的顯示結(jié)果是_。 CLS x=2.34+8 print Len(x)   (  )&

13、#160;A、5  B、10  C、11  D、非法使用，無輸出 21、當文本框的ScrollBars屬性設(shè)置了非零值，卻沒有效果，原因可能是_。   (  ) A、文本框中沒有內(nèi)容 B、文本框的MultiLine屬性為False C、文本框的MultiLine屬性為True D、文本框的Locked屬性為True 22、表達式（73+1）*(185-1)的值是_.   (  ) A、8.67&#

14、160;B、7.8 C、6 D、6.67 23、下面_是合法的單精度型變量。   (  ) A、num! B、sum% C、xinte$ D、mm 24、假設(shè)如下的Sub過程： Sub CalCul(a As Integer, b As Integer)  a=a/b  b=a*b End Sub 在窗體上畫一個命令按鈕，然后編寫如下事件過程

15、60;Private Sub Command1_Click() Dim x As Single, y as Single x=8 y=5 CalCul x,y Print x,y End Sub 程序運行后，單擊命令按鈕，輸出結(jié)果為   (  ) A、8  5  B、1.6  8.0  C、2.0&

16、#160; 8.0  D、2  825、下列語句中的語句可以用來正確地聲明一個動態(tài)數(shù)組。   (  ) A、Private A(n) As Integer  B、Dim A() As Integer  C、Dim A(,) As Integer D、Dim A(1 to n) 26、只有當一個對象的_和_屬性為True時，它才能獲得焦點。

17、   (  ) A、Enabled; Visible B、Visible; Caption C、Visible; Name D、Enabled; Caption 27、用復制粘貼的方法建立了一個命令按鈕數(shù)組Command1，以下對該數(shù)組的說法錯誤的是_。   (  ) A、命令按鈕的所有Caption屬性都是Command1 B、在代碼中訪問命令按鈕只需使用名稱Command1 

18、;C、命令按鈕的大小都相同 D、命令按鈕共享相同的事件過程 28、結(jié)構(gòu)化程序設(shè)計方法的核心是規(guī)定了三種基本結(jié)構(gòu)：_結(jié)構(gòu)、分支結(jié)構(gòu)、循環(huán)結(jié)構(gòu)。   (  ) A、條件 B、順序 C、當型 D、邏輯 29、在下列說法中，正確的是_。   (  ) A、通過適當?shù)脑O(shè)置，可以在程序運行期間，讓時鐘控件顯示在窗體上 B、在列表框中不能進行多項選擇 C、在列表框中能夠?qū)㈨椖堪醋帜疙樞驈拇蟮叫∨帕?#160;D

19、、框架也有Click和DblClick事件 30、下面_是不合法的整常數(shù)。   (  ) A、100  B、&O100  C、&H100  D、%100 31、VB也提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是_。   (  ) A、遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu) B、選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu) C、過程結(jié)構(gòu)、輸入、輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu) D、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)

20、0;32、下列語句執(zhí)行后的輸出結(jié)果是_。 (一個方格表示一個空格) Wage = 26 Print "工資" Print Wage   (  ) A、工資26  B、工資26  C、“工資”26  D、“工資”26 33、任何控件都具有_屬性。   (  ) A、Text B、Caption C、Name D

21、、ForeColor 34、表達式(-1)*Sgn(-100+Int(Rnd*100)的值是_。   (  ) A、隨機數(shù) B、0 C、1 D、-1 35、執(zhí)行以下語句后，a的值為_。 Dim a As Integer a=1 Do Until a=100 a=a+2 Loop   (  ) A、99 B、100

22、60;C、101 D、溢出 36、<span lang="EN-US">Visual Basic</span><span>是一種面向<u><span lang="EN-US"><span>&#160;&#160;&#160;&#160;&#160;</span><span>&#160;&#160;&#160;&#160; <

23、/span></span></u>的程序設(shè)計語言。</span>   (  ) A、<span>過程</span> B、<span>用戶</span> C、<span>方法</span> D、<span>對象</span> 37、VB也提供了結(jié)構(gòu)化程序設(shè)計的三種基本結(jié)構(gòu)，這三種基本結(jié)構(gòu)是_。   (  )

24、60;A、遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu) B、選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu) C、過程結(jié)構(gòu)、輸入輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu) D、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu) 38、所謂_就是使某個對象進入活動狀態(tài)（又稱激活）的一種操作或動作。   (  ) A、事件 B、屬性 C、方法 D、對象 39、要從自定義對話框Form2中退出，可以在該對話框的&ldquo;退出&rdquo;按鈕的Click事件過程中使用的語句是_。   (

25、60; ) A、Unload Form2 B、Hide Form2 C、Unload.Form2 D、Form2.Unload 40、下列語句正確的是_。   (  ) A、If K<3*N And K>N Then N=K3 B、If K<3*N And K>N Then N=K3 C、If K<

26、3*N ：K>N Then N=K3 D、If K<3*N And K>N Then N=K*3 二、填空題(本題共計20分) 1、執(zhí)行下面的程序，單擊窗體后在窗體上顯示的第一行結(jié)果是 _，第三行結(jié)果是_。 Private Sub Command1_Click( ) s1="B" For i = 1 To 3  s2=L

27、Case(s1) s1=s1 & s2 s=s & s1 Print s s1=Chr(Asc(s1)+i) Next i End Sub 2、a=100 Do s=s+a a=a+1 Loop while a>120 Print a 3、要把在Label控件中顯示的文字顏色設(shè)置為紅色，應設(shè)置Label控件的 _(1)_屬性。 

28、;4、已知下列程序運行結(jié)果是ABCD，請將程序補充完整。 Private Sub Command1_Click( ) a="" For n=65 To 68  a=a+_ Next n Print a End Sub 5、某人編寫如下函數(shù)來判斷a是否為素數(shù)，若是，則函數(shù)返回True；否則返回False。 Function prime(a As Integer)

29、0;As Boolean Dim k As Integer, isprime As Boolean If a < 2 Then isprime = False Else isprime = True k = 2 Do While k < a / 2 And ispri

30、me If a Mod k = 0 Then isprime = False Else k = k + 1 End If Loop End If prime = isprime End Function 在測試時發(fā)現(xiàn)有1個非素數(shù)也被判斷為素數(shù)，這個被錯判的數(shù)是_ 6、找出110000之間的同構(gòu)數(shù)。所謂同構(gòu)數(shù)，是指此數(shù)的

31、平方數(shù)的最后幾位與該數(shù)相等。 例如，25的平方為625，25是同構(gòu)數(shù)。完善下列程序。程序代碼如下： Private Sub Command1_Click( ) Dim i As Integer, y As Long For x = 1 To 1000 y = x * x If _(1)_ Then Print x

32、60;End If Next x End Sub 7、有下列程序： Private Sub Command1_Click( ) x$ = "Apply" y$ = "Action" z$ = "Study" z$ = Left$(x$,4)+Mid(y,4,1)+LCase$(z)+""+z$

33、60;Print z$ End Sub 運行后窗體上顯示的是_ 。 8、下列程序的功能是輸出如下數(shù)列的前20項，按每行5個數(shù)的形式輸出。 1，1，2，3，5，8，13,. Dim a As Integer,b As Integer Dim i As Integer a=1:b=1:i=3 Print a,bDo While(i<=20) c=a+b t=b

34、60;b=a+b _(1)_ Print c, If_(2)_ Then Print End If _(3)_Loop 9、執(zhí)行下面的程序，在窗體上顯示的輸出結(jié)果的第一行是_(1)_，第二行是_(2)_。 Option Explicit Private Sub Form_Click() Dim s As String, i As Integer, flag 

35、As Boolean s = "THIS IS A BOOK" s = LCase(s) Print s flag = True For i = 1 To Len(s) If Mid(s, i, 1) = " " Then flag = T

36、rue ElseIf flag Then s = Left(s, i - 1) & UCase(Mid(s, i, 1) & Right(s, Len(s) - i) flag = False End If Next i Print s End Sub 10、有如下程序： 

37、Private Sub Command1_Click( ) a=Val(InputBox("請輸入") b=Val(InputBox("請輸入") x=a+b If a>b Then x = a-b Text1.Text=x End Sub 運行后，從InputBox對話框中連續(xù)輸入3和4，文本框中顯示的是 _ ；若連續(xù)輸入4和3，文本框中又顯示的是_。 11、

38、下列程序的運行結(jié)果為_。 Private Sub Command1_Click( ) x = 1 For k = 1 To 3 If k = 1 Then a = x * x If k<= 2 Then a = x * x+1 If k >= 3 Then a = x * x+2 Print a; Next k End Sub 12、表示"A+B+C大于等于255