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

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

鄭州大學(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)化的程序設(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、能夠盛放其他控件，而且是最基本的對象是_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í)每單擊一次命令按鈕，標(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控件對象設(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 -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、BackColorC、BackStyleD、BorderStyle14、Print Format(1234.234, #.#); Format(1234.234, #.#)的顯示結(jié)果是_A_。（1分）A、1234.234 1234.23B、123.23400 1234.234C、123.23400 1234.23D、1234.2341234.23415、運(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、以上全部內(nèi)容17、如果想用Print方法將計(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ù)只能確定對話框中顯示的按鈕數(shù)20、能夠通過標(biāo)準(zhǔn)工具欄打開的窗口是_C_。（1分）A、代碼窗口B、設(shè)計(jì)器窗口C、屬性窗口D、立即窗口21、在下列邏輯表達(dá)式中，邏輯值為真的是_A_。（1分）A、Not (1 2)B、Not (3 + 4 2 Or 2 3D、2 1 And 3 = 1.7 And W = 52.5B、T = 52.5C、T 1.7 And W 1.7 Or W 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) + m30、執(zhí)行語句Print Format(32548.5, #,#0.00)，輸出結(jié)果是_D_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5031、下列選項(xiàng)中，_D_不是字符串常量。（1分）A、你好B、C、TrueD、#False#32、下列不合法的常量形式是_C_。（1分）A、1O0B、100.0C、1OE+0.5D、Const G = 23 + 1233、表達(dá)式Val(.123E2CD)的值是_B_。（1分）A、.123B、12.3C、OD、.123E2CD34、下列符號中，屬于Visual Basic合法變量名的是_A_。（1分）A、x23B、8xyC、ENDD、X8B35、下列符號常量的聲明中，_C_是不合法的。（1分）A、Const a As Single = 2.6B、Const a As String = abC、Const a As Double = Sin(1)D、Const a = OK36、表達(dá)式Turbo + C True + Basic的值是_A_。（1分）A、TrueB、FalseC、NullD、出錯(cuò)信息37、執(zhí)行MsgBox 123 + 123，信息框中可以出現(xiàn)_C_。（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è)圖形，為了清除該圖形（不刪除圖片框），應(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)的工具箱之外，還可以通過_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á)方式中省略了對象的_B_。（1分）A、方法B、屬性名C、對象名D、標(biāo)題47、窗體設(shè)計(jì)器是用于設(shè)計(jì)_D_。（1分）A、窗體的代碼B、對象的屬性C、應(yīng)用程序的代碼D、應(yīng)用程序的界面48、以下關(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ù)只能確定對話框中顯示的按鈕數(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、值的列表，例如 Case a ,b,cC、To 表達(dá)式，例如 Case 1 to 10D、Is關(guān)系表達(dá)式，例如 Case Is y Then max=x Else max=yB、max=IIF(xy , x, y)C、IF x y Then max=x : max=yD、max=x: If x=b And b l0B、(ab) Or (b2)C、(a0)D、(5a) And (b2)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 Mod 2 = 1)62、下列符號常量的聲明中，_C_是不合法的。（1分）A、Const a As Single = 1.1B、Const a As Integer = 12C、Const a As Double = Sin(1)D、Const a = OK63、以下聲明語句中，錯(cuò)誤的是_C_。（1分）A、Const varl=123B、Const var2=ABCC、Public const=計(jì)算機(jī)等級考試D、Static var3 as Integer64、下面表達(dá)式中，_D_的運(yùn)算結(jié)果與其他3個(gè)不同。（1分）A、Log(Exp(-3.5)B、Int(-3.5) + 0.5C、-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/2004B、Date(01/30/2004)C、#01/30/2004#D、01/30/200467、執(zhí)行語句Print Format(32548.5, #,#0.00)，輸出結(jié)果是_D_。（1分）A、32548.5B、32,548.5C、032,548.50D、32,548.5068、InputBox函數(shù)返回值的類型為_B_。（1分）A、數(shù)值B、字符串C、變體D、數(shù)值或字符串69、m、n是整數(shù)，且nm，在以下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 2)B、Not (3 + 4 2 Or 2 3D、2 1 And 3 True + Basic的值是_A_。（1分）A、TrueB、FalseC、NullD、出錯(cuò)信息73、執(zhí)行程序段：Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs，輸出的結(jié)果是_B_。（1分）A、232 232032B、232 232C、232.32 232.32D、顯示出錯(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分）A、0B、1C、隨機(jī)數(shù)D、顯示出錯(cuò)信息77、語句Print int(-23.4)= ; ; Int(-23.4)的輸出結(jié)果為（1分） DA、Int(-23.4)=-23.4B、(-23.4)=23.4C、Int(-23.4)=-23D、Int(-23.4)=-2478、設(shè)a=3，b=5，則以下表達(dá)式值為假的是_A_。（1分）A、a=b And b l0B、(ab) Or (b2)C、(a0)D、(5a) And (b2)79、處于設(shè)計(jì)狀態(tài)時(shí)，在窗體上雙擊鼠標(biāo)，則系統(tǒng)在代碼窗口顯示的事件過程模板是_A_。（1分）A、LoadB、ClickC、DblClickD、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 ,b,cC、To 表達(dá)式，例如 Case 1 to 10D、Is關(guān)系表達(dá)式，例如 Case Is 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=ABCC、Const y=計(jì)算機(jī)等級考試D、Static var3 as Integer94、下面關(guān)系運(yùn)算中，輸出結(jié)果為“True”的是_C_。（1分）A、1 + 2 = 12B、1 + 2 = 3C、1 & 2 = 12D、1 & 2 = 395、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是_B_。（1分）A、輸出平均值B、將一個(gè)實(shí)數(shù)四舍五入取整并輸出C、輸出絕對值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 等級;考試，輸出的結(jié)果是_A_。（1分）A、等級考試B、等級;考試C、等級考試D、等級;考試98、Single（單精度）型數(shù)據(jù)占_B_個(gè)字節(jié)。（1分）A、2B、4C、8D、1099、表達(dá)式Val(.123E2CD)的值是_B_。（1分）A、.123B、12.3C、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 Sub 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、文本框的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)于InputBox函數(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/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、TrueB、FalseC、43D、顯示出錯(cuò)信息110、表達(dá)式Turbo + C True + Basic的值是_A_。（1分）A、TrueB、FalseC、NullD、出錯(cuò)信息111、語句T = MsgBox(程序執(zhí)行了非法操作, vbAbortRetryIgnore, 提示信息)的執(zhí)行后，可以在對話框中顯示_C_個(gè)按鈕。（1分）A、1B、2C、3D、4112、如果將布爾常量值True賦給一個(gè)整型變量，則整型變量的值為_B_。（1分）A、OB、-1C、TrueD、False113、執(zhí)行語句age = InputBox(請輸入數(shù)值, 年齡輸入框, 38)，如果從鍵盤上輸入數(shù)值20并按回車鍵，則下列敘述中,不正確的敘述是_A_。（1分）A、變量Age的值是數(shù)值20B、對話框標(biāo)題欄中顯示的是年齡輸入框C、對話框的默認(rèn)值是38D、對話框的提示文字為請輸入數(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 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、輸出絕對值D、舍去一個(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 (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、x23B、8xyC、END二，填空題1、* 求正整數(shù)M和N（MN）的最大公約數(shù)。 * 程序段如下： R = M Mod N Do While R 0 M = N N = R R = M Mod N Loop Print 最大公約數(shù)為: ; N2、* 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As String, b As Integer a = InputBox (請輸入一個(gè)數(shù)字) b = InputBox(請輸入一個(gè)數(shù)字) Print s; a; b; ok End Sub 程序運(yùn)行后，單擊命令按鈕，在輸入對話框中分別輸入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 * (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、* 下面的程序在運(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=123+456+789+282930 * 程序段如下： sum=0 I = 2 Do While I = 30 Sum = Sum + (I - 1) * I * (I + 1) I =I + 3 Loop Print 總和為：; Sum8、* 設(shè)在窗體上面有兩個(gè)文本框（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）。 * 程序段如下： I = 1 N=InputBox(請輸入N的值：) Do While I = 0.000001 Print Term11、* 下面程序用于求小于和等于50的自然數(shù)的平方和，請?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) 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(請輸入月份) 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 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 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 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 在彈出的消息對話框中的內(nèi)容是：13。17、* 判斷正整數(shù)M是否為素?cái)?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 If18、* 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a As String, b As Integer a = InputBox(請輸入一個(gè)數(shù)字) b = InputBox(請輸入一個(gè)數(shù)字) Print s; a; b; ok End Sub 程序運(yùn)行后，單擊命令按鈕，在輸入對話框中分別輸入321和456，輸出結(jié)果為：s321 456 ok。19、* 在窗體上畫一個(gè)名稱為Command1的命令按鈕并編寫下列事件過程，程序運(yùn)行后，則窗體上顯示的是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 Sub20、* 下列程序段的執(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 + + G21、* 下列程序段的執(zhí)行結(jié)果為-3 3。 X = 5 Y = -20 If NOT X Y Then X = Y - 3 Else Y = X + 3 Print X - Y; Y - X22、* 古代數(shù)學(xué)家在編寫算經(jīng)時(shí)，提出了一個(gè)不定方程問題，即著名的“百雞問題”： * 雞翁一，值錢五，母雞一，值錢三，雛雞三，值錢一。百錢賣百雞，問雞翁、母、雛，各幾何？ * 程序代碼如下： 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