VisualBasic程序設(shè)計(jì)復(fù)習(xí)題

1、Visual Basic復(fù)習(xí)題 一、選擇題 1. Visual Basic的三種工作模式是【 C 】。 （A）編輯、運(yùn)行、中斷 （B）編譯、中斷、設(shè)計(jì) （C）運(yùn)行、設(shè)計(jì)、中斷 （D）編輯、編譯、運(yùn)行2. 如果要使窗體的最大化按鈕變成暗灰色（不起作用），應(yīng)設(shè)置窗體的【 C 】屬性。（A）Caption （B）Icon （C）MaxButton （D）MinButton3. 在設(shè)計(jì)階段，雙擊窗體Form1的空白處，打開(kāi)代碼窗口，顯示【 B 】事件過(guò)程模板。 （A）Form_Click （B）Form_Load （C）Form1_Click （D）Form1_Load4. 設(shè)在窗體上有兩個(gè)命令按扭，

2、其中一個(gè)命令按鈕的名稱為cmda，則另一個(gè)命令按鈕的名稱不能是【 C 】。 （A）cmdc （B）cmdb （C）cmdA （D）Command15.以下可以作為Visual Basic變量名的是【 C 】。 （A）F1.1 （B） （C）F2A （D）2FA6假設(shè)某一工程文件的工程資源管理器窗口如圖2-3所示，則該工程文件的磁盤(pán)文件名為【 B 】。圖2-3 某工程的工程資源管理器窗口 （A）工程1.vbp （B）exer21.vbp （C）Form1.frm （D）exer21.frm7假設(shè)某一工程文件的工程資源管理器窗口如圖2-3所示，則窗體文件的磁盤(pán)文件名為【 D 】。圖2-3 某工程的

3、工程資源管理器窗口 （A）工程1.vbp （B）exer21.vbp （C）Form1.frm （D）exer21.frm8假設(shè)某一工程文件的工程資源管理器窗口如圖2-3所示，則標(biāo)準(zhǔn)模塊文件的磁盤(pán)文件名為【 D 】。圖2-3 某工程的工程資源管理器窗口 （A）工程1.vbp （B）exer21.vbp （C）Form1.frm （D）exer21.bas 9 Visual Basic程序設(shè)計(jì)語(yǔ)言屬于【 C 】。 （A）面向過(guò)程的語(yǔ)言 （B）面向問(wèn)題的語(yǔ)言 （C）面向?qū)ο蟮恼Z(yǔ)言 （D）面向機(jī)器的語(yǔ)言10當(dāng)將窗體的【 C 】屬性值設(shè)置為False時(shí)，將不顯示窗體的控制菜單、最大化/最小化及關(guān)閉按鈕

4、。 （A）MaxButton （B）MinButton （C）ControlBox （D）WindowState11要在窗體上顯示圖片，需設(shè)置窗體的【 C 】屬性。 （A）Caption （B）Icon （C）Picture （D）ControlBox12如果設(shè)計(jì)時(shí)在屬性窗口將命令按鈕的【 B 】屬性設(shè)置為False，則運(yùn)行時(shí)按鈕不起作用。 （A）Visible （B）Enabled （C）DisabledPicture （D）Default13語(yǔ)句X=X+1的正確含義是【 C 】。 （A）變量X的值與X+1的值相等 （B）將變量X的值存到X+1中去 （C）將變量X的值加1后賦給變量X （D）

5、變量X的值為114變量未賦值時(shí)，數(shù)值型變量的值為【 A 】。 （A）0 （B）空串"" （C）Null （D）沒(méi)任何值15顯示如圖4-1所示的輸入框的語(yǔ)句是【 A 】。 （A）A = InputBox("請(qǐng)輸入一個(gè)正整數(shù)", "示例", "1") （B）A = InputBox("示例", "請(qǐng)輸入一個(gè)正整數(shù)", "1") （C）A = InputBox("1", "示例", "請(qǐng)輸入一個(gè)正整數(shù)"

6、) （D）A = InputBox("請(qǐng)輸入一個(gè)正整數(shù)", "1", "示例")圖4-1 輸入框（一）16將文本框的【 A 】屬性設(shè)置為T(mén)rue時(shí)，文本框可以輸入或顯示多行文本，且會(huì)在輸入的內(nèi)容超出文本框的寬度時(shí)自動(dòng)換行。 （A）MultiLine （B）ScrollBars （C）Text （D）Enabled17如果將文本框的【 A 】屬性設(shè)置為T(mén)rue，則運(yùn)行時(shí)不能對(duì)文本框中的內(nèi)容進(jìn)行編輯。 （A）Locked （B）MultiLine （C）TabStop （D）Visible18在設(shè)計(jì)階段，當(dāng)雙擊窗體上的某一個(gè)文本框控件時(shí)，

