VB程序设计复习题(归类)

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