鄭州大學VB模擬題

1、【HNCE網(wǎng)上考試系統(tǒng) v9.6】 本套軟件使用權屬于：鄭州大學考試課程: 考試時間:90分鐘 考場:第一考場 考試日期:考號：20113160128 姓名：剩余時間：89:45保存交卷退出幫助窗體頂端本卷共有3道大題:窗體底端一、單項選擇題（50道小題，共50分）1、已知x=2, y=9, z=4，邏輯表達式x>y OR z>x AND NOT z>y的值是_。（1分）A、TrueB、-1C、0D、False2、Print Format(1234.234, "#.#"); Format(1234.234, "#.#")的顯示結果是_。

2、（1分）B、123.23400 1234.234C、123.23400 1234.233、以下關于InputBox函數(shù)的敘述中，錯誤的是_。（1分）A、InputBox函數(shù)的“提示信息參數(shù)”不能缺省B、每執(zhí)行一次InputBox函數(shù)，只能輸入一個值C、InputBox 函數(shù)的返回值是數(shù)值型的D、要保存InputBox函數(shù)的返回值必須賦予一個變量4、以下不合法的常量是_。（1分）A、102B、100C、100.0D、10E+015、程序如下：k = 0: Do Until k > 10: k = k + 1: Loop的循環(huán)體執(zhí)行次數(shù)是_。（1分）A、9B、10C、11D、無數(shù)次6、設a=

3、3，b=5，則以下表達式值為假的是_。（1分）A、a>=b And b> l0B、(a>b) Or (b>2)C、(a<0) or (b>0)D、(5>a) And (b>2)7、abc，abc!，abc$，abc#分別聲明abc是_。（1分）A、整型、單精度、字符串、雙精度變量B、整型、整型、字符串、雙精度變量C、單精度、整型、字符串、雙精度變量D、整型、雙精度、字符串、雙精度變量8、文本框中的ScrollBars屬性已設置為 3-Both，但卻沒有水平和垂直滾動條的效果，原因可能是_。（1分）A、文本框中沒有內容B、文本框的MultiLine

4、屬性為FalseC、文本框的MaxLength屬性為0D、文本框的Locked屬性是True9、下面四個語句中，正確的賦值語句是_。（1分）A、a = a + cB、a + c = aC、c + a = aD、a c = a10、窗體上有一個文本框和一個命名按鈕，當向文本框中輸入一個字符時，命令按鈕的標題設置為“計算機考試”。下面正確的事件過程為_。（1分）A、Private Sub Command1_Click(): Command1.Caption = "計算機考試": End Sub B、Private Sub Command1_Click(): Text1 = &q

5、uot;計算機考試": End SubC、Private Sub Text1_Change(): Command1.Caption = "計算機考試": End SubD、Private Sub Text1_Click(): Text1.Caption = "計算機考試": End Sub11、運行程序：x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x的值是_。（1分）A、26B、27C、38D、5712、啟動Visual Basic后，VB為用戶新建立的第一個工程的名字是_。（1分）A、窗體1B

6、、工程C、窗體D、工程113、下列敘述中，正確的是_。（1分）A、工程文件（.vbp）應用程序可以在任何計算機上運行B、打開一個工程文件，系統(tǒng)自動裝入與該工程有關的窗體文件C、VB工程文件中可以沒有窗體文件D、退出VB系統(tǒng)前要保存新創(chuàng)建的應用程序，只需保存工程文件（.vbp）即可14、若要選擇Text對象的Text1_KeyPress事件，可以_。（1分）A、在屬性窗口中選擇B、在工程資源管理器窗口中選擇C、在代碼設計窗口中利用對象列表框、過程列表框選擇 D、在窗體設計窗口中雙擊Text1對象15、Cls方法可以清除窗體或圖片框中的_。（1分）A、在設計階段使用Picture設置的背景位圖B、

7、在設計階段放置的控件C、在運行階段產生的圖形和文字D、以上全部內容16、比較兩個數(shù)中較大的數(shù)的程序段，錯誤的是_。（1分）A、IF x >y Then max=x Else max=yB、max=IIF(x>y , x, y)C、IF x >y Then max=x : max=yD、max=x: If x< y Then max=y 17、窗體上有一個標簽Label1和一個命名按鈕Command1，當程序運行時每單擊一次命令按鈕，標簽就向右移動一定距離。在Command1_Click()中能完成這個功能的命令為_。（1分）A、Label1.Left = 100B、La