7、系統(tǒng)將在代碼窗口中顯示該文本框控件的【 C 】事件過(guò)程模板。 （A）Click （B）DblClick （C）Change （D）GotFocus19下面程序段的功能是【 D 】。 A = 10.5 B = Int(A + 0.5) Debug.Print B （A）求平均值 （B）將一實(shí)數(shù)四舍五入取整 （C）求絕對(duì)值 （D）舍去一實(shí)數(shù)的小數(shù)部分20以下【 C 】程序段可以實(shí)現(xiàn)X，Y變量值的交換。 （A）Y = X: X = Y （B）Z = X: Y = Z: X = Y （C）Z = X: X = Y: Y = Z （D）Z = X: W = Y: Y = Z: X = Y21語(yǔ)句Prin

8、t "Sgn(-26)=" Sgn(-26)的輸出結(jié)果為【 C 】。 （A）Sgn(-26)=26 （B）Sgn(-26)=-26 （C）Sgn(-26)=-1 （D）Sgn(-26)=122下列程序段的執(zhí)行結(jié)果為【 B 】。 X = 2.4 : Z = 3 : K=5 Print "A("X + Z * K;")" （A）A( 17 ) （B）A( 17.4 ) （C）A( 18 ) （D）A( 2.4 + 3*5 )23下列程序段的執(zhí)行結(jié)果為【 A 】。 X=0 Print X-1 X=3 （A）-1 （B）3 （C）2 （D）0

9、24若要使標(biāo)簽控件顯示時(shí)，不覆蓋其背景內(nèi)容，應(yīng)設(shè)置標(biāo)簽控件的【 D 】屬性。 （A）BackColor （B）BorderStyle （C）ForeColor （D）BackStyle25下列敘述不正確的是【 B 】。 （A）注釋語(yǔ)句是非執(zhí)行語(yǔ)句，僅對(duì)程序的有關(guān)內(nèi)容起注釋作用，它不被解釋和編譯 （B）注釋語(yǔ)句可以放在代碼中的任何位置 （C）注釋語(yǔ)句不能放在續(xù)行符的后面 （D）代碼中加入注釋語(yǔ)句的目的是提高程序的可讀性26下列語(yǔ)句正確的是【 D 】。 （A）If AB Then T=A A=B B=T （B）If AB Then T=A;A=B;B=T （C）If A>=B Then T=

10、A A=B B=T （D）If A>=B Then T=A:A=B:B=T27. 下列語(yǔ)句正確的是【 A 】。 （A）If X<3*Y And X>Y Then Y=X3 （B）If X<3*Y And X>Y Then Y=X3 （C）If X<3*Y:X>Y Then Y=X3 （D）If X<3*Y And X>Y Then Y=X*328關(guān)于語(yǔ)句If x = l Then y = 1，下列說(shuō)法正確的是【 C 】。 （A）x=1和y=1均為賦值語(yǔ)句 （B）x=1和y=1均為關(guān)系表達(dá)式 （C）x=1為關(guān)系表達(dá)式，y=1為賦值語(yǔ)句 （D）

11、x=1為賦值語(yǔ)句，y=1為關(guān)系表達(dá)式29下列程序段【 D 】能夠正確實(shí)現(xiàn)條件：如果X<Y則A=15，否則A=-15。 （A）If X<Y Then A=15 （B）If X<Y Then A=15:Print A A=-15 A=-15: Print A Print A （C）If X<Y Then （D）If X<Y Then A=15 A=15:Print A Else A=-150 x01 0x12 1x23 x230計(jì)算分段函數(shù)：y= 下面程序段中正確的是【 C 】。（A）Select Case x Case x < 0 y = 0 Case x&g

