全国计算机等级考试复习资料.doc

1、“全国计算机等级考试”考试要点孙久 第 1 页 2019-3-31Visual Basic 程序设计基础知识要点（概念分析篇）知识点 1：（1） 在工程资源管理器窗口中可以包含：工程文件、窗体模块文件、标准模块文件和类模块文件（其中可以包含许多各种文件类型） 。（2） Visual Basic 应用程序可以以解释方式执行和编译方式执行。例题：（1）以下叙述中错误的是 A A在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件。B以.bas 为扩展名的文件是标准模块文件。C窗体文件包含该窗体及其控件的属性。D一个工程中可以有多个标准模块文件。（2）以下叙述中错误的是 C A打开一个工

2、程文件时，系统自动装入与该工程有关的窗体、标准模块等文件。B保存 Visual Basic 程序时，应分别保存窗体文件及工程文件。CVisual Basic 应用程序只能以解释方式执行。D事件可以由用户引发，也可以由系统引发。知识点 2：（1） 窗体和各种控件的名称（Name）是唯一的，用来 标识一个窗体或控件的。而窗体和控件的标题是用来说明的，是可有可无的。（2） 各种控件之间有部分相同的属性，并不是拥有所有属性。控件有些属性只能在属性窗口中设置，但也有少数属性只能在代码状态设置。（3） Unload Form1 方法和 Form1.Hide 方法的区别：第一个方法窗体消失并不存在于内存中；

3、第二个方法窗体消失但仍存在于内存中。例题：（1）以下叙述中正确的是 A A窗体的 Name 属性指定窗体的名称，用来标识一个窗体。B窗体的 Name 属性的值是显示在窗体标题栏中的文本。C可以在运行期间改变对象的 Name 属性的值。D对象的 Name 属性值可以为空。（2）以下叙述中错误的是 C AVisual Basic 是事件驱动型可视化编辑工具。BVisual Basic 应用程序不具有明显的开始和结束语句。CVisual Basic 工具箱中的所有控件都具有 Width 和 Height 属性。DVisual Basic 中控件的某些属性只能在运行时设置。知识点 3：（1） 标签(L

4、abel1) ：Autosize 的 True 属性可以自动调整标签的大小，而 False 属性不能。（2） 文本框(Text1)：1、Maxlength 属性表示文本框所能容纳的字符数。2、Passwordchar 属性表示口令输入，可以是“*”或“？”等。设置文本框输入字“全国计算机等级考试”考试要点孙久 第 2 页 2019-3-31符为“*”：Text1.Passwordchar=”*”, 还原文本框字符：Text1.Passwordchar=”,3、ScrollBars 属性是表示文本框有垂直或水平滚动条，但是需要和多行属性Multiline 结合一起使用。4、SelLength 属

5、性是表示选中文本框中字符的个数：Text1.SelLength。SelStart 属性是表示选中文本框中字符或光标之前的字符数：Text1.SelStrart。SelText 属性是表示选中文本框中的字符：Text1. SelText。5、文本的主要事件是 Change 事件：(标签内容随文本框内容变化而变化 )Private sub text1_Change（）Label1.caption=Text1.textEnd sub6、文本框的方法只有一个：Text1.SetFocus例题：（1） 能够获得一个文本框中被选取文本的内容的属性是 C AText B. SelLength C. SelT

