1、期末考試題型：單項選擇題（30小題，共30分）填空題（20小題，共20分）編程題（4道題，共36分）程序填空（2個程序，14個空，共14分）填空題（請同學們注意：下面只是考試中涉及到的知識點，不承諾考試題是下面復習提綱中的原題）1.VB語言中，菜單分為_ _下拉式菜單_和_彈出式菜單_。2.面向對象系統的三個基本特性是_封裝性_、_繼承性_和_多態性_。3.設在窗體上有一通用對話框Commondialog1，為建立一個“打開”對話框，應把_action_屬性設置為1。（請考生注意教材188頁表格關于通用對話框的action屬性和show方法）4.命令按鈕的_Enabled_屬性為True時，表

2、示該控件有效，即能夠響應用戶的操作。5.能夠釋放窗體Form1所占用的內存空間的語句是_UnLoad Form1_。6.若有定義Dim x(-2 to 4) as Integer，則函數UBound(x)的值為_4_。7.如果要從順序文件中讀數據，則打開方式應為_Input_。8.關鍵字_Variant_用于定義變體類型數據。9.XOR是_異或_運算符。10.表示變量x既是5的倍數，也是7的倍數的邏輯表達式為_x mod 5=0 & x mod 7=0_。11.在VB語言中，窗體文件的擴展名為 *.frm。12.向隨機文件或二進制文件中寫入數據所用的命令關鍵字為_Put_。13.函數過

3、程（或子程序過程）直接或間接地調用自身稱為_遞歸調用_。14.程序運行期間，用鼠標單擊滾動條上滑塊兩側的空白處時，滑塊的移動量是滾動條控件的_Large Change_屬性。(記住滾動條控件的常用屬性)15.設置數組下標的默認下界為1的語句是_Option Base 1_。（兩種設置數組默認下界的語句，請掌握）16.用關鍵字sub定義的過程稱為_sub 子程序過程_。（sub與function）17.鼠標指針置于工具箱窗口中的某一個控件圖標上時，就會在工具提示窗口上顯示出相應的類型名。如果顯示 " picture BOX "，該控件是_圖片框_。18.文本框的默認屬性是_T

4、ext_。19.與傳統的程序設計語言相比，Visual Basic最突出的特點是_面向對象事件驅動_。(VB的特點)20.VB窗體設計器的主要功能是_建立用戶界面_。21.兩個操作數取值相同為“假”，不同為“真”的運算符是_XOR_。22.在程序中，要在圖片框或圖像框中加載圖片，可用函數_Load Picture_。23.有一名為menuItem的菜單項，為了在程序運行時使該菜單項失效，應使用的語句為_MenuItem.Enabled=False_。24.能夠加載并顯示窗體Form1的語句是_Form1.Show_。25.程序運行期間，如果拖動滾動條上的滾動塊，則觸發的滾動條事件是_Scrol

