1、VB程序設計綜合復習資料一、填空題：（第一章 Visual Basic程序設計概述） 1、Visual Basic是一種面向_對象_的可視化程序設計語言，采取了_事件驅動_的編程機制。 2、在VB中工程文件的擴展名是_ Vbp ，窗體文件的擴展名是frm _，標準模塊文件的擴展名是_ bas _。 3、執行“工程”菜單下的部件命令，可選擇并添加ActiveX控件。 4、Visual Basic 6.0用于開發_ WINDOWS環境下的應用程序。第二章 簡單的VB程序設計1、設置是否可以用Tab鍵來選取命令按鈕，應該用_ Tabstop _屬性。2、一個控件在窗體的位置由_ Left _和_ t

2、op _屬性決定，其大小由_ height _和_ width _屬性決定。3、利用對象的屬性setfocus可獲得焦點，對于一個對象，只有其visible屬性和_ enabled _屬性為true，才能接受焦點。4、設置控件背景顏色的屬性名稱是_ backcolor _。5、所有控件都具有的共同屬性是_ name _屬性。6、一般情況下，控件有兩個屬性項的缺省值是相同的，這兩個屬性項是_ name和caption。 7、VB中的每個對象（控件）都有一組特征，這組特征稱為_屬性_，我們通過修改它可以控制對象的外觀和操作。8、通常情況下，VB中一個工程主要包括如下四個文件：窗體文件、工程文件、類

3、模塊文件和_標準模塊文件_文件，后者的擴展名為.Bas，通常由Basic語言編寫，是一個可共用的子程序。 9、VB有三種工作模式，分別是設計（Design）模式、_運行模式_和中斷（Break）模式。第三章1、一般可以使用_ Const _關鍵字聲明常量。 2、_ Variant _類型也稱變體類型，是一種通用的、可變的數據類型，它可表示或存儲任何一種數據類型。 3、變量的聲明分為兩種方法：_隱式聲明_和_顯示聲明_。、 4、在VB中，用_ option base _語句設定數組的下界，用ubound _和_lbound語句分別返回數組的上、下界。 5、在代碼模塊中加入Option Expli

4、cit的目的是_強制變量聲明。 6、function aa (a1 as date,optional a2 as boolean) as single，寫出optional命令的作用表示a2是一個可選參數_。 7、在VB中，我們用一個簡單的_ End_語句就能實現退出程序。 8、生成消息框的命令是_Msgbox_，生成輸入框的命令是Inputbox _。 9、通用對話框（commondialog）屬activex控件，它可以顯示多個標準對話框，包括打開/另存為、字體、打印等對話框，若要顯示所有文件，則應設置其屬性filter=_*.* _，若要使它顯示為打印對話框，則應使用什么方法_、show