12、t;=0 And x<1 y = 1 Case x>=1 And x<2 y = 2 Case Else y = 3 End Select（B）Select Case x Case x < 0 y = 0 Case x < 1 y = 1 Case x < 2 y = 2 Case Else y = 3 End Select（D）Select Case x Case Is < 0 y = 0 Case Is >= 0, Is < 1 y = 1 Case Is >= 1, Is < 2 y = 2 Case Is >= 2

13、 y = 3 End Select（C）Select Case x Case Is < 0 y = 0 Case Is < 1 y = 1 Case Is < 2 y = 2 Case Else y = 3 End Select31下列程序段的執(zhí)行結(jié)果為【 C 】。 X = 6 For K = 1 To 10 Step -2 X = X + K Next K Print K; X （A）-1 6 （B）-1 16 （C） 1 6 （D） 11 3132下列程序段的執(zhí)行結(jié)果為【 D 】。 X = 1 Y = 1 For I = 1 To 3 F = X + Y X = Y Y

14、= F Print F; Next I （A） 2 3 6 （B） 2 2 2 （C） 2 3 4 （D） 2 3 533下列程序段的執(zhí)行結(jié)果為【 C 】。 K = 0 For J = 1 To 2 For I = 1 To 3 K = I + 1 Next I For I = 1 To 7 K = K + 1 Next I Next J Print K （A） 10 （B） 6 （C） 11 （D） 16 34下列程序段的執(zhí)行結(jié)果為【 C 】。 For X = 5 To 1 Step -1 For Y = 1 To 6 - X Print Tab(Y + 5); "*"

15、Next Y Print Next X （A）* （B）* （C）* （D）* * * * * * * * * * * * * * * * *35用于設(shè)置粗體字的屬性是【 C 】。 （A）FontName （B）FontSize （C）FontBold （D）FontItalic36用于設(shè)置斜體字的屬性是【 D 】。 （A）FontName （B）FontSize （C）FontBold （D）FontItalic37用于設(shè)置刪除線的屬性是【 A 】。 （A）FontStrikethru （B）FontSize （C）FontBold （D）FontItalic38用于設(shè)置下劃線的屬性是【 B

16、 】。 （A）FontName （B）FontUnderline （C）FontBold （D）FontItalic39運(yùn)行時(shí)，要清除圖片框P1中的圖像，應(yīng)使用語(yǔ)句【 B 】。 （A）Picture1.Picture ="" （B）P1.Picture = LoadPicture() （C）Picture1.Picture = LoadPicture （D）Picture = LoadPicture("C:WINDOWSClouds.bmp")40默認(rèn)情況下，運(yùn)行時(shí)窗體最小化圖標(biāo)為，如果要改變?yōu)槠渌麍D標(biāo)，需設(shè)置窗體的【 B 】屬性。 （A）Caption

17、 （B）Icon （C）MaxButton （D）MinButton41.下列【 B 】程序段能刪除列表框List1中的所有項(xiàng)。（B）Private Sub Command3_Click() For I=0 To List1.ListCount-1 List1.RemoveItem 0 Next I End Sub（A）Private Sub Command3_Click() For I=0 To List1.ListCount-1 List1.RemoveItem I Next I End Sub（D）Private Sub Command3_Click() For I=0 To List1

18、.ListCount List1.RemoveItem 0 Next I End Sub（C）Private Sub Command3_Click() For I=0 To List1.ListCount-1 List1.RemoveItem 1 Next I End Sub42定時(shí)器的Interval屬性以【 C 】為單位指定Timer事件之間的時(shí)間間隔。 （A）分 （B）秒 （C）毫秒 （D）微秒43下面的數(shù)組聲明語(yǔ)句中【 B 】是正確的。 （A）Dim A3, 4 As Integer （B）Dim A(3, 4) As Integer （C）Dim A3; 4 As Integer （

19、D）Dim A(3:4) As Integer44設(shè)有數(shù)組聲明語(yǔ)句： Option Base 0 Dim B(-1 To 10,2 To 9,20) As Integer 則數(shù)組B中共有【 C 】個(gè)元素。 （A）1800 （B）1848 （C）2016 （D）231045為了添加ComboBox控件中的項(xiàng)目，需要使用【 C 】方法。 （A）Add （B）Remove （C）AddItem （D）RemoveItem46為了刪除ComboBox控件中的項(xiàng)目，需要使用【 D 】方法。 （A）Add （B）Remove （C）AddItem （D）RemoveItem47要想在過(guò)程調(diào)用后返回兩個(gè)結(jié)果