5、l 事件_。26.在VB中，字符串"天津2003Test"需要的長度為_10_。27.在VB中，聲明貨幣類型變量所用的關鍵字為_Currency_。28.能夠表示當整型變量x是奇數時為真的VB表達式為_x mod <>0_。29.數學表達式寫成VB表達式為_sin(45/180*3.14159_)+sqr(log(3*x5)+6*exp(x)_。30.從結構化程序設計角度看，程序的控制結構分為_順序_、_選擇_和_循環_。31.鼠標指針置于工具箱窗口中的某一個控件圖標上時，就會在工具提示窗口上顯示出相應的類型名。如果顯示"Image"，該控件

6、是_圖像框_。(請考生注意教材第11頁上各類控件)32.在VB語言中，提前結束子程序過程的執行需要使用命令_Exit sub_。33.VB程序中的對話框分為_預定義對話框_、自定義對話框和通用對話框。34.在VB中，聲明布爾類型變量所用的關鍵字為_Boolean_。35.賦值語句a=123 & mid(“123456”，3，2)執行后，變量a的值是_“_-_12334_-_"_。36.根據文件中數據存取方式的不同，可以將數據文件分為順序文件、_隨機文件_和_二進制文件_。37.從結構化程序設計角度看，程序的控制結構分為_順序結構_、選擇結構和循環結構。38.在VB語言中，用關

7、鍵字function定義的過程稱為_Found函數過程_。39.在應用領域中，任何有意義的事物稱為_對象_。40.在VB語言中，用_菜單編輯器_設計菜單和菜單項。41.定義過程或函數時，形參之前有關鍵字_“By Val_”_，表示按參數值傳遞數據。42.名稱屬性相同的同類型控件稱為_控件組_。43.表示列表框中選項數目的屬性為_Listcount_。44.VB程序中的對話框分為_預定義對話框_、自定義對話框和通用對話框。45.語句Dim arr(3，2 to 4) As Integer定義的數組arr含有的元素個數為_12_。46.控件數組的下標對應控件的_Index_屬性。47.能夠表示當整

8、型變量x是偶數時為真的VB表達式為_x mod 2 =0_。48.若要求文本框顯示多行文本，應將文本框的_Multiline_屬性設置為True。49.VB語言中，數組可分為_固定大小數組_和可變大小的數組。50.能夠提前結束Do.Loop結構循環的語句為_Exit Do_。51.VB語言中，可用_Print_方法輸出數據。52.能夠表示隨機產生一個兩位整數的VB表達式為_Int（Rnd*90+10）_。53.在VB語言中，有兩種形式的常量，分別為_普通常量_和_符號常量_。54.按照執行方式，高級程序設計語言分為_解釋型高級語言_和_編譯型高級語言_兩種。55.在VB窗口中進行界面設計時，若

9、雙擊窗體中的某個控件對象，打開的窗口是_代碼窗口_。56.表達式120+mid(“123456789”,3,3)的值為_465_。57.定義全局變量需要使用關鍵字_Public_。58.使用_Load_方法能夠裝載窗體，但不能顯示該窗體。59.在VB中，聲明雙精度類型變量所用的關鍵字為_Double_。選擇題1.具有_C_特點的程序設計稱為面向對象的程序設計。A.鏈接、嵌入、動態數據交換B.可視化、結構化C.封裝性、繼承性、多態性D.只包含順序、選擇、循環三種結構2.下列關于對象中屬性和方法的定義中，不正確的是_D_。A.屬性，就是類中所定義的數據B.屬性是客觀實體所具有的性質的抽象C.方法，

10、就是對象所能執行的操作D.方法是用于調用對象以外的函數3.在VB集成開發環境中，啟動VB后則顯示"新建工程"對話框，此時默認的選項是_D_。A.VB 應用程序向導B. ActivX EXEC. ActivX DLLD.標準 EXE4.VB使用“工程管理”用來建立一個應用程序的所有文件，一般一個工程至少應含有_B_。A.標準模塊文件和類模塊文件B.工程文件和窗體文件C.工程文件和類模塊文件D.工程文件和標準模塊文件5.下列設置中，可以使命令按鈕Command1處于不可見狀態的是_D_。A.Command1.Enabled=TrueB.Command1.Enabled=Fals

11、eC.Command1.Visible=TrueD.Command1.Visible=False6.下列設置中，可以使計時器Timer1停止計時的是_D_。A.Timer1.Locked=TrueB.Timer1.Enabled=TrueC.Timer1.Interval=1D.Timer1.Interval=07.文本框的默認屬性是_D_。A.CaptionB.NameC.EnabledD.Text8.復選框處于選中狀態時，它的Value屬性值是_D_。A.FalseB.TrueC.0D.19.使用_A_方法，可以刪除列表框中的一個項目。A.RemoveItemB.RemoveC.Clear

12、D.Move10.改變顯示在窗體標題欄中的標題，使用的屬性是_C_。A.(名稱)B.FontNameC.CaptionD.Text11.設置_A_屬性，可以使圖片顯示在圖片框或圖像框中。A.PictureB.ImageC.IconD.DownPicture12.下列不能接收焦點的控件是_B_。A.命令按鈕B.標簽C.文本框D.單選按鈕13.程序運行期間，用鼠標單擊滾動條上滑塊兩側的空白處時，滑塊的移動量是_D_。A.MinB.MaxC.SmallChangeD.LargeChange14.在菜單設計窗口，如果希望為子菜單項添加分隔線，則可在菜單中插入一個菜單項，將該菜單項的標題屬性設置為_C_

13、。A.除號(/)B.乘號(*)C.減號(-)D.加號(+)15.關鍵字_D_用于定義變體類型數據。A.DoubleB.CurrencyC.BooleanD.Variant16.整數除法的運算符是_C_。A.%B./C.D.Mod17.運算符"&"是_B_運算。A.邏輯與B.字符串連接C.關系D.算術18.多分支選擇結構的Case語句，寫法錯誤的是_A_。A.Case 1，5，7，9 B.Case 1 To 5C.Case 5 To 1D.Case Is<"max" 19.用于退出for-next循環結構的語句是_A_。A.Exit forB

14、.End NextC.ExitD.End for20.下列程序運行后，單擊Command1按鈕，標簽Label1中顯示的內容是_A_。Option Base 1Private Sub Command1_Click()Dim a(3， 4) As Integer， i As Integer， j As IntegerFor i = 1 To 3For j = 1 To 4a(i， j) = a(i， j) + i + jNext jNext iLabel1 = a(3， 4)End SubA.7B.12C.16D.521.對窗體編寫如下事件過程。程序運行后，在窗體上單擊鼠標右鍵，則輸出結果為_B

15、_。Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)If Button = 1 Then Print "AA" End SubPrivate Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y As Single)Print "BB"End SubA.BBAAB.AABBC.AAD.BB22.下列語句中，能夠暫時隱藏窗體Form1，但不釋放它

