鄭州大學(xué)VB選擇

1、-作者xxxx-日期xxxx鄭州大學(xué)VB選擇【精品文檔】鄭州大學(xué)VB選擇、填空題(帶答案、保你vb過90)一，選擇題1、如果VB環(huán)境中缺少某個(gè)窗口，一般應(yīng)從主菜單_C_的下拉菜單中找到相應(yīng)的激活命令。（1分）A、編輯B、文件C、視圖D、調(diào)試2、啟動(dòng)Visual Basic后，VB為用戶建立的第一個(gè)窗體是_B_。（1分）A、FormB、Form1C、窗體1D、窗體3、不屬于一個(gè)工程文件（*.vbp）里的文件是_A_。（1分）A、*.txt文件B、*.bas文件C、*.cls文件D、*.frm文件4、與傳統(tǒng)的程序設(shè)計(jì)語言相比較，Visual Basic最突出的特點(diǎn)是_C_。（1分）A、結(jié)構(gòu)化的程序

2、設(shè)計(jì)B、數(shù)據(jù)處理C、面向?qū)ο蟮目梢暬幊藾、中文支持5、文本框中的ScrollBars屬性已設(shè)置為 3-Both，但卻沒有水平和垂直滾動(dòng)條的效果，原因可能是_B_。（1分）A、文本框中沒有內(nèi)容B、文本框的MultiLine屬性為FalseC、文本框的MaxLength屬性為0D、文本框的Locked屬性是True6、能夠盛放其他控件，而且是最基本的對(duì)象是_A_。（1分）A、窗體B、圖像C、標(biāo)簽D、文本7、任何控件都具有的屬性是_C_。（1分）A、PictureB、CaptionC、NameD、AutoSize8、窗體上有一個(gè)標(biāo)簽Label1和一個(gè)命名按鈕Command1，當(dāng)程序運(yùn)行時(shí)每單擊一次

3、命令按鈕，標(biāo)簽就向右移動(dòng)一定距離。在Command1_Click()中能完成這個(gè)功能的命令為_D_。（1分）A、Label1.Left = 100B、Label1.Left = Label1.Left - 100C、Label1.Move 100D、Label1.Move Label1.Left + 1009、要把一個(gè)Image控件對(duì)象設(shè)置成隱藏，應(yīng)設(shè)置的屬性是_A_。（1分）A、VisibleB、EnabledC、DefaultD、Cancel10、以下_B_是正確的For Next結(jié)構(gòu)。（1分）A、For x=1 To Step 10 Next xB、For x=3 To -3 Step

4、-3 Next xC、For x=1 To x=10 Next xD、For x=3 To 10 Step 3 Next y11、能產(chǎn)生10，32之間隨機(jī)整數(shù)的函數(shù)表達(dá)式為_B_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rnd*23)+1112、程序如下：k = 0: Do Until k > 10: k = k + 1: Loop的循環(huán)體執(zhí)行次數(shù)是_C_。（1分）A、9B、10C、11D、無數(shù)次13、若要使標(biāo)簽控件顯示時(shí)，不覆蓋其背景內(nèi)容，應(yīng)設(shè)置的屬性是_C_。（1分）A、ForecolorB、BackColo

5、rC、BackStyleD、BorderStyle14、Print Format(1234.234, "#.#"); Format(1234.234, "#.#")的顯示結(jié)果是_A_。（1分）15、運(yùn)行程序：x = 2: For i = 1 To 10 Step 2: x = x + i: Next，x的值是_B_。（1分）不會(huì)A、26B、27C、38D、5716、Cls方法可以清除窗體或圖片框中的_C_。（1分）A、在設(shè)計(jì)階段使用Picture設(shè)置的背景位圖B、在設(shè)計(jì)階段放置的控件C、在運(yùn)行階段產(chǎn)生的圖形和文字D、以上全部?jī)?nèi)容17、如果想用Print方