20、，下面的過(guò)程定義語(yǔ)句合法的是【 C 】。 （A）Sub Proc1(ByVal n, ByVal m) （B）Sub Proc1(n, ByVal m) （C）Sub Proc1(n, m) （D）Sub Proc1(ByVal n, m)48Sub過(guò)程與Function過(guò)程最根本的區(qū)別是【 D 】。 （A）Sub過(guò)程可以使用Call語(yǔ)句或直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以 （B）Function過(guò)程可以有參數(shù)，Sub過(guò)程不可以 （C）兩種過(guò)程參數(shù)的傳遞方式不同 （D）Sub過(guò)程的過(guò)程名不能返回值，而Function過(guò)程能通過(guò)過(guò)程名返回值49在參數(shù)傳遞過(guò)程中，使用關(guān)鍵字【 A 】

21、來(lái)修飾參數(shù)，可以使之按值傳遞。 （A）ByVal （B）ByRef （C）Value （D）Reference50通用過(guò)程可以通過(guò)執(zhí)行“工具”菜單中的【 A 】命令來(lái)建立。 （A）添加過(guò)程 （B）通用過(guò)程 （C）添加窗體 （D）添加模塊51執(zhí)行“工程”菜單中的【 D 】命令，可以添加一個(gè)標(biāo)準(zhǔn)模塊。 （A）添加過(guò)程 （B）通用過(guò)程 （C）添加窗體 （D）添加模塊52在窗體模塊的通用聲明段中聲明變量時(shí)，不能使用【 D 】關(guān)鍵字。 （A）Dim （B）Public （C）Private （D）Static53使用Public Const語(yǔ)句聲明一個(gè)全局的符號(hào)常量時(shí)，該語(yǔ)句應(yīng)放在【 C 】。 （A）過(guò)

22、程中 （B）窗體模塊的通用聲明段 （C）標(biāo)準(zhǔn)模塊的通用聲明段 （D）窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段54可以在窗體模塊的通用聲明段中聲明【 A 】。 （A）全局變量 （B）全局常量 （C）全局?jǐn)?shù)組 （D）全局用戶自定義類型55在用菜單編輯器設(shè)計(jì)菜單時(shí)，必須輸入的項(xiàng)是【 D 】。 （A）快捷鍵 （B）標(biāo)題 （C）索引 （D）名稱56執(zhí)行語(yǔ)句Form1.ScaleLeft = 100：Form1.ScaleTop = 200之后，窗體Form1的左上角坐標(biāo)為【 C 】。 （A）(0,0) （B）(200,100) （C）(100,200) （D）視ScaleMode屬性的當(dāng)前值而定57Cls方法可以

23、清除窗體或圖片框中的【 C 】?jī)?nèi)容。 （A）在設(shè)計(jì)階段使用Picture屬性設(shè)置的背景位圖 （B）在設(shè)計(jì)階段放置的控件 （C）在運(yùn)行階段產(chǎn)生的圖形和文字 （D）以上全部?jī)?nèi)容58通過(guò)設(shè)置Shape控件的【 A 】屬性可以繪制多種形狀的圖形。 （A）Shape （B）BorderStyle （C）FillStyle （D）Style59以下不合法的常量是【 A 】。 （A）102 （B）100 （C）100.0 （D）10E+0160Visual Basic中的數(shù)據(jù)也可以以十六進(jìn)制或八進(jìn)制表示，十六進(jìn)制數(shù)據(jù)以【 D 】符號(hào)開(kāi)頭。 （A）$E （B）$H （C）&O （D）&H61表