8、bel1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 10018、能產生10，32之間隨機整數(shù)的函數(shù)表達式為_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rnd*23)+1119、不屬于一個工程文件（*.vbp）里的文件是_。（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件20、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i &g

9、t; 4，執(zhí)行后s的值是_（1分）A、10B、11C、12D、1521、與傳統(tǒng)的程序設計語言相比較，Visual Basic最突出的特點是_。（1分）A、結構化的程序設計B、數(shù)據(jù)處理C、面向對象的可視化編程D、中文支持22、能夠盛放其他控件，而且是最基本的對象是_。（1分）A、窗體B、圖像C、標簽D、文本23、窗體設計器是用于設計_。（1分）A、窗體的代碼B、對象的屬性C、應用程序的代碼D、應用程序的界面24、如果VB環(huán)境中缺少某個窗口，一般應從主菜單_的下拉菜單中找到相應的激活命令。（1分）A、編輯B、文件C、視圖D、調試25、在下列語句中，正確的是_。（1分）A、Text1.Text+Te

10、xt2.Text=Text3.TextB、Command1.Name="cmdok"C、Label1.Caption=4567D、x=InputBox(please input)26、執(zhí)行語句age = InputBox("請輸入數(shù)值", "年齡輸入框", "38")，如果從鍵盤上輸入數(shù)值20并按回車鍵，則下列敘述中,不正確的敘述是_。（1分）A、變量Age的值是數(shù)值20B、對話框標題欄中顯示的是"年齡輸入框"C、對話框的默認值是38D、對話框的提示文字為"請輸入數(shù)值"27、

11、Print DateDiff("m", #1/28/2004#, #1/31/2004#)的輸出結果是_。（1分）A、OB、1C、-1D、228、在下列符號常量的聲明中，_是不合法的。（1分）A、Const a As Single = 2.6B、Const a As Integer = "ab"C、Const a As Double = 2 * 2D、Const a = "OK"29、執(zhí)行程序段：Const c$ = "Henan": c$ = "Zhengzhou": c$ = "D

12、axue": Print c$，輸出的結果是_。（1分）A、HenanB、ZhengzhouC、DaxueD、顯示出錯信息30、m、n是整數(shù)，且n>m，在以下4個語句中，能將x賦值為一個mn之間（含m ,n）的任意整數(shù)，即滿足mxn的是_。（1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m31、方法Print "等級""考試"，輸出的結果是_。（1分）A、等級考試B、等級;考試C、&quo

13、t;等級考試"D、"等級""考試"32、下列數(shù)據(jù)中，_是日期型數(shù)據(jù)。（1分）A、"01/30/2004"B、Date("01/30/2004")C、#01/30/2004#D、01/30/200433、下列選項中，_不是字符串常量。（1分）A、"你好"B、""C、"True"D、#False#34、執(zhí)行程序段：a = 6: b = 8: F = Sqr(a * a + b * b): Print F，輸出的結果是_。（1分）A、6B、8C、10D

14、、1435、InputBox函數(shù)返回值的類型為_。（1分）A、數(shù)值B、字符串C、變體D、數(shù)值或字符串36、設有變量聲明：Dim TestDate As Date，為變量TestDate正確賦值的表達方式是_。（1分）A、TestDate = #1/1/2002#B、TestDate = #"1/1/2002"#C、TestDate = Date("1/1/2002")D、TestDate = Format("m/d/yy", "1/l/2002")37、下面表達式中，_的運算結果與其他3個不同。（1分）A、Log(

15、Exp(-3.5)B、Int(-3.5) + 0.5C、-Abs(-3.5)D、Sin(30 * 3.14 / 180)38、語句X = X + 1的正確含義是_。（1分）A、變量X的值與X + 1的值相等B、將變量X的值存到X + 1中去C、將變量X的值加1后賦給變量XD、變量X的值為139、執(zhí)行程序段：a$ = "China": b$ = Right$(a$, 3): c$ = String$(3, b$): Print c$，輸出的結果是_。（1分）A、ChiB、aaaC、iiiD、ina40、執(zhí)行程序段：Dim axs As Integer: axs% = 232:

16、 axs = 232.32: Print axs%; axs，輸出的結果是_。（1分）A、232 232032B、232 232C、232.32 232.32D、顯示出錯信息41、變量未賦值時，數(shù)值型變量的值為_。（1分）A、OB、空串""C、NullD、沒任何值42、假設變量iVar是一個整型變量，則執(zhí)行賦值語句iVar = "2" + "3" 之后，變量 iVar 的值是_。（1分）A、2B、3C、5D、2343、語句Print 4 + 5 6 * 7 / 8 Mod 9的值是_。（1分）A、4B、5C、6D、744、執(zhí)行語句Pr

17、int Format(32548.5, "#,#0.00")，輸出結果是_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5045、下列不合法的常量形式是_。（1分）A、"1O0"B、100.0C、1OE+0.5D、Const G = 23 + 1246、設有變體變量x，執(zhí)行語句：x = InputBox("輸入數(shù)值","0","示例")后，如果從鍵盤上輸入10并按回車鍵，則下列敘述中正確的是_。（1分）A、變量x的值是數(shù)值10B、在InputBox對話

18、框標題欄中顯示的是“示例”C、0是默認值D、變量x的值是字符串“10”47、下列符號常量的聲明中，_是不合法的。（1分）A、Const a As Single = 1.1B、Const a As Integer = "12"C、Const a As Double = Sin(1)D、Const a = "OK"48、某中心選拔身高T超過1.7米且體重W小于52.5公斤的學員，能正確表示該條件的布爾表達式是_。（1分）A、T >= 1.7 And W <= 52.5B、T <= 1.7 Or W >= 52.5C、T > 1.

19、7 And W < 52.5D、T > 1.7 Or W < 62549、以下聲明語句中，錯誤的是_。（1分）A、Const varl=123B、Const var2="ABC"C、Public const="計算機等級考試"D、Static var3 as Integer50、表達式"Turbo" + "C" > "True" + "Basic"的值是_。（1分）A、TrueB、FalseC、NullD、出錯信息二、填空題（7道小題，共30分）1、*

20、 產生50個60100的隨機數(shù)，統(tǒng)計其中被6整除余2的個數(shù)，并將這些數(shù)輸出。Private Sub command1_click()Dim x, n As IntegerDim counter As IntegerFor = 1 To 50x = Int(Rnd * 41 + 60)If Mod 6 = 2 Thencounter = counter + 1End IfNext nPrint counterEnd Sub（4分）2、* 對10個100以內的整數(shù)用冒泡法按遞減順序排序。Private Sub Command1_Click()Dim a(10) As Integer, t As I

21、ntegerDim i As Integer, j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 101)Print a(i);Next i: PrintFor i = 1 To 9For j = 1 To 10 - i If a(j) < a(j + 1) Then = a(j): a(j) = a(j + 1): a(j + 1) = t Next jNext iFor i = 1 To 10Print a();Next i: PrintEnd Sub（4分）3、* 隨機產生 n 個兩位整數(shù)，求出其中的最大值和最小值。Private Sub Co