6、法將計(jì)算結(jié)果顯示在窗體上，則必須保證屬性值為True的屬性是_C_。（1分）A、EnabledB、ApperanceC、AutoRedrawD、Moveable18、窗體文件的擴(kuò)展名_D_。（1分）A、.basB、.vbpC、.exeD、.frm19、以下關(guān)于MsgBox的敘述中，錯(cuò)誤的是_D_。（1分）A、MsgBox函數(shù)返回一個(gè)整數(shù)B、通過MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型C、MsgBox過程語句沒有返回值D、MsgBox函數(shù)的第一個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能確定對(duì)話框中顯示的按鈕數(shù)20、能夠通過標(biāo)準(zhǔn)工具欄打開的窗口是_C_。（1分）A、代碼窗口B、設(shè)計(jì)器窗口C、屬性窗口D、

7、立即窗口21、在下列邏輯表達(dá)式中，邏輯值為"真"的是_A_。（1分）A、Not (1 > 2)B、Not (3 + 4 < 4 + 6)C、1 > 2 Or 2 > 3D、2 > 1 And 3 < 222、下面關(guān)系運(yùn)算中，輸出結(jié)果為“True”的是_C_。（1分）A、"1" + 2 = "12"B、"1" + "2" = "3"C、"1" & 2 = "12"D、"1"

8、& "2" = "3"23、執(zhí)行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，輸出的結(jié)果是_B_。（1分）A、232 232032B、232 232D、顯示出錯(cuò)信息24、假設(shè)變量iVar是一個(gè)整型變量，則執(zhí)行賦值語句iVar = "2" + "3" 之后，變量 iVar 的值是_D_。（1分）A、2B、3C、5D、2325、假設(shè)變量iVar是一個(gè)整型變量，則執(zhí)行賦值語句iVar = "2" + 3之后，

9、變量iVar 的值是_C_。（1分）A、2B、3C、5D、2326、用戶自定義數(shù)據(jù)類型時(shí)，其成員不能是_B_。（1分）A、定長(zhǎng)字符串和數(shù)組B、變長(zhǎng)字符串和數(shù)組C、貨幣型和日期型D、變長(zhǎng)字符串和貨幣型27、執(zhí)行程序段：a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6) & Right$(a$, 11)，變量c$的值為_D_。（1分）A、Visual BASIC ProgramingB、Quick Basic programingC、QUIC

10、K Basic ProgramingD、Quick BASIC Programing28、某中心選拔身高T超過1.7米且體重W小于52.5公斤的學(xué)員，能正確表示該條件的布爾表達(dá)式是_C_。（1分）D、T > 1.7 Or W < 62529、m、n是整數(shù)，且n>m，在以下4個(gè)語句中，能將x賦值為一個(gè)mn之間（含m ,n）的任意整數(shù)，即滿足mxn的是_B_。（1分）<此題目有錯(cuò)誤，理論上B正確>A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd *

11、 (n-m) + m30、執(zhí)行語句Print Format(32548.5, "#,#0.00")，輸出結(jié)果是_D_。（1分）31、下列選項(xiàng)中，_D_不是字符串常量。（1分）A、"你好"B、""C、"True"D、#False#32、下列不合法的常量形式是_C_。（1分）A、"1O0"D、Const G = 23 + 1233、表達(dá)式Val(".123E2CD")的值是_B_。（1分）A、.123C、OD、.123E2CD34、下列符號(hào)中，屬于Visual Basic合法變量

12、名的是_A_。（1分）A、x23B、8xyC、ENDD、X8B35、下列符號(hào)常量的聲明中，_C_是不合法的。（1分）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、TrueB、FalseC、NullD、出錯(cuò)信息37、執(zhí)行MsgBox 123 + 123，信息框中可以出現(xiàn)_C_。（

13、1分）A、123 + 123B、123123C、246D、顯示出錯(cuò)信息38、執(zhí)行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，輸出的結(jié)果是_D_。（1分）A、abcabcB、ABCABCC、65D、9739、Single（單精度）型數(shù)據(jù)占_B_個(gè)字節(jié)。（1分）A、2B、4C、8D、1040、變量未賦值時(shí)，數(shù)值型變量的值為_A_。（1分）A、OB、空串""C、NullD、沒任何值41、如果在圖片框Picture1中裝入一個(gè)

14、圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的方法是_C_。（1分）A、選擇圖片框，在屬性窗口中選擇Picture屬性條，然后按回車鍵B、選擇圖片框，然后按Del鍵C、執(zhí)行語句 Picture1.Picture = LoadPicture("")D、執(zhí)行語句 Picture1.Picture = ""42、Visual Basic的編程機(jī)制是_C_。（1分）A、面向過程B、面向?qū)ο驝、事件驅(qū)動(dòng)D、可視化43、設(shè)n=10，執(zhí)行n=IIF(n=3,n,-n)后，n 的值為_B_。（1分）A、10B、-10C、3D、-344、除了系統(tǒng)默認(rèn)的工具箱之外，還可以通