24、達(dá)式Val(".123E2CD")的值是【 B 】。 （A）.123 （B）12.3 （C）0 （D）.123E2CD62下列敘述中不正確的是【 C 】。 （A）變量名的第一個(gè)字符必須是字母 （B）變量名的長(zhǎng)度不超過(guò)255個(gè)字符 （C）變量名可以包含小數(shù)點(diǎn)或者內(nèi)嵌的類型聲明字符 （D）變量名不能使用關(guān)鍵字63表達(dá)式52 Mod 2522的值是【 A 】。 （A）1 （B）0 （C）6 （D）464表達(dá)式 25.28 Mod 6.99 的值是【 C 】。 （A）1 （B）5 （C）4 （D）出錯(cuò)65Int(100*Rnd(1)產(chǎn)生的隨機(jī)整數(shù)的閉區(qū)間是【 A 】。 （A）0,9

25、9 （B）1,100 （C）0,100 （D）1,99 二、填空題1GUI是指圖形用戶界面。2傳統(tǒng)的編程方法是面向 過(guò)程 的，Visual Basic是一種面向 對(duì)象 的程序設(shè)計(jì)開(kāi)發(fā)工具。3Visual Basic 采用 事件 驅(qū)動(dòng)的編程機(jī)制，程序員只需要編寫(xiě)響應(yīng)用戶動(dòng)作的程序，而不必考慮按精確次序執(zhí)行的每個(gè)步驟。4一個(gè)工程可以包括多種類型的文件，其中，擴(kuò)展名為.vbp的文件表示 工程 文件；擴(kuò)展名為.frm的文件表示 窗體 文件；擴(kuò)展名為.bas的文件表示 標(biāo)準(zhǔn)模塊 文件；包含ActiveX控件的文件擴(kuò)展名為 .OCX 。5對(duì)象是代碼和數(shù)據(jù)的集合，例如，Visual Basic中的窗體、控件

26、、菜單等都是對(duì)象。6屬性用于描述對(duì)象的一些特征，設(shè)置對(duì)象的屬性有兩種方法，一種是在設(shè)計(jì)期在屬性 窗口中設(shè)置；另一種是在運(yùn)行期進(jìn)行設(shè)置，設(shè)置格式為對(duì)象名.屬性名=屬性值。大部分屬性可以用以上兩種方法進(jìn)行設(shè)置，而有些屬性只能用一種方法設(shè)置。7事件就是在對(duì)象上所發(fā)生的事情，Visual Basic中的事件如單擊、雙擊、裝載等。8一個(gè)應(yīng)用程序可以有多個(gè)窗體，使用工程菜單下的添加窗體命令，或使用工具欄的添加窗體 按鈕可以添加一個(gè)新的窗體。9關(guān)系式X-5或X5所對(duì)應(yīng)的布爾表達(dá)式是：X<=-5 Or X>=510閏年的條件是：年號(hào)（Y）能被4整除，但不能被100整除；或者年號(hào)能被400整除，表示

27、該條件的布爾表達(dá)式是：Y Mod 4 =0 And Y Mod 100<>0 Or Y Mod 400=0 11寫(xiě)出下面Format函數(shù)的值： （1）Format(5459.4, "#,#0.00") 值為：5,459.40 （2）Format(334.9, "#") 值為：335 （3）Format(0.6725, "0.00") 值為：0.67 （4）Format(0.6725, "#.00") 值為：.67 （5）Format("HELLO", "<"

28、) 值為：hello （6）Format("This is it", ">") 值為：THIS IS IT12以下程序用于判斷輸入的年份是否是閏年。如果年份能被4整除但不能被100整除，或者年份能被400整除，則該年為閏年；否則不是閏年。 Private Sub Command1_Click() y = InputBox("請(qǐng)輸入年份") If y Mod 4 = 0 And y Mod 100 <> 0 Or y Mod 400 = 0 Then Print y & "年為閏年" Els

29、e Print y & "年不是閏年" End If End Sub13下面的程序用于求三個(gè)數(shù)中的最大數(shù)。 Private Sub Command1_Click() a = Val(InputBox("請(qǐng)輸入第一個(gè)數(shù)") b = Val(InputBox("請(qǐng)輸入第二個(gè)數(shù)") c = Val(InputBox("請(qǐng)輸入第三個(gè)數(shù)") Max = a Min = a If b > a Then Max = b If b < a Then Min = b If c > Max Then Max

30、= c If c < Min Then Min = c Print "最大數(shù)為" Max Print "最小數(shù)為" Min End Sub14下面的事件過(guò)程實(shí)現(xiàn)從鍵盤(pán)輸入兩個(gè)變量的值，交換這兩個(gè)變量的值，并將交換后的結(jié)果顯示在立即窗口中。 Private Sub Form_Load() Dim a As Double, b As Double, c As Double a = Val(InputBox("請(qǐng)輸入a") b = A A Debug.Print a A End Sub供選擇的答案： （1）（A）Val(InputBo

31、x("請(qǐng)輸入b") （B）(InputBox("請(qǐng)輸入b")（C）Val(InputBox("請(qǐng)輸入a") （D）(InputBox("請(qǐng)輸入a") （2）（A）c = a : a = b : b = c （B）a = b : b = a（C）c = a : b = c : a = b （D）b = a : a = b （3）（A）Debug.Print b （B）Form1.Print b（C）Picture1.Print b （D）Print b15以下程序用來(lái)產(chǎn)生20個(gè)(0,99)之間的隨機(jī)整數(shù)，并將其中的偶

32、數(shù)打印出來(lái)。 Private Sub Command1_Click() Randomize For I = 1 To 20 X = Int(Rnd * 98 + 1) If X / 2 = Int(X / 2) 或 X 2 Then Print X Next I End Sub16設(shè)某個(gè)程序中要用到一個(gè)二維數(shù)組,要求： 數(shù)組名為A，類型為字符串類型，第一維下標(biāo)從1到5，第二維下標(biāo)從-2到6，則相應(yīng)的數(shù)組聲明語(yǔ)句為： Dim A(1 To 5, -2 To 6) As String 17設(shè)有數(shù)組聲明語(yǔ)句：Dim A(-1 To 2,2) As Integer，則數(shù)組A中包括的所有元素有： A(-

33、1,0) A(-1,1) A(-1,2) A(0,0) A(0,1) A(0,2) A(1,0) A(1,1) A(1,2) A(2,0) A(2,1) A(2,2) 18設(shè)有數(shù)組聲明語(yǔ)句：Dim A(-1 To 2,-1 To 1) As Long，則數(shù)組A中包括的所有元素有：A(-1,0) A(-1,1) A(-1,2) A(0,0) A(0,1) A(0,2) A(1,0) A(1,1) A(1,2) A(2,0) A(2,1) A(2,2)19定義動(dòng)態(tài)數(shù)組需要分兩步進(jìn)行，首先在模塊級(jí)或過(guò)程級(jí)定義一個(gè)沒(méi)有下標(biāo)的數(shù)組，然后再 使用ReDim語(yǔ)句定義數(shù)組的實(shí)際元素個(gè)數(shù)。20菜單分為下拉式菜單

34、和 彈出式 菜單，菜單總與 窗體 相關(guān)聯(lián)，設(shè)計(jì)菜單需要在菜單編輯器中設(shè)計(jì)。21不可以給頂級(jí)菜單設(shè)置快捷鍵。22菜單控件只包含一個(gè)click 事件。23菜單編輯器的“標(biāo)題”選項(xiàng)對(duì)應(yīng)于菜單控件的Caption屬性。 菜單編輯器的“名稱”框?qū)?yīng)于菜單控件的Name 屬性。 菜單編輯器的“索引”選項(xiàng)對(duì)應(yīng)于菜單控件的Index屬性。 菜單編輯器的“復(fù)選”選項(xiàng)對(duì)應(yīng)于菜單控件的Checked屬性。 菜單編輯器的“有效”選項(xiàng)對(duì)應(yīng)于菜單控件的Enabled屬性。 菜單編輯器的“可見(jiàn)”選項(xiàng)對(duì)應(yīng)于菜單控件的Visible屬性。24要在菜單中建立分隔符條，應(yīng)在菜單編輯器的 標(biāo)題選項(xiàng)中鍵入一個(gè) - 符號(hào)。25表示控件與

35、窗體頂部距離的屬性是TOP。表示控件與窗體左側(cè)距離的屬性是Left。表示控件寬度的屬性是Width。表示控件高度的屬性是Height。26要同時(shí)選定多個(gè)控件，可以按住Ctrl或Shift鍵，再用鼠標(biāo)依次單擊各個(gè)控件。27要對(duì)選定的多個(gè)控件調(diào)整格式，如對(duì)齊、調(diào)整間距、統(tǒng)一尺寸等，可以使用格式菜單下的命令。28要運(yùn)行當(dāng)前工程，可以按鍵盤(pán)上的F5鍵。三、簡(jiǎn)答題1設(shè)窗體Form1上有兩個(gè)命令按鈕C1和C2，簡(jiǎn)單說(shuō)明以下各段事件代碼的作用（說(shuō)明當(dāng)發(fā)生什么事件時(shí)完成什么功能）。（1）Private Sub C1_KeyDown(KeyCode As Integer, Shift As Integer) F

36、orm1.BackColor = vbRed End Sub當(dāng)焦點(diǎn)在命令按鈕C1上時(shí)，按下鍵盤(pán)上的任一鍵時(shí)，將窗體Form1的背景顏色設(shè)置成紅色。（2）Private Sub C1_KeyUp(KeyCode As Integer, Shift As Integer) Form1.BackColor = vbBlue End Sub當(dāng)焦點(diǎn)在命令按鈕C1上時(shí)，抬起鍵盤(pán)上的任一鍵時(shí)，將窗體Form1的背景顏色設(shè)置成藍(lán)色。（3）Private Sub C1_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Singl

37、e) Form1.Caption = "你好" End Sub在C1按鈕上按下鼠標(biāo)時(shí)，將窗體Form1的標(biāo)題設(shè)置為“你好”。（4）Private Sub C1_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Form1.Caption = "再見(jiàn)" End Sub在C1按鈕上抬起鼠標(biāo)時(shí)，將窗體Form1的標(biāo)題設(shè)置為“再見(jiàn)”。（5）Private Sub C2_GotFocus() Form1.Caption = "使用第二個(gè)按鈕" End

38、 Sub當(dāng)C2按鈕獲得焦點(diǎn)時(shí)，將窗體Form1的標(biāo)題設(shè)置為“使用第二個(gè)按鈕”。（6）Private Sub C2_LostFocus() Form1.Caption = "不用第二個(gè)按鈕" End Sub當(dāng)C2按鈕失去焦點(diǎn)時(shí)，將窗體Form1的標(biāo)題設(shè)置為“不用第二個(gè)按鈕”。2在圖2-5中標(biāo)出以下部分：代碼區(qū)、對(duì)象下拉列表框、過(guò)程下拉列表框、過(guò)程查看按鈕、全模塊查看按鈕、拆分欄。圖2-5 代碼編輯器窗口3設(shè)在數(shù)字顯示區(qū)上顯示內(nèi)容如圖2-6所示，請(qǐng)?jiān)趫D上標(biāo)出各數(shù)字所對(duì)應(yīng)的對(duì)象的屬性。Left Top Width Height圖2-6 數(shù)字顯示區(qū)4將變量SUM1、SUM2定義為單

39、精度型；M、N定義為整型；S1、S2定義為字符串類型；YN定義成布爾型，寫(xiě)出相應(yīng)的定義語(yǔ)句。Dim SUM1 As Single,SUM2 As Single Dim M As Integer,N As Integer Dim S1 As String,S2 As String Dim YN As Boolean5寫(xiě)出下列代數(shù)式對(duì)應(yīng)的Visual Basic表達(dá)式。 （1）-a * a / (a + b) （2）2sin·cos(2-)2 * Sin(A) * Cos(2 * 3.14 - A) （3）Sqr(A * A + B * B - 2 * A * B * Cos(A) （4

40、）(X + Y) 3 * (T + U) 2 / (T * (X - Y) （5）(e3x+ln5x)y （注：e為自然對(duì)數(shù)的底）(Exp(3 * X) + Log(5 * X) * Y6設(shè)在窗體上有標(biāo)簽Label1，給以下程序的每一條語(yǔ)句（除第一條和最后一條語(yǔ)句之外）加上注解，說(shuō)明語(yǔ)句的功能。 Private Sub Form_Load() Show ' 對(duì)窗體使用Show方法 Const pi = 3.14 ' 定義符號(hào)常量pi的值為3.14 Dim r As Single, s As Single ' 定義r,s為單精度類型變量r = Val(InputBox(&

41、quot;請(qǐng)輸入半徑", "計(jì)算圓的面積", 2) ' 從輸入對(duì)話框輸入r的值 s = pi * r 2 ' 計(jì)算s的值 Label1.Caption = s ' 將s的值顯示在標(biāo)簽Label1上 End Sub7設(shè)窗體上有兩個(gè)標(biāo)簽Label1和Label2，兩個(gè)文本框Text1和Text2,簡(jiǎn)單說(shuō)明以下各段事件代碼的作用（說(shuō)明當(dāng)發(fā)生什么事件時(shí)完成什么功能）。（1）Private Sub Text1_Change() Label2.Caption = Text1.Text End Sub當(dāng)文本框Text1的內(nèi)容被改變時(shí)，設(shè)置標(biāo)簽Label2

42、的標(biāo)題為文本框Text1中的內(nèi)容。（2）Private Sub Text1_DblClick() Label1.Caption = Text1.Text End Sub雙擊文本框Text1時(shí)，設(shè)置標(biāo)簽Label1的標(biāo)題為文本框Text1中的內(nèi)容。（3）Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub當(dāng)文本框Text1獲得焦點(diǎn)時(shí)，選中其中的文本。（4）Private Sub Text1_LostFocus() Text2.SetFocus Text2.SelStart

43、 = 0 Text2.SelLength = Len(Text2.Text) End Sub當(dāng)文本框Text1失去焦點(diǎn)時(shí)，將焦點(diǎn)定位在Text2中，并選中其中的文本。8要顯示以下各消息對(duì)話框，請(qǐng)寫(xiě)出相應(yīng)的實(shí)現(xiàn)語(yǔ)句。圖4-3 消息對(duì)話框1 顯示圖4-3的語(yǔ)句為：MsgBox "在這里書(shū)寫(xiě)消息內(nèi)容", 3, "注意"圖4-4 消息對(duì)話框2 顯示圖4-4的語(yǔ)句為：MsgBox "在這里書(shū)寫(xiě)" & Chr(13) & "消息內(nèi)容", 4, "注意"圖4-5 消息對(duì)話框3顯示圖4-5的語(yǔ)句

44、為：MsgBox "在這里書(shū)寫(xiě)" & Chr(13) & "消息內(nèi)容", 256 + 16 + 1, "注意"四、判斷程序段的執(zhí)行結(jié)果1給出下面程序段的輸出結(jié)果。 。 A = "1" B = "2" A = Val(A) + Val(B) B = Val("12") If A <> B Then Print A - B Else Print B A結(jié)果為：-9 2給出下面程序段的輸出結(jié)果。 A = "abcd" B = &quo

45、t;bcde" E = Right(A, 3) F = Mid(B, 2, 3) If E < F Then Print E + F Else Print F + E結(jié)果為：bcdcde3. 給出下面程序段的輸出結(jié)果。 x = Int(Rnd + 4) Select Case x Case 5 Print "優(yōu)秀" Case 4 Print "良好" Case 3 Print "通過(guò)" Case Else Print "不通過(guò)" End Select結(jié)果為：良好4.給出下面程序段的輸出結(jié)果。 For

46、 X = 1.5 To 5 Step 1.5 Print X Next X結(jié)果為：1.534.55.給出下面程序段的輸出結(jié)果。 For I = -5 To -10 Step -1 X = X + I Print X Next I結(jié)果為：-5-11-18-26-35-456給出下面程序段的輸出結(jié)果。 Dim A(5, 5) For I = 1 To 3 For J = 1 To 4 A(I, J) = I * J Next J Next I For N = 1 To 2 For M = 1 To 3 Print A(M, N); Next M Next N 結(jié)果為：1 2 3 2 4 67給出下

47、面程序段的輸出結(jié)果。 Dim A(3, 3) For M = 1 To 3 For N = 1 To 3 If N = M Or N = 3 - M + 1 Then A(M, N) = 1 Else A(M, N) = 0 Next N Next M For M = 1 To 3 For N = 1 To 3 Print A(M, N); Next N Print Next M結(jié)果為：1 0 10 1 01 0 18給出單擊命令按鈕Command1的輸出結(jié)果。 Dim A() As Integer Private Sub Command1_Click() ReDim A(1 To 5) Fo

48、r I = 1 To 5 A(I) = I Next I ReDim A(1 To 10) For I = 6 To 10 A(I) = 2 * I Next I For I = 1 To 10 Print A(I); Next I End Sub結(jié)果為：0 0 0 0 0 12 14 16 18 209單擊命令按鈕時(shí)，下列程序代碼的執(zhí)行結(jié)果。 Private Sub Command1_Click() Print MyFunc(24, 18) End Sub Public Function MyFunc(m As Integer, n As Integer) As Integer Do While m <> n Do While m > n: m = m - n: Loop Do While m < n: n = n - m: Loop Loop MyFunc = m End Function結(jié)果為：610單擊窗體時(shí)，下列程序代碼的執(zhí)行結(jié)果。