5、print _。 10、從字符串中任意位置截取字符的函數是_ Mid()_。 11、語句For j = 3 To 20 Step 3 使循環體執行了_6_次。 12、對于正在使用的動態數組Arraya()，要增加一個單元，但不能破壞數組內的數據，則應使用語句_ redim preserve arraya(ubound(arraya()+1)_。 13、在Visual Basic中聲明靜態變量的關鍵字是_ static_。 14、表達式10 Mod 6 4的值為_0_。 15、表達式chr(Asc("a") + 5)的值為_f_。 16、VB中使用注釋有2種方法，即_ rem

6、_和_。 17、VB中的數據以四種形式存儲：常量、_變量、數組和記錄。 18、為了在VB中存儲一個4行5列的二維矩陣，需要定義一個整型的數組，請把數組定義語句補充完整：Dim Juzhen(_1 to 4,1 to 5_) as Integer。 19、控件數組由一組相同類型的控件組成，這些控件共用一個相同的控件名，但是每個控件都有一個唯一的下標來區分，我們使用屬性_ Index _來設置下標。 20、在過程調用中，實現調用過程的實參和被調用過程的形參之間的數據傳遞有兩種方式：按值傳遞和_按地址_。 21、為了保證程序中必須對變量的強制性定義，需要在代碼模塊的聲明部分加入_ Option Ex

7、plicit _語句。 22、分析ForNext循環結構的實例：For i = 5 To 30 Step 2 中，循環體一共執行了_13_次。 23、表達式Mid("UniversityOfPetroleum", 8, 4) 的值為_ ityo_。 24、常量分為普通常量和_符號_常量。 25、要將大寫字母轉換為小寫字母，可使用_ LCase_函數。 26、不管焦點在哪個控件上，按_ ESC_鍵相當于按了取消按鈕。 27、執行“工程”菜單下的_部件_命令，可選擇并添加ActiveX控件。 28、斷點_是程序中VB停止執行的地方。 29、邏輯常量為True或_ False _

8、。30、使用了_ Option Explicit _的聲明后，當程序中使用未經聲明的變量時，程序運行時會報錯。31、要將小寫字母轉換為大寫字母，可使用UCase_函數。 32、自字符串N1位開始向右取N2個字符，要使用_ Mid_函數。 33、日期常量表示時，用符號_#_將日期型數據括起來。 34、局部變量只能在_過程_中聲明和使用。 35、模塊級變量的聲明關鍵字是Dim或_ private _。 36、函數Abs(x)的功能是_求x的絕對值_。 37、表達式3/6*5的值是_2.5_。第四章1、向列表框控件添加新項目的方法是_ AddItem _。 2、在VB中，最主要的兩種對象是_窗體_和

9、_控件_。 3、當窗體啟動時可通過StartUpPostion _ _屬性控制窗體位于所有者的中心位置。 4、若要將窗體Form1隱藏起來，則可通過執行代碼_ form1.hide _來實現。 5、要使裝入到列表框中的數據項能自動按字母順序排序，應設置該控件的_ sorted _ _屬性為_ ture _。 6、窗體上放置了若干個文本框和命令按鈕，當窗體裝入后，要將焦點自動定位到文本框Text1上，則在設計時需要將_ text1_控件的_ tabindex _屬性設置為_0_。 7、在標簽控件中通過編程使文字換行用的代碼是_ chr(10)_ _。 8、設置計時器控件只能觸發_ timer _

10、事件。 9、設置計時器對象觸發事件的時間間隔用_ interval _屬性。 10、滾動條控件主要支持兩個事件，它們是_scroll和change_事件。 11、要使鼠標停留在按鈕上顯示特殊的鼠標形狀，應設置的屬性值是_ mousepointer _。12、設某列表框共有10項，按題目要求補齊程序，完成相應的功能。（1）按下命令按鈕Command1時將列表框第8項的內容顯示在窗體上：Private Sub Command1_Click( )List._ selected _(7)=TruePrint List1._ text _End Sub（2）單擊列表框某一項時立即將該項打印在窗體上：Pr

11、ivate Sub List1_Click( )Print_ list1.text _End Sub（3）按下命令按鈕Command1時在窗體上刪除第1、3、5、7、9項：Private Sub Command1_Click( )For I=1 To 5List1._ removeitem 2*i-1_Next IEnd Sub（4）在列表框的每一項之后插入一個新的項：Private Sub Command1_Click( )For I=1 to 10X=InputBox(“請輸入插入的第” & I & “項內容”)List1.AddItem_ x,2*i-1_Next IEn

12、d Sub 13、設在界面上放置了一個滾動條Hscroll1和一個標簽控件Label1，要使每次單擊滾動條兩端箭頭時，或單擊滾動條滑塊與兩端箭頭之間的空白區域時，標簽內容能夠反映滾動條的值，補齊以下代碼。Private Sub Hscroll1._ change _( )Label1.Caption = Hscroll1._ value _End Sub要使拖動滾動條滑塊時標簽內容能夠反映滾動條的值，補齊以下代碼。Private Sub Hscroll1._ scrol _( )Label1.Caption = Hscroll1._ value _End Sub 14、列表框（ListBox）

13、用于列出可供選擇的項目的列表，用戶可以選擇一個或多個項目。它具有幾個非常重要的數組屬性，其中_ List_屬性存放了列表框中所有項目的值。 15、菜單項一般由標題、訪問鍵、快捷鍵和復選標志等構成，通過對相應的屬性進行設置可以改變這些項目的狀態，其中與復選標志相對應的屬性是_ Checked _。 16、keydown與keypress事件各有其參數，若需獲得用戶按下 "a" 還是 "A" 需用_ keypress _事件。 17、控件組合框組合了文本框和列表框的功能，是VB中一種功能非常強大的選擇類控件。 18、若需要將窗體Form2以模態窗口的形式顯示

14、出來，可通過執行代碼_ Form2.Show 1_來實現。 19、菜單中的分隔條是一種菜單控件，不響應_ Click（或鼠標單擊）_事件，不能被選中。第五章1、文件按存取方式及其組成結構可分為_順序_文件、隨機_文件和、二進制_文件。 2、為了使文件列表框List1和目錄列表框Dir1之間能產生同步效果，必須在_ dir1的chang _事件過程中加入語句_ list1.path=dir1.path _。 3、文件系統控件的作用是向用戶顯示系統中的文件，方便用戶選擇，它是一組控件的組合，包括：驅動器列表框、_目錄列表框 _和文件列表框。第六章 圖形操作1、使用_ print _方法可在窗體中進

15、行文本的輸出，用_ circle _方法可畫圓，用_ line _方法可畫直線。2、用_ loadpicture _函數可加載圖形。3、為了使一個Picture控件能自動根據裝入的圖片調整大小，應設置該控件的_ autosize _屬性為True。第七章 面向對象的編程1、類是具有相同性質的對象的_集合_。 2、語句DIM TEMP AS Object的作用是_定義了一個對象類型的變量TEMP _。第三章 VB基本語言四、讀程序題 1、分析以下程序，寫出運行結果。 Private Sub Form_Click() score = Int(Rnd * 10) + 80 Select Case s

16、core Case Is < 60 A$ = "F" Case 60 To 69 A$ = "D" Case 70 To 79 A$ = "C" Case 80 To 89 A$ = "B" Case Else A$ = "A" End Select Print A$ End Sub結果如下：B 2、讀下面的程序，分析其功能，寫出運行結果。在窗體上有一個命令按鈕，名稱為Command1。然后編寫如下程序：Private Sub Command1_Click()For I = 1 To 4F

17、or J = 0 To IPrint Chr$(65 + I);Next JPrintNext IEnd Sub程序運行后，如果單擊命令按鈕，則在窗體上顯示的內容是什么？結果如下：BBCCCDDDDEEEEE 3、閱讀下面的程序，分析并寫出其功能。Sub insert(a() As Single,ByVal x As Single)Dim m as integer,n as integern=1Do While n<20 And x>a(n)n=n+1LoopFor m=20-1 To n Step 1a(m+1)=a(m)Next ma(n)=xEnd Sub功能如下：在20個由

18、小到大排列的數據中插入一個數，插入數據后的數據仍按由小到大的順序排列。 4、分析以下程序，寫出運行結果。Sub subP(b() As Integer)For i =1 To 4b(i)=2*iNext iEnd SubPrivate Sub Commandl_Click()Dim a(1 To 4)As Integera (1)=5a (2)=6a (3)=7a (4)=8subP a()For i =1 To 4Print a(i)Next iEnd Sub運行上面的程序，單擊命令按鈕，輸出結果是什么？輸出結果為： 2 4 6 8 5、分析以下程序，寫出運行結果。Sub sele() Di

19、m n as Integer i=21:n=3 Do While i>n i=in Loop Print iEnd Sub輸出結果為：3 6、分析以下程序，寫出運行結果。Sub selectPrint()Dim a as IntegerDim b as IntegerDim c as Integera=2:b=5:c=2If(a>=b)and(a>=c) or (b>c) Then Print aa=a+2ElsePrint bEndIfPrint a;b;cEnd Sub輸出結果為：2452 7、分析以下程序，寫出運行結果。Sub swap() Dim x as In

20、teger Dim y as Integer Dim z as Integer x=1:y=2:z=0 Print x;y;z x=x+y x=x*z Print x,y,zEnd Sub輸出結果為：1200 2 0 8、分析以下程序，寫出運行結果。Sub selectPrint() Dim a as Integer Dim b as Integer Dim c as Integer a=3:b=3:c=2 If(a>=b)and(a>c)Then Print a Print a,b,cEnd Sub輸出結果為：33 3 2 第四章 常用控件與窗體1、對窗體編寫如下代碼：Optio

21、n Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)>ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序運行后，按回車鍵，輸出結果是什么？輸出結果為： 4985 2、閱讀下面的程序，寫出執行結果。Private Sub Form_load()Form1.showd = 0For a = 1 T