15、過_B_方法來增加控件。（1分）A、執(zhí)行“文件”菜單中的“添加工程”命令B、執(zhí)行“工程”菜單中的“部件”命令C、在工具箱處執(zhí)行其快捷菜單中的“添加選項(xiàng)卡”命令D、執(zhí)行“工程”菜單中的“添加窗體”命令45、在設(shè)計(jì)工作狀態(tài)，當(dāng)雙擊窗體上任何一個(gè)控件時(shí)，打開的窗口是_D_。（1分）A、窗體布局窗口B、窗體設(shè)計(jì)窗口C、屬性窗口D、代碼窗口46、有一個(gè)命令：Text1= "歡迎您！"，表達(dá)方式中省略了對(duì)象的_B_。（1分）A、方法B、屬性名C、對(duì)象名D、標(biāo)題47、窗體設(shè)計(jì)器是用于設(shè)計(jì)_D_。（1分）A、窗體的代碼B、對(duì)象的屬性C、應(yīng)用程序的代碼D、應(yīng)用程序的界面48、以下關(guān)于MsgB

16、ox的敘述中，錯(cuò)誤的是_D_。（1分）A、MsgBox函數(shù)返回一個(gè)整數(shù)B、通過MsgBox函數(shù)可以設(shè)置信息框中圖標(biāo)和按鈕的類型C、MsgBox過程語句沒有返回值D、MsgBox函數(shù)的第一個(gè)參數(shù)是一個(gè)整數(shù)，該參數(shù)只能確定對(duì)話框中顯示的按鈕數(shù)49、在程序運(yùn)行模式能夠_A_。（1分）A、中斷程序B、添加程序C、輸入程序D、編輯程序50、下面四個(gè)語句中，正確的賦值語句是_A_。（1分）A、a = a + cB、a + c = aC、c + a = aD、a c = a51、Select Case 語句中的“表達(dá)式列表”不能是_A_。（1分）A、變量名的列表，例如 Case x ,y ,zB、值的列表，

17、例如 Case "a ","b","c"C、To 表達(dá)式，例如 Case 1 to 10D、Is關(guān)系表達(dá)式，例如 Case Is <852、比較兩個(gè)數(shù)中較大的數(shù)的程序段，錯(cuò)誤的是_C_。（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 53、要把一個(gè)Image控件對(duì)象設(shè)置成隱藏，應(yīng)設(shè)置的屬性是_A_。（1分）A、VisibleB、En

18、abledC、DefaultD、Cancel54、保存一個(gè)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、4B、5C、6D、756、語句Print "int(-23.4)= " ; Int(-23.4)的輸出結(jié)果為（1分）DC、Int(-23.4)=-23D、Int(-23.4)=-2457、下列敘述中，正確的是_B_。（1分）A、工程文件（.vbp）應(yīng)用程序可以