16、所占用的內存空間的是_D_。A.Unload Form1B.Form1.UnloadC.Hide Form1D.Form1.Hide23.在窗體上有一個文本框控件，名稱為Text1；一個命令按鈕，名稱為Command1，并有以下事件過程。程序運行后，單擊Command1按鈕，在文本框中顯示的內容是_C_.Private Sub Command1_Click()Dim i As Integer，n As IntegerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End SubA.2B.4C.3D.524.

17、設窗體中包含1個命令按鈕-Command1，1個標簽-Label1；并有以下的事件過程。程序運行后，單擊Command1按鈕，標簽中顯示的內容是_C_。Private Sub Command1_Click()Dim i As Integer，n As Integeri=1n=0do while i<10n=n+ii=i*(i+1)looplabel1=i & "-" & nEnd SubA.63B.249C.429D.6-925設窗體中包含1個命令按鈕-Command1，1個標簽-Label1；并有以下的事件過程。程序運行后，單擊Command1按鈕，

18、標簽中顯示的內容是_B_。Private Sub Command1_Click()Dim i As Integer， j As Integer， n As IntegerFor i = 1 To 3For j = i To 4n = n + i + jNext jNext iLabel1 = nEnd SubA.30B.42C.24D.2626-27在窗體上畫兩個標簽，名稱分別為Label1和Label2，Caption屬性分別為“數值”及空白；然后再畫一個名稱為Hscroll1的水平滾動條，其Min的值為0，Max的值為100。程序運行后，如果單擊滾動條兩端的箭頭，則在標簽Label2中顯示

19、滾動條的值。請將程序填完全。Private Sub Hscroll1_ _B_() 26Label2.Caption=Hscroll1._C_ 27End Sub26A.LostFocusB.ChangeC.KeyPressD.Scroll27A.SmallChangeB.LargeChangeC.ValueD.Width28-29.下列程序是：在窗體初始化事件中，通過通用對話框的打開文件對話框只列出擴展名為.DAT的文件，而后選擇文件“A:DATA.DAT”，以順序文件方式打開完成輸出操作；單擊命令按鈕（Command1），將文本框（Text1）中的內容寫入該順序文件；單擊命令按鈕（Comm

20、and2），關閉打開的順序文件，結束程序運行。完善下列程序，實現上述功能。Private Sub Form_Initialize()CommonDialog1.Filter= "數據文件（*.DAT）|*.DAT"CommonDialog1._C_28Open _B_29For Output As #1End SubPrivate Sub Command1_Click()Print #1，Text1.TextEnd SubPrivate Sub Command2_Click()Close #1ENDEnd Sub28A.Action = 2B.Action = 3C.Sho

21、wOpenD.ShowSave29A.CommonDialog1.FileTitleB.CommonDialog1.FileNameC.CommonDialog1.FilterD.CommonDialog1.Title30.在窗體上畫一個標簽名稱分別為 Label1 和 Label2，再畫一個命令按鈕，名稱為 Command1，程序運行時，單擊 Command1 按鈕，在 Label1 上顯示系統時間、清除標簽2上顯示的信息并使 Command1 按鈕不響應事件(呈暗淡色)。請將程序填完全。Private Sub Command1_click( )Label1.Caption =time$La