22、o 2For b = 1 To aFor c = b To 5d = d + 1Next cNext bNext aPrint dEnd Sub 結果如下：14Private Sub Form_Click()Dim a(10) As Integer, 五、編程題 1、輸入一年號，判斷它是否是閏年。界面如下圖所示，包括兩個標簽、一個文本框和一個命令按鈕。提示：如果此年號能被400整除或者不能被400除盡，也不能被100除盡，但能被4整除，則它是閏年；否則，不是閏年。1、參考代碼如下：Private Sub Command1_Click() Dim year, x As Integer year

23、= Val(Text1.Text) If year Mod 400 = 0 Then Label2.Caption = "是閏年" Else' 下面是嵌套塊If語句 If year Mod 4 = 0 And year Mod 100 <> 0 Then Label2.Caption = "是閏年" Else Label2.Caption = "不是閏年" End If End IfEnd Sub 2、輸入兩個正整數m、n，求m和n的最大公約數。要求建立如下圖所示的窗體，其中主要的控件包括：兩個標簽（Lable1、

24、Lable2）、兩個文本框（Text1、Text2）和一個按鈕（Command1）。2、程序參考代碼如下：Private Sub Command1_Click() Dim m, n, r As Integer m = Val ( Text1.Text ) n = Val ( Text2.Text ) If m < 0 Or n < 0 Then 若判斷為非法數據，Then子句輸出相應信息 Label2.Caption = "輸入數據有錯！" Else 若判斷為合法數據，Else子句用輾轉相除法求余數 r = m Mod n Do While r <>