19、在任何計(jì)算機(jī)上運(yùn)行B、打開一個(gè)工程文件，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體文件C、VB工程文件中可以沒有窗體文件D、退出VB系統(tǒng)前要保存新創(chuàng)建的應(yīng)用程序，只需保存工程文件（.vbp）即可58、下列各組中，兩個(gè)函數(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> l0B、(a>b) Or (b>2)C、(a<0) or (b>0)D、(5>a) And (

20、b>2)60、執(zhí)行MsgBox 123 + 123，信息框中可以出現(xiàn)_A_。（1分）A、123 + 123B、123123C、246D、顯示出錯(cuò)信息61、下列表達(dá)式中，表示"X和Y之中有一個(gè)是奇數(shù)"的表達(dá)式是_D_。（1分）A、X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1C、(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

21、 Mod 2 = 1)62、下列符號(hào)常量的聲明中，_C_是不合法的。（1分）B、Const a As Integer = "12"C、Const a As Double = Sin(1)D、Const a = "OK"63、以下聲明語句中，錯(cuò)誤的是_C_。（1分）A、Const varl=123B、Const var2="ABC"C、Public const="計(jì)算機(jī)等級(jí)考試"D、Static var3 as Integer64、下面表達(dá)式中，_D_的運(yùn)算結(jié)果與其他3個(gè)不同。（1分）A、Log(Exp(-3.5)C

22、、-Abs(-3.5)D、Sin(30 * 3.14 / 180)65、Print Format(32556, "#"); Format(32556, "#")的輸出結(jié)果是_A_。（1分）A、3255632556B、3255632556C、32556-325D、-3255632566、下列數(shù)據(jù)中，_C_是日期型數(shù)據(jù)。（1分）A、"01/30/2004"B、Date("01/30/2004")C、#01/30/2004#D、01/30/200467、執(zhí)行語句Print Format(32548.5, "#,

23、#0.00")，輸出結(jié)果是_D_。（1分）D、32,5468、InputBox函數(shù)返回值的類型為_B_。（1分）A、數(shù)值B、字符串C、變體D、數(shù)值或字符串69、m、n是整數(shù)，且n>m，在以下4個(gè)語句中，能將x賦值為一個(gè)mn之間（含m ,n）的任意整數(shù)，即滿足mxn的是_B_。（1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m70、在下列邏輯表達(dá)式中，邏輯值為"真"的是_A_。（1分）A、Not (1 >

24、 2)B、Not (3 + 4 < 4 + 6)C、1 > 2 Or 2 > 3D、2 > 1 And 3 < 271、表達(dá)式Str(Len("123") + Str(77.7) 的值是_B_。（1分）72、表達(dá)式"Turbo" + "C" > "True" + "Basic"的值是_A_。（1分）A、TrueB、FalseC、NullD、出錯(cuò)信息73、執(zhí)行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Pr

25、int axs%; axs，輸出的結(jié)果是_B_。（1分）A、232 232032B、232 232D、顯示出錯(cuò)信息74、執(zhí)行x = -6 2: Print Sgn(x) + Abs(x) + Int(x)的結(jié)果是_C_。（1分）A、-36B、1C、-1D、-3275、假設(shè)變量iVar是一個(gè)整型變量，則執(zhí)行賦值語句iVar = "2" + "3" 之后，變量 iVar 的值是_D_。（1分）A、2B、3C、5D、2376、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 運(yùn)行后，顯示的結(jié)果是_B_。（1

26、分）A、0B、1C、隨機(jī)數(shù)D、顯示出錯(cuò)信息77、語句Print "int(-23.4)= " ; Int(-23.4)的輸出結(jié)果為（1分） DC、Int(-23.4)=-23D、Int(-23.4)=-2478、設(shè)a=3，b=5，則以下表達(dá)式值為假的是_A_。（1分）A、a>=b And b> l0B、(a>b) Or (b>2)C、(a<0) or (b>0)D、(5>a) And (b>2)79、處于設(shè)計(jì)狀態(tài)時(shí)，在窗體上雙擊鼠標(biāo)，則系統(tǒng)在代碼窗口顯示的事件過程模板是_A_。（1分）A、LoadB、ClickC、DblCli

27、ckD、MouseDown80、運(yùn)行程序：x = 2: For i = 1 To 10 Step -2: x = x + i: Next，x的值是_A_。（1分）A、2B、26C、27D、3881、啟動(dòng)Visual Basic后，VB為用戶新建立的第一個(gè)工程的名字是_D_。（1分）A、窗體1B、工程C、窗體D、工程182、決定窗體標(biāo)題欄顯示內(nèi)容的屬性是_C_。（1分）A、TextB、NameC、CaptionD、BackStyle83、Select Case 語句中的“表達(dá)式列表”不能是_A_。（1分）A、變量名的列表，例如 Case x ,y ,zB、值的列表，例如 Case "a

28、 ","b","c"C、To 表達(dá)式，例如 Case 1 to 10D、Is關(guān)系表達(dá)式，例如 Case Is <884、若要選擇Text對(duì)象的Text1_KeyPress事件，可以_C_。（1分）A、在屬性窗口中選擇B、在工程資源管理器窗口中選擇C、在代碼設(shè)計(jì)窗口中利用對(duì)象列表框、過程列表框選擇 D、在窗體設(shè)計(jì)窗口中雙擊Text1對(duì)象85、如果對(duì)文本框Text1設(shè)置了PasswordChar=“$”，且程序運(yùn)行時(shí)向文本框中輸入“abcd”，則文本框中顯示的是_B_。（1分）A、1個(gè)“$”B、4個(gè)“$”C、不顯示內(nèi)容D、“*”86、以下關(guān)于

29、InputBox函數(shù)的敘述中，錯(cuò)誤的是_C_。（1分）A、InputBox函數(shù)的“提示信息參數(shù)”不能缺省B、每執(zhí)行一次InputBox函數(shù)，只能輸入一個(gè)值C、InputBox 函數(shù)的返回值是數(shù)值型的D、要保存InputBox函數(shù)的返回值必須賦予一個(gè)變量87、假設(shè)變量iVar是一個(gè)整型變量，則執(zhí)行賦值語句iVar = "2" + 3之后，變量iVar 的值是_C_。（1分）A、2B、3C、5D、2388、執(zhí)行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Pri

30、nt Asc(k$ + j$)，輸出的結(jié)果是_D_。（1分）A、abcabcB、ABCABCC、65D、9789、下列不合法的常量形式是_C_。（1分）A、"1O0"D、Const G = 23 + 1290、執(zhí)行語句age = InputBox("請(qǐng)輸入數(shù)值", "年齡輸入框", "38")，如果從鍵盤上輸入數(shù)值20并按回車鍵，則下列敘述中,不正確的敘述是_A_。（1分）A、變量Age的值是數(shù)值20B、對(duì)話框標(biāo)題欄中顯示的是"年齡輸入框"C、對(duì)話框的默認(rèn)值是38D、對(duì)話框的提示文字為"

31、;請(qǐng)輸入數(shù)值"91、執(zhí)行語句Print Format(32548.5, "#,#0.00")，輸出結(jié)果是_D_。（1分）92、m、n是整數(shù)，且n>m，在以下4個(gè)語句中，能將x賦值為一個(gè)mn之間（含m ,n）的任意整數(shù)，即滿足mxn的是_B_。（1分）A、x = Int(Rnd * n) + mB、x = Int(Rnd * (nm + 1) + mC、x = Int(Rnd * m) + nD、x = Int(Rnd * (n-m) + m93、下列聲明語句中，錯(cuò)誤的是_B_。（1分）A、Const varl=123B、Dim var2='ABC&#

32、39;C、Const y="計(jì)算機(jī)等級(jí)考試"D、Static var3 as Integer94、下面關(guān)系運(yù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): Pri

33、nt b 的功能是_B_。（1分）A、輸出平均值B、將一個(gè)實(shí)數(shù)四舍五入取整并輸出C、輸出絕對(duì)值D、舍去一個(gè)實(shí)數(shù)的小數(shù)部分并輸出96、執(zhí)行程序 For n = 1 To 3: Cls: Print "n=" n;: Next n 后, 輸出結(jié)果是_C_。（1分）A、123B、3C、n= 3D、n= 1 n= 2 n= 397、方法Print "等級(jí)""考試"，輸出的結(jié)果是_A_。（1分）A、等級(jí)考試B、等級(jí);考試C、"等級(jí)考試"D、"等級(jí)""考試"98、Single（單精度）型

34、數(shù)據(jù)占_B_個(gè)字節(jié)。（1分）A、2B、4C、8D、1099、表達(dá)式Val(".123E2CD")的值是_B_。（1分）A、.123C、OD、.123E2CD100、表達(dá)式4 + 5 6 * 7 / 8 Mod 9的值是_B_。（1分）A、4B、5C、6D、7101、窗體上有一個(gè)文本框和一個(gè)命名按鈕，當(dāng)向文本框中輸入一個(gè)字符時(shí)，命令按鈕的標(biāo)題設(shè)置為“計(jì)算機(jī)考試”。下面正確的事件過程為_C_。（1分）A、Private Sub Command1_Click(): Command1.Caption = "計(jì)算機(jī)考試": End Sub B、Private Su

35、b Command1_Click(): Text1 = "計(jì)算機(jī)考試": End SubC、Private Sub Text1_Change(): Command1.Caption = "計(jì)算機(jī)考試": End SubD、Private Sub Text1_Click(): Text1.Caption = "計(jì)算機(jī)考試": End Sub102、文本框中的ScrollBars屬性已設(shè)置為 3-Both，但卻沒有水平和垂直滾動(dòng)條的效果，原因可能是_B_。（1分）A、文本框中沒有內(nèi)容B、文本框的MultiLine屬性為FalseC、文本框

36、的MaxLength屬性為0D、文本框的Locked屬性是True103、程序如下：i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4，執(zhí)行后s的值是_C_（1分）A、10B、11C、12D、15104、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 運(yùn)行后，顯示的結(jié)果是_B_。（1分）A、0B、1C、隨機(jī)數(shù)D、顯示出錯(cuò)信息105、如果VB環(huán)境中缺少某個(gè)窗口，一般應(yīng)從主菜單_C_的下拉菜單中找到相應(yīng)的激活命令。（1分）A、編輯B、文件C、視圖D、調(diào)試106、以下關(guān)于Inp

37、utBox函數(shù)的敘述中，錯(cuò)誤的是_C_。（1分）A、InputBox函數(shù)的“提示信息參數(shù)”不能缺省B、每執(zhí)行一次InputBox函數(shù)，只能輸入一個(gè)值C、InputBox 函數(shù)的返回值是數(shù)值型的D、要保存InputBox函數(shù)的返回值必須賦予一個(gè)變量107、能產(chǎn)生10，32之間隨機(jī)整數(shù)的函數(shù)表達(dá)式為_B_。（1分）A、Int(Rnd*22)+10B、Int(Rnd*23)+10C、Int(Rnd*22)+11D、Int(Rnd*23)+11108、設(shè)有變量聲明：Dim TestDate As Date，為變量TestDate正確賦值的表達(dá)方式是_A_。（1分）A、TestDate = #1/1/2

38、002#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、TrueB、FalseC、4>3D、顯示出錯(cuò)信息110、表達(dá)式"Turbo" + "C" > "True" + "Basic

39、"的值是_A_。（1分）A、TrueB、FalseC、NullD、出錯(cuò)信息111、語句T = MsgBox("程序執(zhí)行了非法操作", vbAbortRetryIgnore, "提示信息")的執(zhí)行后，可以在對(duì)話框中顯示_C_個(gè)按鈕。（1分）A、1B、2C、3D、4112、如果將布爾常量值True賦給一個(gè)整型變量，則整型變量的值為_B_。（1分）A、OB、-1C、TrueD、False113、執(zhí)行語句age = InputBox("請(qǐng)輸入數(shù)值", "年齡輸入框", "38")，如果從鍵盤上

40、輸入數(shù)值20并按回車鍵，則下列敘述中,不正確的敘述是_A_。（1分）A、變量Age的值是數(shù)值20B、對(duì)話框標(biāo)題欄中顯示的是"年齡輸入框"C、對(duì)話框的默認(rèn)值是38D、對(duì)話框的提示文字為"請(qǐng)輸入數(shù)值"114、執(zhí)行程序段：Const c$ = "Henan": c$ = "Zhengzhou": c$ = "Daxue": Print c$，輸出的結(jié)果是_D_。（1分）A、HenanB、ZhengzhouC、DaxueD、顯示出錯(cuò)信息115、執(zhí)行程序段：a$ = "Visual Basic

41、Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6) & Right$(a$, 11)，變量c$的值為_D_。（1分）A、Visual BASIC ProgramingB、Quick Basic programingC、QUICK Basic ProgramingD、Quick BASIC Programing116、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是_B_。（1分）A、輸出平均值B、將一個(gè)實(shí)數(shù)四舍五入取整并輸出C、輸出絕對(duì)值D、舍去

42、一個(gè)實(shí)數(shù)的小數(shù)部分并輸出117、執(zhí)行程序段：m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$)，輸出的結(jié)果是_D_。（1分）A、abcabcB、ABCABCC、65D、97118、下列表達(dá)式中，表示"X和Y之中有一個(gè)是奇數(shù)"的表達(dá)式是_D_。（1分）A、X Mod 2 = 1 And Y Mod 2 = 1B、X Mod 2 = 1 Or Y Mod 2 = 1C、(X Mod 2 = 1 And Y Mod 2 = 0) And (

43、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、下列符號(hào)中，屬于Visual Basic合法變量名的是_A_。（1分）A、x23B、8xyC、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ù)為: " N2、* 在窗體上畫一個(gè)命令按鈕，然后編寫如下