22、bel2.Caption=""Command1._A_=falseEnd SubA.EnabledB.CaptionC.DefaultD.Cancel31.VB是面向GUI的可視化編程語言，它采用的程序設計方法是_C_。A.面向對象、順序驅動B.面向過程、事件驅動C.面向對象、事件驅動D.面向過程、順序驅動32.下列關于對象和類的說法中，正確的是_B_。A.包含參數調用和返回值的函數就具有對象的一切特點。B.在應用領域中，有意義的任何事物都可以稱為對象。C.對象是無法實現數據封裝的。D.在應用領域中，有意義的任何事物都可以稱為類。33.在設計界面時，若雙擊窗體中的某個控件對

23、象，打開的窗口是_A_。A.代碼窗口B.項目（工程）窗口C.屬性窗口D.立即窗口34.每個工程都包含一個以_C_為擴展名的工程文件，這個文件用來管理工程中所有的文件。A.EXEB.BASC. .vbpD. .frm35.鼠標指針指示工具箱中某一控件上顯示“picture BOX”，該控件是_D_。A.文件框B.圖像框C.組合框D.圖片框36.VB窗體設計器的主要功能是_C_。A.顯示文字B. 畫圖C.編寫源程序代碼D.建立用戶界面37.文本框的屬性不包括_A_。A. captionB. textC. nameD. top38.設置命令按鈕的_A_屬性值為False，可以使命令按鈕處于不可用狀態

24、。A. EnabledB. ValueC. DefaultD. Cancel39.下列設置中，可以使計時器Timer1停止計時的是_D_。A.Timer1.Locked=TrueB.Timer1.Locked=FalseC.Timer1.Enabled=TrueD.Timer1.Enabled=False40標簽的默認屬性是_A_。A.CaptionB.TextC.NameD.Top41.為了將復選框(名稱為Check1)設置為選中狀態，應該使用_C_語句。A.Check1.Value=TrueB.Check1.Value=0C.Check1.Value=1D.Check1.Value=Fal

25、se42.使用_A_方法，可以清除列表框中指定的一個項目。A.RemoveItemB.ClearC.RemoveD.Move43.圖片框控件(PictureBox)與圖像控件(Image)相比，_B_。A.功能強，并且占用系統資源較少B.功能強，但占用系統資源較多C.功能弱，但占用系統資源較少D.功能弱，并且占用系統資源較多44.下列語句中，能夠把焦點移到文本框控件Text1上的是_C_。A.Text1.GetFocusB.Text1.GetFocus=TrueC.Text1.SetFocusD.Text1.SetFocus=True45.下列操作中，能夠觸發滾動條的Scroll事件的是_A_

26、。A.單擊滾動條兩端的滾動箭頭B.單擊滾動條上滑塊兩側的空白處C.單擊滾動條上的滑塊D.拖動滾動條上的滑塊46.顯示彈出式菜單必須使用專門的方法是_C_。A.upmenuB.popupmenuC.popmenuD.menu47.在VB中，字符串"天津2003Test"的長度和需要的存儲空間字節數為_D_。A.12和10B.10和12C.12和12D.10和2048.在VB中，聲明一個變量為局部變量（私有變量）應該用_B_關鍵字。A.DimB.PrivateC.StaticD.Public49.在VB中，邏輯值True轉換成整數時，其值為_B_。A.1B.-1C.0D.任何非

27、0值50.設a%=20，b$="30"，則表達式a & b是_D_。A.算術表達式B.邏輯表達式C.關系表達式D.字符表達式51.設a="Visual BASIC"，下面使b="BASIC"的語句是_C_。A.b=Left$(a，8，5)B.b=Right$(a，5，5)C.b=Mid$(a，8，5)D.b=InStr(a，8)52.進行邏輯運算時，只要有一個為假，結果即為假的邏輯運算符是_A_。A.AndB.EqvC.XorD.Or53.設a=10，則執行語句a=IIf(a，a+1，a-1)后，a的值為_C_。A.10B.9

28、C.11D.054.多分支選擇結構中，Select Case語句的“測試表達式“為_D_。A.只能是數值表達式B.只能是字符串表達式C.可以是關系表達式或邏輯表達式D.可以是數值表達式或字符串表達式 55.x初值為0，下列循環語句執行后，循環體執行的次數為_A_。i=1do while x>20 x=x+i i=i+1loopA.5 次B.4 次C.0 次D.無數次56.下列程序運行后，單擊Command1按鈕，標簽Label1中顯示的內容是_A_。Option Base 0Private Sub Command1_Click()Dim a(5) As Integer， i As Int