25、 0 m = n n = r r = m Mod n Loop 循環結束后n中存放的就是最大公約數，輸出n值 Label2.Caption = "最大公約數為：" & n End IfEnd Sub 3、輸入某學生成績（百分制），若是100成績90輸出優秀；若是90成績80輸出良好；若是80成績70輸出中等；若是70成績60輸出及格；若是60成績0，輸出不及格；若是其他數則輸出error信息。3、參考代碼如下：Private Sub Command1_Click()Dim x As Singlex = Val(Text1.Text)If x > 100 Or

26、x < 0 Then Text2.Text = "error" ElseIf x < 60 Then Text2.Text = "不及格" ElseIf x < 70 Then Text2.Text = "及格" ElseIf x < 80 Then Text2.Text = "中等" ElseIf x < 90 Then Text2.Text = "良好" Else Text2.Text = "優秀"End IfEnd Sub 4、在窗體中顯示

27、從9號字型到16號字型。4、參考代碼如下：Private Sub Form_Load() Dim i As Integer Show '使輸出可見 Form1.Font = "新宋體" For i = 9 To 16 Step 1 Form1.FontSize = i Print i; "號字型" Next iEnd Sub 5、在有序序列中插入一個數，使插入后的數列仍然有序（設按由小到大排列）。 5、參考代碼如下：Private Sub Command1_Click() Dim a(1 To 11) As Single '定義靜態數組a

28、含11個元素 Dim i, j As Integer Dim num As Single' 給數組元素賦初值，即原始隊列 a(1) = 3: a(2) = 5: a(3) = 7: a(4) = 8: a(5) = 9 a(6) = 13: a(7) = 16: a(8) = 19: a(9) = 33 a(10) = 38' 輸出原始隊列 For i = 1 To 10 Label2.Caption = Label2.Caption & a(i) & " , " Next i num = Val(Text1.Text)' 把輸入的數

29、插入隊列中 For i = 10 To 1 Step -1 If num < a(i) Then a(i+1) = a( i ) ' 元素后移一個位置 else a(i+1) = num Exit For ' 退出循環 End If Next i' 輸出新隊列 For i = 1 To 11 Label3.Caption = Label3.Caption & a(i) & " , " Next iEnd Sub 6、編程實現二維數組轉置。6、參考代碼如下：Option Base 1Private Sub Form_Load()

30、Const N = 4 ' 常量N決定二維數組大小 Dim a(N, N) As Integer Dim i, j, Temp As Integer Show ' 數組初始化 For i = 1 To N ' For循環 i從1變化到N For j = 1 To N a(i, j) = i * 10 + j Next j Next i' 輸出原始數組 Print "轉置前的數組：" For i = 1 To N ' For循環 i從1變化到N For j = 1 To N Print a(i, j); Next j Print Nex

31、t i ' 數組轉置 For i = 1 To N ' For循環 i從1變化到N For j = 1 To i ' 交換 Temp = a(i, j) a(i, j) = a(j, i) a(j, i) = Temp Next j Next i ' 輸出轉置后的數組 Print "轉置后的數組：" For i = 1 To N ' For循環 i從1變化到N For j = 1 To N Print a(i, j); Next j Print Next iEnd Sub 7、隨機輸入10個100以內的整型數，計算其和及平均值。 7、