6、ext D. SelStrart（2） 在窗体上画一个文本框(其名称为 Text1)和标签(其名称为 Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 A APrivate Sub Text1_Change （） B. Private Sub Text1_Click（）Label1.caption=Text1.Text Label1.caption=Text1.Text End Sub End SubCPrivate Sub Label1_Change（） D. Private Sub Label1_Click（）Label

7、1.caption=Text1.Text Label1.caption=Text1.Text End Sub （3）命令按钮(Command1):1、Default 属性：当一个命令按钮的 Default 属性为 True 时，按回车键和单击该命令按钮的效果相同。2、Cancel 属性：当一个命令按钮的 Cancel 属性为 True 时，按 ESC 键和单击该命令按钮的效果相同。（4）单选按钮和复选框(Option1 和 Check1)：1、单选按钮：Value 属性的值是 True(选中)和 False(未选中) ，Option1.Value=True等同于 Option1.Value 用

8、法。2、复选框：Value 属性的值是 0(未选中) 、1(选中) 和 2(表示暂时不可用)。Check1.Value=False 可以用，但 Check1.Value=True 不可用(因为 True 只能转化数值1 而不是 1)。（5）列表框(List1):1、List 属性是一个数组型属性：List1.List(索引)，索引可以是数字0、1,List1.listindex,变量 i（List1.Text 等同于 List1.list(List1.listindex)） 。2、MultSelect 属性：用来设置一次可以多选表项数。MultSelect 属性值为 0 时，每次只能选择一项；

9、MultSelect 属性值为 1 时，可以同时选择多个项目；MultSelect 属性值为2 时，可以用辅助键 Shift 或 Ctrl 选择多个项目。3、常用方法：AddItem 方法表示添加的是一个项目，而 Removeitem 方法表示通过删除索引的方式删除项目。RemoveItem 索引 索引可以是数字 0、1,List1.listindex,变量 i。（6）组合框（Combo1）：“全国计算机等级考试”考试要点孙久 第 3 页 2019-3-311、Style 属性：Style 属性值为 0 时，表示下拉式组合框；Style 属性值为 1 时，表示下简单组合框；Style 属性值为

10、 2 时，表示下拉式列表框。其他功能类似列表框(List1)。（7）图片框和图像框(Picture1 和 Image1):1、图片框(Picture1)：Autosize 属性值为 True 时，表示图片框大小随图片大小改变而改变；Autosize 属性值为 False 时，表示图片框只能部分显示大图片。2、图像框(Image1)：Stretch 属性为 True 时，图片大小随图像框的大小改变而改变；Stretch 属性为 True 时，图像框的大小随图片大小的改变而改变。3、两种图形类型都可以按照下面这个方法加载图片：Picture1.picture=LoadPicture(App.Pat

11、h Asc(x) 给出字符x 的 Asccii 代码值 Asc(“A”)=65三种类型 ASCII 代码值转换：Asc(“0”)Asc(“9”)-4857Asc(“A”)Asc(“Z”)-6590Asc(“a”)Asc(“z”)-97122特殊情况：Asc(“ABC”)=65 只求第一个字符“A” 的 Ascii 代码值 Fix(x) 将数值型数据 x 的小数部分舍去 Fix(12.8)=12 Fix(-12.5)=-12;Int(x) 取小于等于 x 的最大整数 当 x0 时，用法和 Fix 一样；当 x - (* /) Mod (+ -) 关系运算符= = And Or Xor Eqv例题

12、：（1） 表达式 4 + 5 6 * 7 / 8 Mod 9 的值是 B A 4 B. 5 C. 6 D. 7（2） a=3 b=2 c=1 求 Print abc 的结果？首先 ab 的结果是 true,然后再 Print Truec 此时 True 需要转换成-“全国计算机等级考试”考试要点孙久 第 5 页 2019-3-311 再比较，Print -11 结果是 False，所以整个输出结果是 False。知识点 6：1、交互函数的使用： InputBox 函数：A=InputBox(“提示信息“,“标题信息“,“默认值或输入框的值“)例题：(1) 执行下列语句后，将显示输入对话框，此时

13、如果单击“确定”按钮，则变量 strInput 的内容是 C strInput=InputBox(“请输入字符串“,“字符串对话框“,“字符串“)A“请输入字符串“ B. “字符串对话框“C. “字符串“ D. 空字符串 MsgBox 函数：MsgBox “提示信息”, 按钮类型值+图标类型值+默认焦点值, “标题信息”A= MsgBox “提示信息”, 按钮类型值+图标类型值+默认焦点值, “标题信息” ；A 的值根据单击什么按钮有关，A 的值在1,7之间取值。比如：单击“确定”按钮，A=1。例题：（1）以上图形所表示的函数表达式为：MsgBox “请输入查询的学生学号：“, 3 + 32

14、+ 256, “学生基本信息查询“知识点 7：1、选择结构语句（If 条件语句）： 单分支条件语句：格式： If 条件 Then 语句块End If （称 If 块语句）“全国计算机等级考试”考试要点孙久 第 6 页 2019-3-31 If 条件 Then 只有一条语句 （称 If 条语句） 双分支条件语句：格式：If 条件 Then语句块 1Else语句块 2End If 多分支条件语句If 条件 1 Then语句块 1Elseif 条件 2 Then语句块 2。 。 。 。 。 。Else语句块 nEnd If其中，条件可以是：关系表达式(a5)、逻辑表达式(a5 And c4)、变量(

15、i)或常数(0)。例题：（1） 下列程序段的执行结果为 A X=5Y=-20If Not x0 Then x=y-3 ElseY=x+3End IfPrint x-y;y-xA. -3 3 B. 5 -8 C. 3 -3 D. 25 -25以上题中的“条件”主要是逻辑表达式。（2） 下列程序段的执行结果为 B X=2Y=1If x*y0A. True B. False C. -1 D.1以上题中的“条件”主要是关系表达式。（3） 下列程序段的执行结果为 C Dim x As IntegerIf x Then Print x Else Print x-1A. 1 B. 0 C. -1 D.不确定

16、以上题中的“条件”主要是变量。2、选择结构语句（Select Case 语句）：“全国计算机等级考试”考试要点孙久 第 7 页 2019-3-31Select Case 测试表达式Case 表达式列表 1语句块 1Case 表达式列表 2语句块 2。 。 。 。 。 。Case Else语句块 nEnd Select注意：测试表达式的类型只能是数值数据或字符型，表达式列表的值只要第一个符合测试表达式值的要求，就结束 Select Case 语句；表达式列表可以是三种结构或三种混合结构：、1 To 10 、1,3,5,6,7,8 、Is10 、1,2,5,7,Is10例题：（1） 在窗体上画一个

17、名称为 Command1 的命令按钮和两个名称分别为 Text1和 Text2 的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Text1.textSelect Case nCase 1 T 10X=10Case 2,4,6X=20Case Is5)、逻辑表达式(a5 And c4)、变量(i)或常数(0)。执行过程：条件成立，变量的值就是“参数 1”，否则变量的值就是“参数 2”。例题：（1） 设 a=6,则执行语句：x=IIF(a5,-1,0)后，x 的值为 D A. 5 B. 6 C. 0 D. -1知识点 8：1、循环结构 For 循环变量=

18、初值 To 终值 Step 步长“全国计算机等级考试”考试要点孙久 第 8 页 2019-3-31循环体If 条件 Then 语句Exit ForEnd IfNext 循环变量 注意：循环如果正常退出时(没有执行 Exit For 语句)，那么循环变量必须要大于终值或等于终值+步长。 Do While 条件 循环体LoopDo Until 条件 循环体Loop注意：左边上下两种循环是先判断条件后执行循环体，右边上下两种循环是不管条件成立与否都至少执行一次；While 循环是条件成立执行循环体，Until 循环是条件不成立执行循环体。例题：（1） 下列程序段的执行结果为 B s=0:t=0:u=

19、0For x=1 To 3For y=1 To xFor z=y To 3s=s+1Next zt=t+1Next yu=u+1Next xPrint s;t;uA. 3 6 14 B. 14 6 3 C. 14 3 6 D. 16 4 3分析：A 组语句和 B 语句都在 X 循环内，并且是并列的，所以可以先计算 B 组语句，A 组语句暂时不算，这样很容易求出 u=u+1 语句循环了三次，则 u=3；C 组语句和 D 语句都在 Y 循环内，并且是并列的，所以可以先计算 D 组语句，C 组语句暂时不算，这样也比较容易求出 t=t+1 语句循环了六次，则 t=6；然后再结合答案很快就能得出答案是选

20、 B。知识点 9：1、数组： 数组的概念 等级考试主要考一维数组、二维数组和三维数组(三维的只需知道数组中可以存储多少数据即可)。数组的格式：a(2,3 To 7,-1 To 2)，那它的存储空间大小计算：每一维用上界-下界+1 计算，例如 (2-0+1)*(7-3+1)*(2-(-1)+1)=3*5*4=60。Do 循环体Loop While 条件Do 循环体Loop Until 条件“全国计算机等级考试”考试要点孙久 第 9 页 2019-3-31 数组的下标下界是根据语句 Option Base n 来决定：当 n=0 时，数组下标下界是从 0 开始；当 n=1 时，数组下标下界是从 1

21、 开始。 数组分为：固定大小数组: Dim a(10) As Integer动态大小数组: Dim a() As Integer Redim a(10) Array 函数用法：为一个变体型变量创建一个数组。Dim a as Varianta=Array(1,2,3,4,5)因此：a(0)=1 a(1)=2 a(2)=3 a(3)=4 a(4)=5 注意：如果数组被定义为一下三种类型，(1) 数值型 (2) 字符型 (3)逻辑型 ，则它们初始化的数组元素数值分别为：0 、空字符串和 False 。例题：（1） 在窗体上画一个命令按钮（其 Name 属性为 Command1）,然后编写如下代码：P

22、rivate Sub Command1_Click()Dim a(4,4) As IntegerFor i=1 To 4For j=1 To 4a(i,j)=(i-1)*3+jNext jNext iFor i=3 To 4For j=3 To 4Print a(j,i)Next jPrintNext iEnd Sub程序运行后，单击命令按钮，其输出结果为 D 。A. 6 9 B. 7 10 C. 8 11 D. 9 127 10 8 11 9 12 10 13分析：对循环和数组结合的问题，往往要先看 B 组语句输出结果是什么，然后根据 B 组语句输出结果代入到 A 组语句中求结果。B 组语句

23、输出结果：代入 A 组语句的结果：知识点 10：1、过程与函数： 过程与函数的参数类型有：实参和形参；传递方式有：值传递和地址传递。a(3,3) a(4,3)a(3,4) a(4,4)9 1210 13“全国计算机等级考试”考试要点孙久 第 10 页 2019-3-31 以下程序中，x,y 为实参；a,b 为形参 注意：实参要与形参的类型、个数要相同。 在形参 a,b 之前如果加上关键字 ByVal，那么就是值传递；如果加上关键字 ByRef 或不加关键字，那么就是地址传递。 过程调用方式有两种：Call Swap(x,y)或 Swap x,y (Swap 是过程名)注意：只有地址传递方式才能

24、实现交换功能，值传递方式 x,y 的值不变。当有事件过程和通用过程一起运行时，先执行事件过程(Command_Click)。例题：（1） 假定有如下的 Sub 过程：Sub S(x As Single, ByVal y as Single)t=xx=t/yy=t Mod y End Sub在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Single, b As Singlea=5:b=4S a,bPrint a,bEnd Sub程序运行后，单击命令按钮，输出结果为_C_。A. 5 4 B. 1

25、1 C. 1.25 4 D. 1.25 1 程序分析：首先形参 x 是地址传递方式，当 a 传递给 x 时，因此 a 与 x 拥有一个共同存储空间，图形表示： ；形参 y 是值传递方式，当 b 传递给 y 时，因此 b与 y 是两个不同存储空间，图形表示： ；那么在过程 S 中：“全国计算机等级考试”考试要点孙久 第 11 页 2019-3-31运算 x=t/y 后，x=1.25，图形表示 ；因此 a 的值就是 1.25；运算 y=t Mod y后，y=1，图形表示: ，因为此时 b 和 y 存储空间不同，则不影响 b 的值，则还是 4,因此 Print a,b 的结果就是选择 C 答案。知识

26、点 11：1、菜单和鼠标事件 菜单编辑器的使用：注意：菜单中的标题可以为空，但不论是第几级菜单名称必须唯一，且不能为空。 鼠标事件（按下鼠标键事件过程）主要事件有：Form_MouseDown 、 Form_MouseUp 和 Form_MouseMove。现在以某个为例说明：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)End Sub上述事件过程不仅使用在窗体上(Form_MouseDown),还可以使用于大多数控件上，包括命令按钮(Command1_Mouse

27、Down)或文本框(Text1_MouseDown)等。以上鼠标事件过程的参数，含义如下：（1）Button 有值 1、2 和 4，分别表示按下左键、右键和中建；（2）Shift 表示 Shift、Ctrl 和 Alt 键的状态，其值分别是 1、2 和4；（3）X，Y 表示鼠标光标的坐标位置 弹出式菜单（菜单和鼠标事件的结合使用）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, “全国计算机等级考试”考试要点孙久 第 12 页 2019-3-31X As Single, Y As Single)If Button=1

