鄭州大學(xué)VB選擇.doc

《鄭州大學(xué)VB選擇.doc》由會員分享，可在線閱讀，更多相關(guān)《鄭州大學(xué)VB選擇.doc（28頁珍藏版）》請在裝配圖網(wǎng)上搜索。

鄭州大學(xué)VB選擇、填空題(帶答案、保你vb過90) 一，選擇題 1、如果VB環(huán)境中缺少某個窗口，一般應(yīng)從主菜單__C____的下拉菜單中找到相應(yīng)的激活命令。（1分） A、編輯 B、文件 C、視圖 D、調(diào)試 2、啟動Visual Basic后，VB為用戶建立的第一個窗體是__B____。（1分） A、Form B、Form1 C、窗體1 D、窗體 3、不屬于一個工程文件（*.vbp）里的文件是____A__。（1分） A、*.txt文件 B、*.bas文件 C、*.cls文件 D、*.frm文件 4、與傳統(tǒng)的程序設(shè)計語言相比較，Visual Basic最突出的特點是__C____。（1分） A、結(jié)構(gòu)化的程序設(shè)計 B、數(shù)據(jù)處理 C、面向?qū)ο蟮目梢暬幊? D、中文支持 5、文本框中的ScrollBars屬性已設(shè)置為 3-Both，但卻沒有水平和垂直滾動條的效果，原因可能是___B___。（1分） A、文本框中沒有內(nèi)容 B、文本框的MultiLine屬性為False C、文本框的MaxLength屬性為0 D、文本框的Locked屬性是True 6、能夠盛放其他控件，而且是最基本的對象是___A___。（1分） A、窗體 B、圖像 C、標(biāo)簽 D、文本 7、任何控件都具有的屬性是____C__。（1分） A、Picture B、Caption C、Name D、AutoSize 8、窗體上有一個標(biāo)簽Label1和一個命名按鈕Command1，當(dāng)程序運行時每單擊一次命令按鈕，標(biāo)簽就向右移動一定距離。在Command1_Click()中能完成這個功能的命令為___D___。（1分） A、Label1.Left = 100 B、Label1.Left = Label1.Left - 100 C、Label1.Move 100 D、Label1.Move Label1.Left + 100 9、要把一個Image控件對象設(shè)置成隱藏，應(yīng)設(shè)置的屬性是___A___。（1分） A、Visible B、Enabled C、Default D、Cancel 10、以下___B___是正確的For … Next結(jié)構(gòu)。（1分） A、For x=1 To Step 10 … Next x B、For x=3 To -3 Step -3 … Next x C、For x=1 To x=10 … Next x D、For x=3 To 10 Step 3 … Next y 11、能產(chǎn)生[10，32]之間隨機整數(shù)的函數(shù)表達(dá)式為___B___。（1分） A、Int(Rnd*22)+10 B、Int(Rnd*23)+10 C、Int(Rnd*22)+11 D、Int(Rnd*23)+11 12、程序如下：k = 0: Do Until k > 10: k = k + 1: Loop的循環(huán)體執(zhí)行次數(shù)是___C___。（1分） A、9 B、10 C、11 D、無數(shù)次 13、若要使標(biāo)簽控件顯示時，不覆蓋其背景內(nèi)容，應(yīng)設(shè)置的屬性是___C___。（1分） A、Forecolor B、BackColor C、BackStyle D、BorderStyle 14、Print Format(1234.234, "###.#####"); Format(1234.234, "########.##")的顯示結(jié)果是___A___。（1分） A、1234.234 1234.23 B、123.23400 1234.234 C、123.23400 1234.23 D、1234.2341234.234 15、運行程序：x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x的值是___B___。（1分）不會 A、26 B、27 C、38 D、57 16、Cls方法可以清除窗體或圖片框中的__C____。（1分） A、在設(shè)計階段使用Picture設(shè)置的背景位圖 B、在設(shè)計階段放置的控件 C、在運行階段產(chǎn)生的圖形和文字 D、以上全部內(nèi)容 17、如果想用Print方法將計算結(jié)果顯示在窗體上，則必須保證屬性值為True的屬性是___C___。（1分） A、Enabled B、Apperance C、AutoRedraw D、Moveable 18、窗體文件的擴展名__D____。（1分） A、.bas B、.vbp C、.exe D、.frm 19、以下關(guān)于MsgBox的敘述中，錯誤的是___D___。（1分） A、MsgBox函數(shù)返回一個整數(shù) B、通過MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型 C、MsgBox過程語句沒有返回值 D、MsgBox函數(shù)的第一個參數(shù)是一個整數(shù)，該參數(shù)只能確定對話框中顯示的按鈕數(shù) 20、能夠通過標(biāo)準(zhǔn)工具欄打開的窗口是___C___。（1分） A、代碼窗口 B、設(shè)計器窗口 C、屬性窗口 D、立即窗口 21、在下列邏輯表達(dá)式中，邏輯值為"真"的是__A____。（1分） A、Not (1 > 2) B、Not (3 + 4 < 4 + 6) C、1 > 2 Or 2 > 3 D、2 > 1 And 3 < 2 22、下面關(guān)系運算中，輸出結(jié)果為“True”的是___C___。（1分） A、"1" + 2 = "12" B、"1" + "2" = "3" C、"1" & 2 = "12" D、"1" & "2" = "3" 23、執(zhí)行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，輸出的結(jié)果是__B____。（1分） A、232 232032 B、232 232 C、232.32 232.32 D、顯示出錯信息 24、假設(shè)變量iVar是一個整型變量，則執(zhí)行賦值語句iVar = "2" + "3" 之后，變量 iVar 的值是__D__。（1分） A、2 B、3 C、5 D、23 25、假設(shè)變量iVar是一個整型變量，則執(zhí)行賦值語句iVar = "2" + 3之后，變量iVar 的值是___C___。（1分） A、2 B、3 C、5 D、23 26、用戶自定義數(shù)據(jù)類型時，其成員不能是___B___。（1分） A、定長字符串和數(shù)組 B、變長字符串和數(shù)組 C、貨幣型和日期型 D、變長字符串和貨幣型 27、執(zhí)行程序段：a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 11)，變量c$的值為___D___。（1分） A、Visual BASIC Programing B、Quick Basic programing C、QUICK Basic Programing D、Quick BASIC Programing 28、某中心選拔身高T超過1.7米且體重W小于52.5公斤的學(xué)員，能正確表示該條件的布爾表達(dá)式是___C___。（1分） A、T >= 1.7 And W <= 52.5 B、T <= 1.7 Or W >= 52.5 C、T > 1.7 And W < 52.5 D、T > 1.7 Or W < 625 29、m、n是整數(shù)，且n>m，在以下4個語句中，能將x賦值為一個m～n之間（含m ,n）的任意整數(shù)，即滿足m≥x≥n的是___B___。（1分）<此題目有錯誤，理論上B正確> A、x = Int(Rnd * n) + m B、x = Int(Rnd * (n–m + 1)) + m C、x = Int(Rnd * m) + n D、x = Int(Rnd * (n-m)) + m 30、執(zhí)行語句Print Format(32548.5, "###,##0.00")，輸出結(jié)果是____D__。（1分） A、32548.5 B、32,548.5 C、032,548.50 D、32,548.50 31、下列選項中，__D____不是字符串常量。（1分） A、"你好" B、"" C、"True" D、#False# 32、下列不合法的常量形式是__C___。（1分） A、"1O0" B、100.0 C、1OE+0.5 D、Const G = 23 + 12 33、表達(dá)式Val(".123E2CD")的值是____B__。（1分） A、.123 B、12.3 C、O D、.123E2CD 34、下列符號中，屬于Visual Basic合法變量名的是___A___。（1分） A、x23 B、8xy C、END D、X8[B] 35、下列符號常量的聲明中，__C____是不合法的。（1分） A、Const a As Single = 2.6 B、Const a As String = "ab" C、Const a As Double = Sin(1) D、Const a = "OK" 36、表達(dá)式"Turbo" + "C" > "True" + "Basic"的值是___A___。（1分） A、True B、False C、Null D、出錯信息 37、執(zhí)行MsgBox 123 + 123，信息框中可以出現(xiàn)__C___。（1分） A、123 + 123 B、123123 C、246 D、顯示出錯信息 38、執(zhí)行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，輸出的結(jié)果是___D___。（1分） A、abcabc B、ABCABC C、65 D、97 39、Single（單精度）型數(shù)據(jù)占___B___個字節(jié)。（1分） A、2 B、4 C、8 D、10 40、變量未賦值時，數(shù)值型變量的值為___A___。（1分） A、O B、空串"" C、Null D、沒任何值 41、如果在圖片框Picture1中裝入一個圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的方法是___C___。（1分） A、選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵 B、選擇圖片框，然后按Del鍵 C、執(zhí)行語句 Picture1.Picture = LoadPicture("") D、執(zhí)行語句 Picture1.Picture = "" 42、Visual Basic的編程機制是___C___。（1分） A、面向過程 B、面向?qū)ο? C、事件驅(qū)動 D、可視化 43、設(shè)n=10，執(zhí)行n=IIF(n=3,n,-n)后，n 的值為___B__。（1分） A、10 B、-10 C、3 D、-3 44、除了系統(tǒng)默認(rèn)的工具箱之外，還可以通過___B___方法來增加控件。（1分） A、執(zhí)行“文件”菜單中的“添加工程”命令 B、執(zhí)行“工程”菜單中的“部件”命令 C、在工具箱處執(zhí)行其快捷菜單中的“添加選項卡”命令 D、執(zhí)行“工程”菜單中的“添加窗體”命令 45、在設(shè)計工作狀態(tài)，當(dāng)雙擊窗體上任何一個控件時，打開的窗口是___D___。（1分） A、窗體布局窗口 B、窗體設(shè)計窗口 C、屬性窗口 D、代碼窗口 46、有一個命令：Text1= "歡迎您！"，表達(dá)方式中省略了對象的___B___。（1分） A、方法 B、屬性名 C、對象名 D、標(biāo)題 47、窗體設(shè)計器是用于設(shè)計___D___。（1分） A、窗體的代碼 B、對象的屬性 C、應(yīng)用程序的代碼 D、應(yīng)用程序的界面 48、以下關(guān)于MsgBox的敘述中，錯誤的是___D___。（1分） A、MsgBox函數(shù)返回一個整數(shù) B、通過MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型 C、MsgBox過程語句沒有返回值 D、MsgBox函數(shù)的第一個參數(shù)是一個整數(shù)，該參數(shù)只能確定對話框中顯示的按鈕數(shù) 49、在程序運行模式能夠__A___。（1分） A、中斷程序 B、添加程序 C、輸入程序 D、編輯程序 50、下面四個語句中，正確的賦值語句是___A___。（1分） A、a = a + c B、a + c = a C、c + a = a D、a － c = a 51、Select Case 語句中的“表達(dá)式列表”不能是____A__。（1分） A、變量名的列表，例如 Case x ,y ,z B、值的列表，例如 Case "a ","b","c" C、To 表達(dá)式，例如 Case 1 to 10 D、Is關(guān)系表達(dá)式，例如 Case Is <8 52、比較兩個數(shù)中較大的數(shù)的程序段，錯誤的是__C____。（1分） A、IF x >y Then max=x Else max=y B、max=IIF(x>y , x, y) C、IF x >y Then max=x : max=y D、max=x: If x< y Then max=y 53、要把一個Image控件對象設(shè)置成隱藏，應(yīng)設(shè)置的屬性是___A___。（1分） A、Visible B、Enabled C、Default D、Cancel 54、保存一個Visual Basic應(yīng)用程序，正確的是___D___。（1分） A、只保存工程文件(.vbp) B、只保存窗體文件（.frm） C、只保存標(biāo)準(zhǔn)模塊文件（.bas） D、分別保存窗體文件和工程文件 55、表達(dá)式4 + 5 \ 6 * 7 / 8 Mod 9的值是___B___。（1分） A、4 B、5 C、6 D、7 56、語句Print "int(-23.4)= "; ; Int(-23.4)的輸出結(jié)果為（1分）D A、Int(-23.4)=-23.4 B、(-23.4)=23.4 C、Int(-23.4)=-23 D、Int(-23.4)=-24 57、下列敘述中，正確的是__B____。（1分） A、工程文件（.vbp）應(yīng)用程序可以在任何計算機上運行 B、打開一個工程文件，系統(tǒng)自動裝入與該工程有關(guān)的窗體文件 C、VB工程文件中可以沒有窗體文件 D、退出VB系統(tǒng)前要保存新創(chuàng)建的應(yīng)用程序，只需保存工程文件（.vbp）即可 58、下列各組中，兩個函數(shù)功能完全相反的是__B____。（1分） A、Str(x)和Val(x) B、Asc(x)和Chr(x) C、LTrim(x)和RTrim(x) D、Timer(x)和Time(x) 59、設(shè)a=3，b=5，則以下表達(dá)式值為假的是___A___。（1分） A、a>=b And b> l0 B、(a>b) Or (b>2) C、(a<0) or (b>0) D、(5>a) And (b>2) 60、執(zhí)行MsgBox 123 + 123，信息框中可以出現(xiàn)___A___。（1分） A、123 + 123 B、123123 C、246 D、顯示出錯信息 61、下列表達(dá)式中，表示"X和Y之中有一個是奇數(shù)"的表達(dá)式是__D____。（1分） A、X Mod 2 = 1 And Y Mod 2 = 1 B、X Mod 2 = 1 Or Y Mod 2 = 1 C、(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod 2 = 1) D、(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1) 62、下列符號常量的聲明中，___C___是不合法的。（1分） A、Const a As Single = 1.1 B、Const a As Integer = "12" C、Const a As Double = Sin(1) D、Const a = "OK" 63、以下聲明語句中，錯誤的是___C___。（1分） A、Const varl=123 B、Const var2="ABC" C、Public const="計算機等級考試" D、Static var3 as Integer 64、下面表達(dá)式中，___D___的運算結(jié)果與其他3個不同。（1分） A、Log(Exp(-3.5)) B、Int(-3.5) + 0.5 C、-Abs(-3.5) D、Sin(30 * 3.14 / 180) 65、Print Format(32556, "#######"); Format(32556, "###")的輸出結(jié)果是___A___。（1分） A、3255632556 B、32556—32556 C、32556-325 D、--32556325 66、下列數(shù)據(jù)中，___C___是日期型數(shù)據(jù)。（1分） A、"01/30/2004" B、Date("01/30/2004") C、#01/30/2004# D、01/30/2004 67、執(zhí)行語句Print Format(32548.5, "###,##0.00")，輸出結(jié)果是___D___。（1分） A、32548.5 B、32,548.5 C、032,548.50 D、32,548.50 68、InputBox函數(shù)返回值的類型為___B___。（1分） A、數(shù)值 B、字符串 C、變體 D、數(shù)值或字符串 69、m、n是整數(shù)，且n>m，在以下4個語句中，能將x賦值為一個m～n之間（含m ,n）的任意整數(shù)，即滿足m≥x≥n的是__B____。（1分） A、x = Int(Rnd * n) + m B、x = Int(Rnd * (n–m + 1)) + m C、x = Int(Rnd * m) + n D、x = Int(Rnd * (n-m)) + m 70、在下列邏輯表達(dá)式中，邏輯值為"真"的是_____A_。（1分） A、Not (1 > 2) B、Not (3 + 4 < 4 + 6) C、1 > 2 Or 2 > 3 D、2 > 1 And 3 < 2 71、表達(dá)式Str(Len("123")) + Str(77.7) 的值是__B____。（1分） A、377.7 B、3 77.7 C、80.7 D、12377.7 72、表達(dá)式"Turbo" + "C" > "True" + "Basic"的值是___A___。（1分） A、True B、False C、Null D、出錯信息 73、執(zhí)行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，輸出的結(jié)果是___B___。（1分） A、232 232032 B、232 232 C、232.32 232.32 D、顯示出錯信息 74、執(zhí)行x = -6 ^ 2: Print Sgn(x) + Abs(x) + Int(x)的結(jié)果是___C___。（1分） A、-36 B、1 C、-1 D、-32 75、假設(shè)變量iVar是一個整型變量，則執(zhí)行賦值語句iVar = "2" + "3" 之后，變量 iVar 的值是__D____。（1分） A、2 B、3 C、5 D、23 76、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 運行后，顯示的結(jié)果是___B___。（1分） A、0 B、1 C、隨機數(shù) D、顯示出錯信息 77、語句Print "int(-23.4)= "; ; Int(-23.4)的輸出結(jié)果為（1分） D A、Int(-23.4)=-23.4 B、(-23.4)=23.4 C、Int(-23.4)=-23 D、Int(-23.4)=-24 78、設(shè)a=3，b=5，則以下表達(dá)式值為假的是____A__。（1分） A、a>=b And b> l0 B、(a>b) Or (b>2) C、(a<0) or (b>0) D、(5>a) And (b>2) 79、處于設(shè)計狀態(tài)時，在窗體上雙擊鼠標(biāo)，則系統(tǒng)在代碼窗口顯示的事件過程模板是___A___。（1分） A、Load B、Click C、DblClick D、MouseDown 80、運行程序：x = 2: For i = 1 To 10 Step -2: x = x + i: Next，x的值是___A___。（1分） A、2 B、26 C、27 D、38 81、啟動Visual Basic后，VB為用戶新建立的第一個工程的名字是____D__。（1分） A、窗體1 B、工程 C、窗體 D、工程1 82、決定窗體標(biāo)題欄顯示內(nèi)容的屬性是__C____。（1分） A、Text B、Name C、Caption D、BackStyle 83、Select Case 語句中的“表達(dá)式列表”不能是___A___。（1分） A、變量名的列表，例如 Case x ,y ,z B、值的列表，例如 Case "a ","b","c" C、To 表達(dá)式，例如 Case 1 to 10 D、Is關(guān)系表達(dá)式，例如 Case Is <8 84、若要選擇Text對象的Text1_KeyPress事件，可以___C___。（1分） A、在屬性窗口中選擇 B、在工程資源管理器窗口中選擇 C、在代碼設(shè)計窗口中利用對象列表框、過程列表框選擇 D、在窗體設(shè)計窗口中雙擊Text1對象 85、如果對文本框Text1設(shè)置了PasswordChar=“$”，且程序運行時向文本框中輸入“abcd”，則文本框中顯示的是___B___。（1分） A、1個“$” B、4個“$” C、不顯示內(nèi)容 D、“*” 86、以下關(guān)于InputBox函數(shù)的敘述中，錯誤的是___C___。（1分） A、InputBox函數(shù)的“提示信息參數(shù)”不能缺省 B、每執(zhí)行一次InputBox函數(shù)，只能輸入一個值 C、InputBox 函數(shù)的返回值是數(shù)值型的 D、要保存InputBox函數(shù)的返回值必須賦予一個變量 87、假設(shè)變量iVar是一個整型變量，則執(zhí)行賦值語句iVar = "2" + 3之后，變量iVar 的值是____C__。（1分） A、2 B、3 C、5 D、23 88、執(zhí)行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，輸出的結(jié)果是___D___。（1分） A、abcabc B、ABCABC C、65 D、97 89、下列不合法的常量形式是__C____。（1分） A、"1O0" B、100.0 C、1OE+0.5 D、Const G = 23 + 12 90、執(zhí)行語句age = InputBox("請輸入數(shù)值", "年齡輸入框", "38")，如果從鍵盤上輸入數(shù)值20并按回車鍵，則下列敘述中,不正確的敘述是__A____。（1分） A、變量Age的值是數(shù)值20 B、對話框標(biāo)題欄中顯示的是"年齡輸入框" C、對話框的默認(rèn)值是38 D、對話框的提示文字為"請輸入數(shù)值" 91、執(zhí)行語句Print Format(32548.5, "###,##0.00")，輸出結(jié)果是____D__。（1分） A、32548.5 B、32,548.5 C、032,548.50 D、32,548.50 92、m、n是整數(shù)，且n>m，在以下4個語句中，能將x賦值為一個m～n之間（含m ,n）的任意整數(shù)，即滿足m≥x≥n的是___B___。（1分） A、x = Int(Rnd * n) + m B、x = Int(Rnd * (n–m + 1)) + m C、x = Int(Rnd * m) + n D、x = Int(Rnd * (n-m)) + m 93、下列聲明語句中，錯誤的是___B___。（1分） A、Const varl=123 B、Dim var2=ABC C、Const y="計算機等級考試" D、Static var3 as Integer 94、下面關(guān)系運算中，輸出結(jié)果為“True”的是___C___。（1分） A、"1" + 2 = "12" B、"1" + "2" = "3" C、"1" & 2 = "12" D、"1" & "2" = "3" 95、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是___B___。（1分） A、輸出平均值 B、將一個實數(shù)四舍五入取整并輸出 C、輸出絕對值 D、舍去一個實數(shù)的小數(shù)部分并輸出 96、執(zhí)行程序 For n = 1 To 3: Cls: Print "n="; n;: Next n 后, 輸出結(jié)果是____C__。（1分） A、123 B、3 C、n= 3 D、n= 1 n= 2 n= 3 97、方法Print "等級";"考試"，輸出的結(jié)果是____A__。（1分） A、等級考試 B、等級;考試 C、"等級考試" D、"等級";"考試" 98、Single（單精度）型數(shù)據(jù)占____B__個字節(jié)。（1分） A、2 B、4 C、8 D、10 99、表達(dá)式Val(".123E2CD")的值是____B__。（1分） A、.123 B、12.3 C、O D、.123E2CD 100、表達(dá)式4 + 5 \ 6 * 7 / 8 Mod 9的值是__B____。（1分） A、4 B、5 C、6 D、7 101、窗體上有一個文本框和一個命名按鈕，當(dāng)向文本框中輸入一個字符時，命令按鈕的標(biāo)題設(shè)置為“計算機考試”。下面正確的事件過程為___C___。（1分） A、Private Sub Command1_Click(): Command1.Caption = "計算機考試": End Sub B、Private Sub Command1_Click(): Text1 = "計算機考試": End Sub C、Private Sub Text1_Change(): Command1.Caption = "計算機考試": End Sub D、Private Sub Text1_Click(): Text1.Caption = "計算機考試": End Sub 102、文本框中的ScrollBars屬性已設(shè)置為 3-Both，但卻沒有水平和垂直滾動條的效果，原因可能是__B____。（1分） A、文本框中沒有內(nèi)容 B、文本框的MultiLine屬性為False C、文本框的MaxLength屬性為0 D、文本框的Locked屬性是True 103、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4，執(zhí)行后s的值是____C__（1分） A、10 B、11 C、12 D、15 104、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 運行后，顯示的結(jié)果是___B___。（1分） A、0 B、1 C、隨機數(shù) D、顯示出錯信息 105、如果VB環(huán)境中缺少某個窗口，一般應(yīng)從主菜單__C____的下拉菜單中找到相應(yīng)的激活命令。（1分） A、編輯 B、文件 C、視圖 D、調(diào)試 106、以下關(guān)于InputBox函數(shù)的敘述中，錯誤的是___C___。（1分） A、InputBox函數(shù)的“提示信息參數(shù)”不能缺省 B、每執(zhí)行一次InputBox函數(shù)，只能輸入一個值 C、InputBox 函數(shù)的返回值是數(shù)值型的 D、要保存InputBox函數(shù)的返回值必須賦予一個變量 107、能產(chǎn)生[10，32]之間隨機整數(shù)的函數(shù)表達(dá)式為___B___。（1分） A、Int(Rnd*22)+10 B、Int(Rnd*23)+10 C、Int(Rnd*22)+11 D、Int(Rnd*23)+11 108、設(shè)有變量聲明：Dim TestDate As Date，為變量TestDate正確賦值的表達(dá)方式是__A____。（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") 109、已知下列程序段：a = 3: b = 4: Print b > a ，輸出的結(jié)果是____A__。（1分） A、True B、False C、4>3 D、顯示出錯信息 110、表達(dá)式"Turbo" + "C" > "True" + "Basic"的值是__A___。（1分） A、True B、False C、Null D、出錯信息 111、語句T = MsgBox("程序執(zhí)行了非法操作", vbAbortRetryIgnore, "提示信息")的執(zhí)行后，可以在對話框中顯示__C____個按鈕。（1分） A、1 B、2 C、3 D、4 112、如果將布爾常量值True賦給一個整型變量，則整型變量的值為____B__。（1分） A、O B、-1 C、True D、False 113、執(zhí)行語句age = InputBox("請輸入數(shù)值", "年齡輸入框", "38")，如果從鍵盤上輸入數(shù)值20并按回車鍵，則下列敘述中,不正確的敘述是___A___。（1分） A、變量Age的值是數(shù)值20 B、對話框標(biāo)題欄中顯示的是"年齡輸入框" C、對話框的默認(rèn)值是38 D、對話框的提示文字為"請輸入數(shù)值" 114、執(zhí)行程序段：Const c$ = "Henan": c$ = "Zhengzhou": c$ = "Daxue": Print c$，輸出的結(jié)果是___D___。（1分） A、Henan B、Zhengzhou C、Daxue D、顯示出錯信息 115、執(zhí)行程序段：a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 11)，變量c$的值為__D____。（1分） A、Visual BASIC Programing B、Quick Basic programing C、QUICK Basic Programing D、Quick BASIC Programing 116、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是___B___。（1分） A、輸出平均值 B、將一個實數(shù)四舍五入取整并輸出 C、輸出絕對值 D、舍去一個實數(shù)的小數(shù)部分并輸出 117、執(zhí)行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，輸出的結(jié)果是___D___。（1分） A、abcabc B、ABCABC C、65 D、97 118、下列表達(dá)式中，表示"X和Y之中有一個是奇數(shù)"的表達(dá)式是___D___。（1分） A、X Mod 2 = 1 And Y Mod 2 = 1 B、X Mod 2 = 1 Or Y Mod 2 = 1 C、(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod 2 = 1) D、(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1) 119、下列符號中，屬于Visual Basic合法變量名的是__A____。（1分） A、x23 B、8xy C、END 二，填空題 1、* 求正整數(shù)M和N（M>N）的最大公約數(shù)。 * 程序段如下： R = M Mod N Do While R <> 0 M = N N = R R = M Mod N Loop Print "最大公約數(shù)為: "; N 2、* 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As String, b As Integer a = InputBox ("請輸入一個數(shù)字") b = InputBox("請輸入一個數(shù)字") Print "s"; a; b; "ok" End Sub 程序運行后，單擊命令按鈕，在輸入對話框中分別輸入321和456，輸出結(jié)果為：s321 456 ok。 3、* 計算s = (1-1/2)*(1-1/3)*...(1-1/10) s = 1 For x = 2 To 10 s = s * (1 - 1 / x) Next x Print s 4、* 求菲波那契數(shù)列（1、1、2、3、5、8...）的第3到10項的值。 * 程序段如下： A(1) = 1 A(2) = 1 I = 3 Do While I <= 10 A(I) = A(I - 1) + A(I - 2) Print "第" & I & "項為: "; A(I) I = I + 1 Loop 5、* 求S=1！+2！+…10! * 程序段如下： s = 0 t = 1 For i = 1 To 10 t= t * i s = s + t Next i Print s 6、* 下面的程序在運行結(jié)束時一共執(zhí)行循環(huán)體5 次，最后打印結(jié)果為16 。 For i = 1 To 10 Step 1 i = i + 1 j = j + 1 Next Print i + j 7、* 求SUM=123+456+789+…282930 * 程序段如下： sum=0 I = 2 Do While I <= 30 Sum = Sum + (I - 1) * I * (I + 1) I =I + 3 Loop Print "總和為："; Sum 8、* 設(shè)在窗體上面有兩個文本框（Name屬性分別為Text1和Text2）和一個命令按鈕（Name屬性為Command1），然后編寫如下兩個事件過程，則程序運行結(jié)果為：123321。 Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text = "123" Text2.Text = "321" Print a End Sub 9、* 判斷N是否為完全數(shù)（一個數(shù)等于它所有因子（不包括自身）之和，如6=1+2+3）。 * 程序段如下： I = 1 N=InputBox("請輸入N的值：") Do While I <= N - 1 If N Mod I = 0 Then S = S + I I = I + 1 Loop If N = S Then Print "是完全數(shù)" else Print "不是完全數(shù)" End If 10、* 計算 E=1+1/1!+1/2!+...1/N!，精確到1E-6。 n = 0: t = 1 Term = 1 Do n = n + 1 t = t / n Term = Term + t Loop While t >= 0.000001 Print Term 11、* 下面程序用于求小于和等于50的自然數(shù)的平方和，請?zhí)羁铡? * 程序段如下： private sub form_click() dim sum as long sum=0 for i=1 to 50 sum=sum +i^2 next i print sum end sum 12、* 下面程序的功能是隨機產(chǎn)生一個三位數(shù)正整數(shù)，將該數(shù)和該數(shù)的逆序同時輸出。 Private Sub Form_Click() Dim a%, s As String, c As String Randomize a = Int(Rnd * (999 - 100 + 1) + 100) s = Format(a) c = Right(s, 1) & Mid(s, 2, 1) & Left(s, 1) Print "三位數(shù)是" & a Print a & "的逆序是" & c End Sub 13、* 使用Select Case結(jié)構(gòu)將一年中的12個月份，分成四個季節(jié)輸出。 Private Sub Form_Click() Dim m% m = InputBox("請輸入月份") Select case m Case 1, 2, 3 Print m & "月是第一季度" Case 4, 5, 6 Print m & "月是第二季度" Case 7, 8, 9 Print m & "月是第三季度" Case 10, 11, 12 Print m & "月是第四季度" End Select End Sub 14、* 根據(jù)π/4=1-1/3+1/5-1/7+…..+(-1)n-1/(2n-1)，分別求n=1000、1500、2000、2500時π的近似值。 * 程序代碼如下：： Private Sub Form_Click() For i = 1000 To 2500 step 500 s = 0 f = 1 For j = 1 To i t = 1 / (2 * j - 1) s = s + f * t f = -f Next j Print "i="; i, "pi="; s Next i End Sub 15、* 使用雙循環(huán)實現(xiàn)正三角形輸出 * *** ***** ******* ********* *********** ************* *************** ***************** ******************* * 程序代碼如下： Private Sub Command1_Cick() For i = 1 To 10 Print Tab(25 - i ); For j = 1 To 2 * i - 1 Print "*"; Next j print Next i End Sub 16、* 執(zhí)行下列事件代碼： Private Sub Command1_Click() Dim MyString As String Dim MyLen As Integer MyString = "Hello World" MyLen = 2+len (MyString) Print MyLen End Sub 在彈出的消息對話框中的內(nèi)容是：13。 17、* 判斷正整數(shù)M是否為素數(shù)。 * 程序段如下： FLAG = 1 : M=InputBox("請輸入M的值") For I = 2 To Sqr(M) If M%I = 0 Then FLAG = 0 Exit For End If Next I If FLAG = 1 Then Print "YES" Else Print "NO" End If 18、* 在窗體上畫一個命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As String, b As Integer a = InputBox("請輸入一個數(shù)字") b = InputBox("請輸入一個數(shù)字") Print "s"; a; b; "ok" End Sub 程序運行后，單擊命令按鈕，在輸入對話框中分別輸入321和456，輸出結(jié)果為：s321 456 ok。 19、* 在窗體上畫一個名稱為Command1的命令按鈕并編寫下列事件過程，程序運行后，則窗體上顯示的是10。 Private Sub Command1_Click() x = Int(Rnd * (20 - 1 + 1) + 1) Select Case x Case 1 to 20 y = 10 Case 11, 13, 15, 17 y = 30 Case Is > 10 y = 50 End Select Print y End Sub 20、* 下列程序段的執(zhí)行結(jié)果是“HELLO! ZHANG! GOOD MORNING!”。 A = "HELLOGOODMORNING" B = "WANGZHANGLI" C = Left(A, 5 ) + "!" D = Right(A, 7) E = Mid(A, 6, 4) F = Mid(B, Len(B) - 6 , 5) + "!" G = E + " " + D + "!" H = C + " " + F Print H + " " + G 21、* 下列程序段的執(zhí)行結(jié)果為-3 3。 X = 5 Y = -20 If NOT X > Y Then X = Y - 3 Else Y = X + 3 Print X - Y; Y - X 22、* 古代數(shù)學(xué)家在編寫《算經(jīng)》時，提出了一個不定方程問題，即著名的“百雞問題”： * 雞翁一，值錢五，母雞一，值錢三，雛雞三，值錢一。百錢賣百雞，問雞翁、母、雛，各幾何？ * 程序代碼如下： Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer Print Tab(5); "公雞"; Tab(15); "母雞"; Tab(25); "小雞" For i = 0 To 20