鄭州大學(xué)VB模擬題5

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

2、3.23400 1234.234C、123.23400 1234.23D、1234.2341234.2343、以下關(guān)于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ù)次

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

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

5、nd1.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、工程C、窗體D、工程113、下列敘述中，正確的是_。（1分）A、工程文件（.vbp）應(yīng)用程序可以在任何計算機上運行B、打開一個工程文件，系統(tǒng)自動裝入與該工程有關(guān)的窗

6、體文件C、VB工程文件中可以沒有窗體文件D、退出VB系統(tǒng)前要保存新創(chuàng)建的應(yīng)用程序，只需保存工程文件（.vbp）即可14、若要選擇Text對象的Text1_KeyPress事件，可以_。（1分）A、在屬性窗口中選擇B、在工程資源管理器窗口中選擇C、在代碼設(shè)計窗口中利用對象列表框、過程列表框選擇 D、在窗體設(shè)計窗口中雙擊Text1對象15、Cls方法可以清除窗體或圖片框中的_。（1分）A、在設(shè)計階段使用Picture設(shè)置的背景位圖B、在設(shè)計階段放置的控件C、在運行階段產(chǎn)生的圖形和文字D、以上全部內(nèi)容16、比較兩個數(shù)中較大的數(shù)的程序段，錯誤的是_。（1分）A、IF x y Then max=x El

7、se max=yB、max=IIF(xy , x, y)C、IF x y Then max=x : max=yD、max=x: If x 4，執(zhí)行后s的值是_（1分）A、10B、11C、12D、1521、與傳統(tǒng)的程序設(shè)計語言相比較，Visual Basic最突出的特點是_。（1分）A、結(jié)構(gòu)化的程序設(shè)計B、數(shù)據(jù)處理C、面向?qū)ο蟮目梢暬幊藾、中文支持22、能夠盛放其他控件，而且是最基本的對象是_。（1分）A、窗體B、圖像C、標簽D、文本23、窗體設(shè)計器是用于設(shè)計_。（1分）A、窗體的代碼B、對象的屬性C、應(yīng)用程序的代碼D、應(yīng)用程序的界面24、如果VB環(huán)境中缺少某個窗口，一般應(yīng)從主菜單_的下拉菜單

8、中找到相應(yīng)的激活命令。（1分）A、編輯B、文件C、視圖D、調(diào)試25、在下列語句中，正確的是_。（1分）A、Text1.Text+Text2.Text=Text3.TextB、Command1.Name=cmdokC、Label1.Caption=4567D、x=InputBox(please input)26、執(zhí)行語句age = InputBox(請輸入數(shù)值, 年齡輸入框, 38)，如果從鍵盤上輸入數(shù)值20并按回車鍵，則下列敘述中,不正確的敘述是_。（1分）A、變量Age的值是數(shù)值20B、對話框標題欄中顯示的是年齡輸入框C、對話框的默認值是38D、對話框的提示文字為請輸入數(shù)值27、Print

9、DateDiff(m, #1/28/2004#, #1/31/2004#)的輸出結(jié)果是_。（1分）A、OB、1C、-1D、228、在下列符號常量的聲明中，_是不合法的。（1分）A、Const a As Single = 2.6B、Const a As Integer = abC、Const a As Double = 2 * 2D、Const a = OK29、執(zhí)行程序段：Const c$ = Henan: c$ = Zhengzhou: c$ = Daxue: Print c$，輸出的結(jié)果是_。（1分）A、HenanB、ZhengzhouC、DaxueD、顯示出錯信息30、m、n是整數(shù)，且n

10、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 等級;考試，輸出的結(jié)果是_。（1分）A、等級考試B、等級;考試C、等級考試D、等級;考試32、下列數(shù)據(jù)中，_是日期型數(shù)據(jù)。（1分）A、01/30/2004B、Date(01/30/2004)C、#01/30/2004#D、01/30/200433、下列選項中，_不是字符串常量。（1分

11、）A、你好B、C、TrueD、#False#34、執(zhí)行程序段：a = 6: b = 8: F = Sqr(a * a + b * b): Print F，輸出的結(jié)果是_。（1分）A、6B、8C、10D、1435、InputBox函數(shù)返回值的類型為_。（1分）A、數(shù)值B、字符串C、變體D、數(shù)值或字符串36、設(shè)有變量聲明：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

12、(m/d/yy, 1/l/2002)37、下面表達式中，_的運算結(jié)果與其他3個不同。（1分）A、Log(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$，輸出的結(jié)果是_。（1分）A、ChiB、aaaC、iiiD、ina

13、40、執(zhí)行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，輸出的結(jié)果是_。（1分）A、232 232032B、232 232C、232.32 232.32D、顯示出錯信息41、變量未賦值時，數(shù)值型變量的值為_。（1分）A、OB、空串C、NullD、沒任何值42、假設(shè)變量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í)行

14、語句Print Format(32548.5, #,#0.00)，輸出結(jié)果是_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5045、下列不合法的常量形式是_。（1分）A、1O0B、100.0C、1OE+0.5D、Const G = 23 + 1246、設(shè)有變體變量x，執(zhí)行語句：x = InputBox(輸入數(shù)值,0,示例)后，如果從鍵盤上輸入10并按回車鍵，則下列敘述中正確的是_。（1分）A、變量x的值是數(shù)值10B、在InputBox對話框標題欄中顯示的是“示例”C、0是默認值D、變量x的值是字符串“10”47、下列符號常量的聲明中，_是不合法的。

15、（1分）A、Const a As Single = 1.1B、Const a As Integer = 12C、Const a As Double = Sin(1)D、Const a = OK48、某中心選拔身高T超過1.7米且體重W小于52.5公斤的學(xué)員，能正確表示該條件的布爾表達式是_。（1分）A、T = 1.7 And W = 52.5B、T = 52.5C、T 1.7 And W 1.7 Or W True + Basic的值是_。（1分）A、TrueB、FalseC、NullD、出錯信息二、填空題（7道小題，共30分）1、* 產(chǎn)生50個60100的隨機數(shù)，統(tǒng)計其中被6整除余2的個數(shù)，

16、并將這些數(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以內(nèi)的整數(shù)用冒泡法按遞減順序排序。Private Sub Command1_Click()Dim a(10) As Integer, t As IntegerDim i As Integer, j As I

17、ntegerFor 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) max Then max = a(i) If a(i) min Then min = a(i) Next iPrint 最大值為 ; maxPrint 最小值為 ; minEnd Sub（4分）4、* 楊輝三角形如圖所示：* 完成下面程序。Private Sub Form_Click()Dim a(1 To 10, 1 To 10) As Integer, i%, j%For i

18、= 1 To 10a(i, 1) = 1a(i, ) = 1Next iFor i = 3 To 10For j = 2 To i - 1a(i, j) = a(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()Di

19、m 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 = 1= a + bPrint aPrint bFor i = 1 To 18fib a, b, cprint s = s + cNext iPrint Fibonacci（斐波那契）數(shù)列的前20項的和為：; sEnd Sub Priv