28、 Then 按下鼠标左键PopUpmenu File 通过 PopUpmenu 方法弹出菜单End If File 是一级菜单的名称End Sub运行效果：2、公共对话框(又称通用对话框) 通用对话框是我们考试中唯一一个控件箱中没有的控件，需要我们自己添加的，添加的方法是在“工程”菜单的“部件”项中选择“Microsoft Common Dialog Control 6.0”后，才会在控件箱中出现通用对话框图标 。 通用对话框图形根据以上图形，相应的程序代码如下：“全国计算机等级考试”考试要点孙久 第 13 页 2019-3-31注意：CommonDialog.FilterIndex = 索引

29、 （索引是从 1 开始）知识点 12：1、文件文件包括三种：顺序文件、随机文件和二进制文件 顺序访问：文件中数据是以 ASCII 码存储的。 随机访问：文件长度记录是固定不变的，数据类型可以不同，数据以二进制方式存储在文件中，可以任意时候，任意地方访问。 二进制访问：必须知道数据是如何写入文件的。 如果源文件是字符类型，那么读写文件如下所示：读文件的格式：Open App.Path Max;“最小数：”;Min;“和：”;Sum;“平均数：”;AvgEnd Sub二、求阶层例题：求 10！.Private Sub Command1_Click()Dim Sum As Long, i As In