44、事件過程： Private Sub Command1_Click() Dim a As String, b As Integer a = InputBox ("請(qǐng)輸入一個(gè)數(shù)字") b = InputBox("請(qǐng)輸入一個(gè)數(shù)字") Print "s" a; b; "ok" End Sub 程序運(yùn)行后，單擊命令按鈕，在輸入對(duì)話框中分別輸入321和456，輸出結(jié)果為：s321 456 ok。3、* 計(jì)算s = (1-1/2)*(1-1/3)*.(1-1/10) s = 1 For x = 2 To 10 s = s * (

45、1 - 1 / x) Next x Print s4、* 求菲波那契數(shù)列（1、1、2、3、5、8.）的第3到10項(xiàng)的值。 * 程序段如下： A(1) = 1 A(2) = 1 I = 3 Do While I <= 10 A(I) = A(I - 1) + A(I - 2) Print "第" & I & "項(xiàng)為: " A(I) I = I + 1 Loop5、* 求S=1！+2！+10! * 程序段如下： s = 0 t = 1 For i = 1 To 10 t= t * i s = s + t Next i Print s6、

46、* 下面的程序在運(yùn)行結(jié)束時(shí)一共執(zhí)行循環(huán)體5 次，最后打印結(jié)果為16 。 For i = 1 To 10 Step 1 i = i + 1 j = j + 1 Next Print i + j7、* 求SUM=1×2×3+4×5×6+7×8×9+28×29×30 * 程序段如下： sum=0 I = 2 Do While I <= 30 Sum = Sum + (I - 1) * I * (I + 1) I =I + 3 Loop Print "總和為：" Sum8、* 設(shè)在窗體上面有兩個(gè)文