22、mmand1_Click()Dim a(100) As Integer, n As Integer, i As IntegerDim min As Integer, max As Integer= InputBox(vbCrLf + vbCrLf + "n=")Print "產生的隨機數(shù)為"RandomizeFor i = 1 To na(i) = Int(Rnd * 90) + 10Print a(i);Next i: Printmin = a(1): max = min For i = 2 To If a(i) > max Then max =

23、 a(i) If a(i) < min Then min = a(i) Next iPrint "最大值為 " maxPrint "最小值為 " minEnd Sub（4分）4、* 楊輝三角形如圖所示<x_5.jpg>：* 完成下面程序。Private Sub Form_Click()Dim a(1 To 10, 1 To 10) As Integer, i%, j%For i = 1 To 10a(i, 1) = 1a(i, ) = 1Next iFor i = 3 To 10For j = 2 To i - 1a(i, j) = a

24、(i - 1, j - 1) + a(i - 1, j)Next jNext iFor i = 1 To 10For j = 1 To Print Tab(5 * (j - 1) + 1); a(i, j);Next jPrintNext iEnd Sub【附圖3】（4分）5、* 利用判斷一個三位數(shù)是否為對稱數(shù)（如：343）的函數(shù)過程，求出所有三位對稱數(shù)之和。* 程序代碼如下：Private Sub Command1_Click()Dim sum As Long,n As Integersum=0For n = 100 To 999If duicheng(n) then sum=sum+Next nEnd Sub Public Function duicheng(ByVal i%) As Booleana = i Mod 10c = i 100If a = c Thenduicheng=trueElse duicheng=False End IfEnd （4分）6、* 用子過程輸出Fibonacci（斐波那契）數(shù)列（0、1、1、2、3、5、8.）的前20項及前20項的和。* 程序代碼如下：Private Sub Command1_Click()Dim s&, a%, b%, c%a = 0: b