32、參考代碼如下： i As IntegerDim sum As Integer, ave As Integersum = 0For i = 1 To 10 a(i) = Int(Rnd * 101) sum = sum + a(i)Next iave = sum / 10Print sum, aveEnd Sub 8、找出所有的水仙花數。水仙花數是個三位數，它的各位數字的立方和等于這個三位數本身。例如37133+73+13，則371是水仙花數。8、參考代碼如下：Private Sub Form_Load() Dim i, j, k, Flower As Integer Show For i =

33、1 To 9 For j = 0 To 9 For k = 0 To 9 Flower = i * 100 + j * 10 + k If Flower = i 3 + j 3 + k 3 Then Print Flower ; "是水仙花數" Next k Next j Next iEnd Sub 9、從鍵盤輸入一個大于2的正整數，判斷該數是否是素數。 9、程序參考代碼如下：Private Sub Command1_Click() Dim m, i, y As Integer m = Val(Text1.Text) If m <= 2 Then Label2.Cap

34、tion = "輸入數據有錯" Else k = Sqr(m) + 1 For i = 2 To k y = m Mod i If y = 0 Then Exit For Next i If y = 0 Then Label2.Caption = m & "不是素數" Else Label2.Caption = m & "是素數" End If End IfEnd Sub 10、求二維數組中的最小值及其所在行號、列號。10、程序參考代碼如下：Option Base 1Private Sub Form_Load() Co

35、nst N = 5 ' 常數 N 確定數組的大小 Dim a(N, N) As Integer Dim i, j, row, line, min As Integer Show For i = 1 To N ' For循環 i從1變化到N For j = 1 To N ' For循環 j從1變化到N a(i, j) = Int(100 * Rnd) + 1 ' 產生N*N個1100間的隨機數 Next j Next i ' 輸出二維數組 Print "數組內容是：" For i = 1 To N For j = 1 To N Prin

36、t a(i, j); Next j Print ' 輸完一行元素后輸出一個換行 Next i ' 設定初始值 min = a(1, 1): row = 1: line = 1 ' 尋找最小數 For i = 1 To N For j = 1 To N If a(i, j) < min Then min = a(i, j) row = i line = j End If Next j Next i ' 輸出結果 Print "最小值是：" min Print "在第" row; "行第" line;

37、 "列"End Sub 11、求一元二次方程ax2+bx+c=0的根（包括實根和復根）。11、參考代碼如下：Private Sub Command1_Click() Dim a, b, c, delt, realpart, imagpart As Single a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text): delt = b * b - 4 * a * c If a = 0 Then Label2.Caption = "是一元一次方程:" If b<>0 then

38、Text4.Text = "x1=" & -c / b Else If c=0 then Text4.Text = "有無窮根" Else Text4.Text = "無根" End if End if Else' 下面嵌套塊If語句 If delt = 0 Then Label2.Caption = "有兩個相等的實根:" Text4.Text = "x1=" & -b / 2 / a Text5.Text = "x2=" & -b / 2