29、eger， n As IntegerFor i = 1 To 5a(i) = in = n & a(i)Next iLabel1 = nEnd SubA. 12345B. 15C. 55D.程序報錯，Label1不能得出結果57.下面的程序運行后，輸出結果為_C_。Option Base 1Private Sub form_Click_x = Array(10， 25， 15， 20， 20)p = x(1)For i = 2 To 5If x(i) > p Thenp = x(i)s = s + pEnd IfNext iPrint p; sEnd SubA.25 90B.25

30、 80C.25 25D.25 2058.下面程序的功能是: 計算并輸出100到200間的素數。請將程序補充完整。注意: 不得增行或刪行， 也不得更改程序的結構!Private Sub Command1_Click()Dim i As Integer， j As Integer， cr As IntegerDim ok As Booleancr = 0For i = 100 To 200ok = False j = 2Do while _B_If i Mod j = 0 Then exit DoIf j = i 2 Then ok = Truej=j+1loopIf ok Thencr = cr

31、 + 1Me.Print i;If cr Mod 5 = 0 Then PrintEnd IfNext iEnd SubA.j>i-1B.j<=i2C.j=i-1D.j<>i259.進行界面設計時，若雙擊工程資源管理器中的某個窗體名，打開的窗口是_B_。A.對象窗口B.代碼窗口C.屬性窗口D.立即窗口60.單選按鈕處于選中狀態時，它的Value屬性值是_B_。A.FalseB.TrueC.0D.161.在菜單設計窗口，如果希望菜單項的某一字母為熱鍵，則可在該字母前加的符號是_D_。A.B.#C.D.&62.Visual Basic的貨幣型數據占_B_字節內存空間

32、。A.4B.8C.16D.3263.參與邏輯運算的兩個量中，只要有一個為假，結果即為假的邏輯運算符是_C_。A.XorB.EqvC.AndD.Or64.x初值為0，則下列循環語句執行后，x的值等于_A_。i=1do until x>20x=x+ii=i+2loopA.25B.21C.22D.2765.用于退出for-next循環結構的語句是_A_。A. Exit forB. End NextC.ExitD.End for66.在設定Option Base 1 后，經Dim arr(3，4) As Integer定義的數組arr含有的元素個數為_B_A.12B.20C.16D.967.設有

33、如下窗體事件Option Base 0Private Sub Form_Click()Dim aDim i As Integera=Array(1，2，3，4，5，6，7，8，9)For i=0 To 3Print a(5-i);NextEnd Sub程序運行后，單擊窗體，則在窗體內顯示的結果是_D_。A.5 4 3 2B.7 6 5 4C.4 3 2 1D.6 5 4 368.單擊命令按鈕command1后，下列程序的運行結果為_A_。Option Base 1Private Sub Command1_Click()Dim a(5)， iFor i = 1 To 5a(i) = i * iN

34、ext iFor Each i In aPrint i;NextEnd SubA.1 4 9 16 25 B.1 2 3 4 5C.25 16 9 4 1D.5 4 3 2 169.對窗體編寫如下事件過程。程序運行后，在窗體上單擊鼠標左鍵，則輸出結果為_C_。Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)Print "AA"End SubPrivate Sub Form_MouseUp(Button As Integer， Shift As I

35、nteger， X As Single， Y As Single)If Button = 1 Then Print "BB"End SubA.BBAAB.AABBC.AAD.BB70.能夠釋放窗體Form1所占用的內存空間的語句是_B_。A.Unload Form1B.Form1.UnloadC.Hide Form1D.Form1.Hide71.窗體上有一文本框控件Text1；一個命令按鈕，名稱為Command1，并有以下事件過程。程序運行后，單擊Command1按鈕，在文本框中顯示的內容是_C_。Private Sub Command1_Click()Dim i As I

36、nteger，n As IntergerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End SubA.2B.4C.3D.572.設窗體中包含1個命令按鈕-Command1，1個標簽-Label1；并有以下的事件過程。程序運行后，單擊Command1按鈕，標簽中顯示的內容是_C_。Private Sub Command1_Click()Dim i As Integer，n As Intergeri=1n=0do while i<10n=n+ii=i*(i+1)looplabel1=i & &