47、本框（Name屬性分別為Text1和Text2）和一個(gè)命令按鈕（Name屬性為Command1），然后編寫如下兩個(gè)事件過程，則程序運(yùn)行結(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 Sub9、* 判斷N是否為完全數(shù)（一個(gè)數(shù)等于它所有因子（不包括自身）之和，如6=1+2+3）。 * 程序段如

48、下： I = 1 N=InputBox("請(qǐng)輸入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 If10、* 計(jì)算 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.

49、000001 Print Term11、* 下面程序用于求小于和等于50的自然數(shù)的平方和，請(qǐng)?zhí)羁铡?* 程序段如下： private sub form_click()dim sum as long sum=0 for i=1 to 50 sum=sum +i2 next i print sum end sum12、* 下面程序的功能是隨機(jī)產(chǎn)生一個(gè)三位數(shù)正整數(shù)，將該數(shù)和該數(shù)的逆序同時(shí)輸出。Private Sub Form_Click() Dim a%, s As String, c As String Randomize a = Int(Rnd * (999 - 100 + 1) + 100)

50、s = Format(a) c = Right(s, 1) & Mid(s, 2, 1) & Left(s, 1) Print "三位數(shù)是" & a Print a & "的逆序是" & cEnd Sub13、* 使用Select Case結(jié)構(gòu)將一年中的12個(gè)月份，分成四個(gè)季節(jié)輸出。 Private Sub Form_Click() Dim m% m = InputBox("請(qǐng)輸入月份") Select case m Case 1, 2, 3 Print m & "月是第一季度

51、" Case 4, 5, 6 Print m & "月是第二季度" Case 7, 8, 9 Print m & "月是第三季度" Case 10, 11, 12 Print m & "月是第四季度" End Select End Sub14、* 根據(jù)/4=1-1/3+1/5-1/7+.+(-1)n-1/(2n-1)，分別求n=1000、1500、2000、2500時(shí)的近似值。 * 程序代碼如下： Private Sub Form_Click() For i = 1000 To 2500 step 5

52、00 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 Sub15、* 使用雙循環(huán)實(shí)現(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 Sub16、* 執(zhí)行下列事件代碼： Private Sub Command1_Click() Dim MyString As String Dim MyLen As Integer MyString = "Hello World" MyLen = 2+len (MyString) Print MyLen End Sub 在彈出的消息對(duì)話框中的內(nèi)容是：13。17、* 判斷正整數(shù)M是否為素?cái)?shù)。 *