39、/ b ElseIf delt > 0 Then Label2.Caption = "有兩個不等的實根:" Text4.Text = "x1=" & (-b + Sqr(delt) / (2 * a) Text5.Text = "x2=" & (-b - Sqr(delt) / (2 * a) Else Label2.Caption = "有兩個共軛復根:" realpart = -b / (2 * a) imagpart = Sqr(-delt) / (2 * a) Text4.Text =

40、 "x1=" & realpart & "+" & imagpart & "i" Text5.Text = "x2=" & realpart & "-" & imagpart & "i" End If ' 此行End If部分與內層的塊If語句對應 End If ' 此行End If部分與外層的塊If語句對應End Sub 12、輸入一個正整數n，計算出n!并輸出。12、參考代碼如下：Privat

41、e Sub Command1_Click() Dim n, i, t As Long n = Val(Text1.Text) i = 1: t = 1 If n < 0 Then Label2.Caption = "error" ElseIf n = 0 Then Label2.Caption = "0!=1" Else Do While i <= n t = t * i i = i + 1 Loop Label2.Caption = n & "!=" & t End IfEnd Sub 13、Faibon

42、acci數列為0，1，1，2，3，5，8，13 ，計算并輸出第20項以及前20項的和。 13、參考代碼如下：Private Sub Form_Load() Dim Prev, Last, NewOne, sum As Long Dim i As Integer Prev = 0: Last = 1: sum = Prev + Last For i = 3 To 20 NewOne = Prev + Last sum = sum + NewOne Prev = Last Last = NewOne Next i Label1.Caption = "第20項為" & N

43、ewOne Label2.Caption = "前20項的和為" & sumEnd Sub第四章 常用控件與窗體五、編程題 1、在窗體上有一個文本框控件，名稱為TxtTime；一個計時器控件，名稱為Timer1，要求每一秒在文本框中顯示一次當前的時間，請編程實現。1、參考代碼如下：Private Sub Form_Load()Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Txttime.text = TimeEnd Sub 2、在Text1中輸入任一英文字母，在Text2中顯示該英文字母及其ASCII碼

44、值。要求在文本框Text2中顯示出所有輸入的英文字母及其ASCII碼值，如下圖所示。Text1Text2Command1 2、參考代碼如下：Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text) Text2.Text = Text2.Text & Spc(5) & Char & _ Spc(10) & Str(Asc(Char) & chr(13)&chr(10) Text1.SetFocus Text1.SelStart = 0 Text1.SelL

45、ength = Len(Text1.Text)End Sub 3、編寫一個程序，能夠實現任意個整數的排序。 4、編程實現以下功能：用戶首先分別在兩個文本框中輸入兩個數，然后在具有“加、減、乘、除”等四個菜單項的“計算”菜單中單擊某一項，即可在標簽中顯示出相應的結果或者錯誤提示。 5、編程實現任意兩個數的“加、減、乘、除”。 6、編寫一個程序，能夠求任意個正整數的最大值和最小值。 7、編程求任意兩個正整數的最大公約數。六、程序分析填空題六、程序分析填空題 1、建立一個如圖所示的簡單編輯器。用戶在文本框（text1）中輸入正文后，選中某些文本時可進行“剪切”、“復制”和“粘貼”操作。假設在窗體聲明

46、部分定義了一個變量str1，用于保存復制和剪切的內容，請把剪切按鈕(btnCut)的Click事件補充完整。程序運行界面：Private Sub btnCut_Click() 請補充Str1 = text1.selText text1.selText = “”End Sub 2、計算1 + 2 + 3 + + 100的和并輸出。請把下面用Do While Loop循環結構實現這一功能的代碼補充完整。Private Sub Form_Load()Dim sum,count as Integer請補充Sum = 0 Count = 0Do while count <=100請補充Count

47、= count + 1 Sum = sum + countLoopText1.Text = sumEnd Sub 3、列表框控件（ListBox）支持多項選擇，這項功能在對用戶的興趣愛好進行調查的時候顯得非常好用，在下圖所示的界面中列表框List1用于列出愛好選項，供用戶進行多項選擇。請把下列代碼補充完整，能夠取得用戶的所選愛好選項：Private Sub Command1_Click() Dim i As Integer Dim s As String s = txtname.Text & "愛好" For i = 0 To List1.ListCount - 1

48、 請補充If List1.Selected(i) Then S = s & List1.List(i) End If Next Label3.Caption = s End Sub 4、要求利用計時器Timer1，在窗體Form1上每隔1秒鐘打印一個1到10的隨機整數，請把下列代碼補充完整：Private Sub Form_Load() Show 請補充Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer()請補充Form1.Print Int(Rnd*10) + 1End Sub第五章 文件四、編程題 1、實現二進制方式文件的復制

49、。1、參考代碼如下：Private Sub Command1_Click()Dim if1 As Integer, if2 As IntegerDim sf1 As String, sf2 As StringDim buffer() As Byte使用動態數組sf1 = InputBox("請輸入源文件名：", "源文件")sf2 = InputBox("請輸入目標文件名：", "目標文件")If sf1 = "" Or sf2 = "" Then Exit Subif1 =

50、 FreeFileOpen sf1 For Binary As if1 '打開源文件if2 = FreeFileOpen sf2 For Binary As if2 '創建目標文件ReDim buffer(1 To LOF(if1) '分配內存Get #if1, , buffer '讀源文件Put #if2, , buffer '寫目標文件Close '關閉所有打開的文件MsgBox "完成復制。"End Sub 2、如下圖所示，實現一個簡單的文件管理器。 2、參考代碼如下：Private Sub cmdCopy_Click()Dim destFile As StringIf fSource.FileName = "" Then Exit Sub '先選定文件destFile = InputBox("輸入目標文件名：")If destFile <> "" Then '不為空 FileCopy fSource.FileName, destFile '復制文件End IfEnd Sub Private