37、quot;-" & nEnd SubA.63B.249C.429D.6973-74.單擊命令按鈕，下列程序代碼的執行結果為：Dim a As Integer， b As Integer， c As Integer Private Sub Command1_Click()a = 2 : b = 4 : c=16Call proc_1(a，b) Print "a=" a， "b=" b， "c=" c '顯示的結果是73_A_Call proc_2(a，b) Print "a=" a， &qu

38、ot;b=" b， "c=" c '顯示的結果是74_D_End SubPublic Sub proc_1(x As Integer， y As Integer)x = 2 * x: y = y + 2: c = x + yEnd SubPublic Sub proc_2(x As Integer， ByVal y As Integer)Dim c As Integerx = 2 * x: y = y + 2: c = x + yEnd Sub73A.a=4 b=6 c=10B.a=2 b=4 c=6C.a=4 b=6 c=16D.a=4 b=4 c=10

39、74A.a=4 b=4 c=10B.a=4 b=8 c=16C.a=8 b=8 c=10D.a=8 b=6 c=1075.VB是一種面向圖形用戶界面的可視化編程語言，所采用的程序設計方法是_A_。A.面向對象、事件驅動B.面向對象、順序驅動C.面向過程、事件驅動D.面向過程、順序驅動76.在進入VB集成開發環境的過程中，啟動VB后則顯示"新建工程"對話框，此時默認的選項是_C_。A.ActivX DLLB.ActivX EXEC.標準 EXED.VB 應用程序向導77.使用_C_方法，可以同時清除列表框的所有項目。A.RemoveItemB.RemoveC.ClearD.M

40、ove78.用于退出do-loop循環結構的語句是_A_。A. Exit doB. End NextC.ExitD.End do79.對窗體編寫如下事件過程。程序運行后，在窗體上單擊鼠標右鍵，則輸出結果為_C_。Private Sub Form_MouseDown(Button As Integer， Shift As Integer， X As Single， Y As Single)Print "AA"End SubPrivate Sub Form_MouseUp(Button As Integer， Shift As Integer， X As Single， Y A

41、s Single)If Button = 1 Then Print "BB"End SubA.BBAAB.AABBC.AAD.BB80.復選框處于選中狀態時，它的Value屬性值是_B_。A.FalseB.TrueC.0D.1編程題1.有一個工程文件，在窗體Form1上有兩個文本框，名稱分別為Text1和Text2，內容分別為“文本框1”和“文本框2”，編寫適當的事件過程。程序運行后，如果單擊窗體，則Text1隱藏，Text2顯示，如果雙擊窗體，則Text1顯示，Text2隱藏。注意：不得使用任何內存變量。程序設計代碼如下所示：Private Sub Form_Click(

42、) Text1.Visible = False Text2.Visible = TrueEnd SubPrivate Sub Form_DblClick() Text1.Visible = True Text2.Visible = FalseEnd Sub2.有一個工程文件，在窗體Form1上有一個圖像框，名稱為Image1，其stretch屬性值為True、picture屬性值為pic1.bmp；還有兩個命令按鈕，名稱分別為C1、C2，標題分別為“放大”、“縮小”，如圖所示。要求：請編寫適當的事件過程，程序運行后，如果單擊“放大”按鈕，則把圖像框的高度、寬度均增加100；單擊“縮小”按鈕，則

43、把圖像框的高度、寬度均減少100。要求程序中不得使用任何變量。程序的代碼如下所示：Private Sub C1_Click() Image1.Height = Image1.Height + 100 Image1.Width = Image1.Width + 100End SubPrivate Sub C2_Click() Image1.Height = Image1.Height - 100 Image1.Width = Image1.Width - 100End Sub3.工程文件，窗體上有一個文本框，名稱為text1；一個命令按鈕，名稱為Com1，標題為“確定”，還有三個單選按鈕，名稱分

44、別為op1，op2，op3，標題分別為”飛機”“火車”“汽車”。請編寫適當的事件過程：在程序運行時，選中一個單選按鈕，并單擊“確定”按鈕后，按照下表在文本框中顯示相應的內容。飛機火車汽車在文本框中顯示的內容選中需要一小時選中需要十小時選中需要十五小時程序設計代碼如下所示：Private Sub Com1_Click() If Op1.Value Then Text1.Text = "需要一小時" ElseIf Op2.Value Then Text1.Text = "需要十小時" Else Text1.Text = "需要十五小時"