30、tegerSum=1For i= 1 To 10Sum=Sum*iNext iPrint “10!=”;Sum“全国计算机等级考试”考试要点孙久 第 18 页 2019-3-31End Sub三、求最大公约数例题：求 M 和 N 两个数的最大公约数。Private Sub Command1_Click()Dim M As Integer, N As Integer, R As IntegerM=36:N=24DoR=M Mod NM=NN=RLoop While Rn-1 Thenj=j+1 统计素数个数Print n;If j Mod 5 =0 Then Print 输出 5 个数换行End

31、 IfNext nEnd Sub五、求水仙花数（拆数法）例题：求 100999 之间的所有水仙花数，并将所有水仙花数在文本框中显示。所谓水仙花数：即 153=13+53+33 条件成立。方法 1：（数值型：使用运算符 Mod 和 ）Private Sub Command1_Click()Dim i As Integer ,a As Integer ,b As Integer ,c As IntegerFor i = 100 To 999a=i100 取百位数b=i10 Mod 10 取十位数c=i Mod 10 取个位数If i=a3+b3+c3 ThenText1.Text=Text1.Te

32、xt & i & Space(2)End IfNext iEnd Sub“全国计算机等级考试”考试要点孙久 第 19 页 2019-3-31方法 2：（字符型：使用函数 Mid、Val 和 CStr）Private Sub Command1_Click()Dim i As Integer ,a As Integer ,b As Integer ,c As IntegerFor i = 100 To 999a= Val(Mid(Cstr(i),1,1) 取百位数b= Val(Mid(Cstr(i),2,1) 取十位数c= Val(Mid(Cstr(i),3,1) 取个位数If i=a3+b3+c

33、3 ThenText1.Text=Text1.Text & i & Space(2)End IfNext iEnd Sub六、排序问题例题：随机产生 10 个两位整数，并存入数据 a 中，然后将这 10 个元素从小到大排序（或从大到小）,并将排序号的数组显示在文本框中。方法 1：选择排序Private Sub Command1_Click()Dim a(10) As Integer, i As Integer, j As Integer ,temp As IntegerFor i= 1 To 10a(i)=Int(Rnd*90)+10 产生 1099 之间的随机整数Next iFor i= 1

34、 To 9 比较 n-1 轮For j = i+1 To 10 每一轮比较几次If a(i)a(j) Then 从大到小：a(i)a(j) Then Pointer=j Next jIf i a(j+1) Then 从大到小：a(i)= “A“ And c= “a“ And c= “z“ Thens = s + cEnd If Next iPrint sEnd Sub3、统计每类字符的个数例题：在文本框中输入一个字符串，比如：A$m4Ch&*F13iy%p41H，请分别统计出大写字母、小写字母、数字字符和其他字符的个数。Private Sub Command1_Click()Dim n As

35、Integer ,i As Integer ,c As StringDim n1 As Integer ,n2 As Integer ,n3 As Integer ,n4 As Integern=Len(Text1.Text )For i = 1 To n c=Mid(Text1.Text,i,1)Select Case cCase “A“ To “Z“ n1 = n1 + 1Case “a“ To “z“n2 = n2 + 1Case “0“ To “9“n3 = n3 + 1Case Elsen4 = n4 + 1End SelectNext iPrint “大写字母个数：“；n1；“小写

36、字母个数：“；n2；“数字字符个数：“；n3；“其他字符个数：“；n4End Sub八、矩阵（二维数组）“全国计算机等级考试”考试要点孙久 第 22 页 2019-3-31四种矩阵的算法：（图形表示）图 图 图 图例题：有一个 4 行 4 列二维数组，现随机生成 16 个两位整数，并将它们存入到二维数组中，现根据以上四种图形分别求主对角线、副对角线、外圈数据以及内圈数据之和。第一种矩阵算法：（主对角线）Private Sub Command1_Click()Dim a(4,4) As Integer ,i As Integer ,j As IntegerDim sum As IntegerFo

37、r i = 1 To 4For j= 1 To 4a(i,j) = Int(Rnd*90) + 10Next jNext iFor i = 1 To 4For j= 1 To 4If i = j Then 行下标和列下标相同sum = sum + a(i,j) End IfNext jNext iPrint “主对角线数据之和“；sumEnd Sub 第二种矩阵算法：（副对角线）Private Sub Command1_Click()Dim a(4,4) As Integer ,i As Integer ,j As IntegerDim sum As IntegerFor i = 1 To 4

38、For j= 1 To 4a(i,j) = Int(Rnd*90) + 10对比图“全国计算机等级考试”考试要点孙久 第 23 页 2019-3-31Next jNext iFor i = 1 To 4For j= 1 To 4If i + j = 5 Then 行下标和列下标之和是一个定数sum = sum + a(i,j) End IfNext jNext iPrint “副对角线数据之和“；sumEnd Sub 第三种矩阵算法：（外圈数据）Private Sub Command1_Click()Dim a(4,4) As Integer ,i As Integer ,j As Integ

39、erDim sum As IntegerFor i = 1 To 4For j= 1 To 4a(i,j) = Int(Rnd*90) + 10Next jNext iFor i = 1 To 4For j= 1 To 4If i =1 Or i = 4 Then sum = sum + a(i,j) ElseIf j =1 Or j = 4 Then sum = sum + a(i,j) End IfNext jNext iPrint “外围数据之和“；sumEnd Sub第四种矩阵算法：（外圈数据）Private Sub Command1_Click()Dim a(4,4) As Inte

40、ger ,i As Integer ,j As IntegerDim sum1 As Integer，sum2 As Integer ,sum As IntegerFor i = 1 To 4For j= 1 To 4a(i,j) = Int(Rnd*90) + 10Next jNext iFor i = 1 To 4For j= 1 To 4If i =1 Or i = 4 Then sum1 = sum + a(i,j) “全国计算机等级考试”考试要点孙久 第 24 页 2019-3-31ElseIf j =1 Or j = 4 Then sum1 = sum + a(i,j) End I

41、fsum = sum + a(i,j)Next jNext iPrint “内围数据之和“；sum-sum1End Sub九、文件读写操作1、字符型读写数据见概念分析篇的知识点 12 有详细说明。2、数值型读写数据见概念分析篇的知识点 12 有详细说明。3、综合例题：(通用对话框和读写文件结合使用)在考生文件夹下有一个工程文件 sjt5.vbp，其窗体上有一个文本框，名称为 Textl，可以多行显示；有一个名称为 CD1 的通用对话框；还有三个命令按钮，名称分别为 C1、C2、C3，标题分别“打开文件” 、 “转换” 、 “存盘” ，如图 2-5 所示。命令按钮的功能是：“打开文件”弹出打开文

42、件对话框，默认打开文件的类型“文本文件” 。选择考生文件夹下的 in5.txt 文件后，该文件中的内容显示在 Text1 中；“转换”把Text1 中的所有小写英文字母装换成大写；“存盘”把 Text1 中的内容存入考生文件夹下的 out5.dat 文件中。在窗体中已经给出了部分程序，要求：1) 请去掉程序中的注释符，把程序中的 ？ 改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。2) 编写“转换”按钮的 Click 事件过程。最后把修改后的文件按原文件名存盘。注意：不得修改已有的程序和控件的属性，必须对考生文件夹下的 in5.txt 文件进行转换，并把转换结果通过“存盘”按

43、钮存入考生文件夹下的 out5.dat 文件中。图 2-5 运行界面已有程序代码如下：Private Sub C1_Click()Dim a As StringCD1.Filter = “所有文件|*.*|文本文件|*.txt|Word 文件|*.doc“CD1.FilterIndex = 2CD1.Action = 1 打开通用对话框，可以是“全国计算机等级考试”考试要点孙久 第 25 页 2019-3-31CD1.ShowOpenOpen CD1.FileName For Input As #1 CD1.FileName 是文件路径Input #1, aClose #1Text1.Text = aEnd SubPrivate Sub C2_Click()Text1.Text=Ucase(Text1.Text) 小写字母转换成大写字母的过程End SubPrivate Sub C3_Click()CD1.FileName = “out5.dat“CD1.Action = 2 保存通用对话框，可以是CD1.ShowSaveOpen CD1.FileName For Output As #1Print #1, Text1.TextClose #1End Sub