45、End IfEnd Sub4.有一個工程文件，其窗體的標題屬性為：“改變文本框的前景與背景顏色”；窗體中包含一個命令按鈕（command1），其標題為 “設置顏色”；一個文本框（text1）。要求程序運行時，單擊命令按鈕，將文本框的的前景色設置為RGB(255，0，0)，背景色設置為RGB(0，255，0）。程序代碼如下：Private Sub Command1_Click() Text1.BackColor = RGB(0, 255, 0) Text1.ForeColor = RGB(255, 0, 0)End Sub5.在名稱為Form1的窗體上有一個文本框，名稱為Text1，允許多行顯示

46、；有三個命令按鈕，名稱分別為C1，C2，C3，標題分別為“輸入”，“轉換”，“存盤”。請編寫適當的事件過程，使得在運行時，單擊“輸入”按鈕，從文件夾中讀入in5.txt文件（文件中只有字母和空格），放入Text1中；單擊“轉換”按鈕，則把Text1中的所有小寫字母轉換為大寫字母；單擊“存盤”按鈕，則把Text1中的內容存入out5.txt文件中。注：所有用到的文件都放在當前盤的當前文件夾下Private Sub C1_Click() Dim s As String Open "in5.txt" For Input As #1 While Not EOF(1) s = s &

47、amp; Input(1, #1) Wend Text1.Text = s Close #1End SubPrivate Sub C2_Click() Text1.Text = UCase(Text1.Text)End SubPrivate Sub C3_Click() Open "out5.txt" For Output As #1 Print #1, Text1.Text Close #1End Sub6.某工程文件中有一窗體，窗體上有一個命令按鈕和一個文本框。請編寫函數過程fun()用于計算01000范圍內不能被7整除的整數的個數。程序運行后，單擊命令按鈕，即可在文本

48、框中輸出01000范圍內不能被7整除的整數的個數。Private Function fun() As Integer Dim i As Integer Dim count As Integer For i = 0 To 1000 If i Mod 7 <> 0 Then count = count + 1 Next i fun = countEnd FunctionPrivate Sub Command1_Click() Text1.Text = fun()End Sub7.有一工程文件的窗體上有兩個命令按鈕，名為Command1和Command2，標題為“添加”和“清除”；一個文

49、本框，名為Text1，文本框編輯區為空白；一個列表框，名稱為List1。程序運行時，在文本框中輸入文本，若單擊“添加”按鈕，則將文本框中的文本作為列表框的一個列表項添加到列表框的末尾，且使“添加”按鈕變為無效，“清除”按鈕變有有效；若單擊“清除”按鈕，則使文本框中的內容為空，且使“添加”按鈕變為有效，“清除”按鈕變為無效。Private Sub Command1_Click() List1.AddItem Text1.Text Command1.Enabled = False Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()

50、Text1.Text = "" Command1.Enabled = True Command2.Enabled = FalseEnd Sub8.在一工程文件的窗體上有兩個文本框（名稱為Text1和Text2）。請編寫程序實現：若在Text1中輸入大寫英文字母，則在Text2中輸出對應的小寫字母；在Text1中輸入小寫英文字母，則在Text2中輸出對應的大寫字母；在Text1中輸入空格或數字字符，則在Text2中照原樣輸出對應的字符；在Text1中輸入其他字符，則在Text2中輸出“*”。Private Sub Text1_KeyPress(KeyAscii As Inte

51、ger) Select Case Chr(KeyAscii) Case "A" To "Z" Text2.Text = Text2.Text & LCase(Chr(KeyAscii) Case "a" To "z" Text2.Text = Text2.Text & UCase(Chr(KeyAscii) Case "0" To "9",Space(1) Text2.Text = Text2.Text & Chr(KeyAscii) Case Else Text2.Text = Text2.Text & "*" End SelectEnd Sub9.有一個工程文件，窗體上有4個標簽，其名稱屬性分別為Label1（標題屬性為“歡迎進入VB世界”）、Label2（標題屬性為“字號”）、Label3（標題屬性為空，用于顯示滾動條的當前值）和Label4（標題屬性為“顏色”）；一個組合框（名稱為Combo1，包含3個項目，分別是“紅色”、“綠色”和“藍色”）；一個框架（名稱為Frame1，標題屬性為“字型”），框架中有