当前位置：文档之家 › 全国计算机等级考试二级VB上机试题与答案十一

全国计算机等级考试二级VB上机试题与答案十一

  • 格式：doc
  • 大小：134.50 KB
  • 文档页数：7

. . 专业DOC资料. 全国计算机等级考试二级VB上机试题及答案(十一)

基本操作（2小题，每题15分，共30分） **************************************************************** 请根据以下各小题的要求设计VB应用程序（包括界面和代码）。 请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Hscroll，Min属性和Max分别为0和100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目容，并把滚动条的滚动框移动到相应的位置，如图所示。 要求：不得使用任何变量。

（2）在名称为Form1的窗体中画一个图像框，名称为Image1，其高、宽分别为1800、4500，通过属性窗口把考生文件夹下的图像文件smile.bmp装入图像框；再画一个命令按钮，名称为Cmd1，标题为"放大"。 请编写适当事件过程，程序运行后，单击"放大"按钮，则把图像框的高度、宽度均增加100，同时图像也随之自动放大。 注意：程序中不得使用任何变量。 . . 专业DOC资料. 程序运行时的界面如图所示。

**************************************************************** 参考答案与分析

（1）【解析】 滚动条的属性设置：Min--最大值属性。默认值为32767；Max--最小值属性，默认值为0；Value--返回或设置滚动条的当前位置的值，返回直介于Max 和Man属性之间的值，包括这两个值。 要实现滚动条的返回值与List的设置值同步变化，在两者之间建立等式关系即可。而Text属性对应的变量类型为字符串，所以这里用了一个转化函数Val（）来实现。Val(S)函数将字符串转化为数值。与之对应的将数值转化为字符串的函数Str(N)。 【答案】 第一步：启动VB，新建一个工程文件。 第二步：在窗体上画一个文本框，文本框的Name属性为Text1，Text属性空，再在窗体上画一个水平滚动条Max为100，Min为0，Name为HScroll1，再画一个列表框List1，在List属性中输入"10、20、30、40、50、60、70、80、90"。 第三步：编写程序代码： 1 Private Sub List1_Click() 2 Text1.Text = List1.Text 3 HScroll1.Value = Val(List1.Text) 4 End Sub 第四步：调试并运行程序，运行正确后按要求保存。 （2）【解析】 本题主要考查了图像框的Stretch属性以及控制其大小的Height、Width属性。Height、Width属性与其它控件类似，设置相应的值即可动态的改变图像框的大小，例如题目要求单击"放大"按钮要使得图像框的宽度和高度均增加100，故在Cmd1 的Click事件中改变Image的Height和Width，在原先的基础上加上100。 另外，题目中要求固定图片框的大小，即不能由于图片的大小而改变图片框的大小，而且改变图像框的大小后，其中加载的图片也要自动改变大小，所以必须将. . 专业DOC资料. Image的Stretch属性设置为True。 【答案】 第一步：启动VB，新建一个工程文件。 第二步：在窗体中画一个图像框，名称为Image1，设置Height属性1800，Width属性1500，Stretch 属性为True，在Picture属性中装入文件夹下的图像文件smile.bmp，再画一个命令按钮，Name属性为Cmd1，Caption属性为"放大"。 第三步：编辑代码： 1 Private Sub Cmd1_Click() 2 Image1.Height = Image1.Height + 100 3 Image1.Width = Image1.Width + 100 4 End Sub 第四步：调试并运行程序，运行正确后按要求保存。

简单操作（2小题，每题20分，共40分） **************************************************************** 请根据以下各小题的要求设计VB应用程序（包括界面和代码）。 （1）在考生文件夹下有一个工程文件stj3.vbp，及其窗体文件stj3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示"您按下了鼠标的左键"；如果用鼠标的右键按住窗体，并在其上移动，则显示"您按下了鼠标的右键"。 程序运行时的窗体界面如图所示。

要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。 试题源程序： 1 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 2 'If Button = ? Then Print "您按下了鼠标的左键" 3 'If Button = ? Then Print "您按下了鼠标的右键" 4 End Sub （2）在考生文件夹下有一个工程文件stj4.vbp，及其窗体文件stj4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕，现使用KeyPress事件编写一个口令程序，程序运行后，在文本框中输入口令，如果正确，则显示相应的信息，单击"确定"按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3次输入的口令都不正确，则停止输入，并结束程序。程序运行的画面如图所示。 . .

专业DOC资料. 要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。 试题源程序： 1 Private Sub Form_Load() 2 Text1.Text = "" 3 Text1.FontSize = 10 4 Label1.FontSize = 12 5 Label1.FontBold = True 6 Label1.Font0 = "隶书" 7 Label1.Caption = "请输入口令..." 8 End Sub 9 Private Sub Text1_KeyPress(KeyAscii As Integer) 10 Static PWord As String 11 Static Counter As Integer 12 Static Numberftries As Integer 13 Numberftries = Numberftries + 1 14 'If ? Then End 15 Counter = Counter + 1 16 'PWord = PWord + ? 17 KeyAscii = 0 18 Text1.Text = String$(Counter, "*") 19 If LCase$(PWord) = "abcd" Then 20 Text1.Text = "" 21 PWord = 0 22 MsgBox "口令正确，继续..." 23 Counter = 0 24 Print "continue..." 25 'ElseIf ?Then 26 Counter = 0 27 PWord = "" 28 Text1.Text = "" 29 MsgBox "口令不对，请重新输入" 30 End If 31 End Sub **************************************************************** . . 专业DOC资料. 参考答案与分析

（1）【解析】 本题主要考查了鼠标左键以及右键的使用，即鼠标的Button属性。Button为1时，表示鼠标的左键，为2时，表示鼠标的右键，为4时，表示鼠标的中键，故在第一个?处填入1，表示按下鼠标的左键，第二个?处填入2，表示鼠标的右键。 【答案】 （1）启动VB，打开考生文件夹下的工程文件stj2.vbp。 （2）双击窗体的任何位置，进入代码编辑窗口，补充程序如下： 第一个?处填入1 第二个?处填入2 （3）运行程序，确定无误后以原文件名保存。 （2）【解析】 本题主要考查了文本框的KeyPress事件。每按下键盘的一个键就触发一次KeyPress事件。在本题中用文本框的KeyPress事件来测试输入口令是否正确。在该过程中，定义了3个静态变量，其中Numberftries变量用来对输入的口令字符计数。每按一次键，就触发一次KeyPress事件，Numberftries变量加1，当该值达到12时结束程序，因此第一个问号处应填入Numberftries = 12。口令由四个字符组成，既由每次输入的字符连接起来组成，因此第二个问号处应填入Chr$(KeyAscii)，用Counter来表示输入口令长度，每输入四个为一个完整的口令，因此第三个问号处应填入Counter = 4。 【答案】 （1）启动VB，打开考生文件夹下的工程文件stj4.vbp。 （2）双击窗体的任何位置，进入代码编辑窗口，填写代码： 第一个?处填入：Numberftries = 12 第二个?处填入：Chr$(KeyAscii) 第三个?处填入：Counter = 4 （3）填写完毕，调试并运行，运行无误后以原文件名保存。

综合应用（1小题，共30分） **************************************************************** 请根据以下各小题的要求设计VB应用程序（包括界面和代码）。 在考生文件夹下有工程文件djks043.vbp及窗体文件djks043.frm，该程序是不完整的，请在有？的地方填入正确容，然后删除？及所有注释符（′），但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下：在窗体上有两个标签、两个文本框、一个框架、三个单选框以及两个控制按钮。标签的名称分别为Label1与Label2，标题分别为"原文本"、"加密文本"；文本框的名称分别为Text1与Text2,Text属性均为空；两个控制按钮的名称分别为Command1与Command2，标题分别为"加密"与"读入"；单选框的名称统一为Option1，标题分别为2、4、6；框架名称为Frame1，标题为"加密类型"。单击"读入"按钮，程序将读入考生文件夹下的文本文件in043.txt，单击"加密"按钮，加密过的文本显示在Text2中。根据单选框中不同的数字，加密的方法不同。例如选择Option1，则逐一把Text1中的字符串改为它后面的第2个字母。 程序运行时的窗体界面如图所示。

合集下载

(完整word版)计算机二级VB编程题目含答案

(完整word版)计算机二级VB编程题目含答案

Private Sub Command1_Click()Dim n As Integer, i As Integer, s As Double n = Val(Text1.Text)s = 0For i = 1 To ns = s + i ^ 2Next iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerOpen App.Path & "\" & "yssj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Next iClose #1End SubPrivate Sub Command2_Click()''' 不得删除本行注释Dim i As IntegerText1.Text = ""For i = 1 To 10If a(i) Mod 3 = 2 ThenText1.Text = Text1.Text & Str(a(i)) End IfNext iEnd SubPrivate Sub command1_Click()'''不得删除本行注释Dim a As Integer, b As Double, i As Integer, n As Integer n = Val(Text1.Text)a = 0b = 0For i = 1 To na = a + ib = b + aNext iText2.Text = bEnd SubPrivate Sub Command1_Click()'''不得删除本行注释Dim i%, xh$, xm$Open App.Path & "\" & "Xhxm.txt" For Output As #1For i = 1 To 3xh = InputBox("请输入学号")xm = InputBox("请输入姓名")Write #1, xh, xmNext iClose #1End Sub Private Sub Command2_Click()'''不得删除本行注释Dim s as stringOpen App.Path & "\" & "Xhxm.txt" For Input As #2Do While Not EOF(2)Line Input #2, sText1.Text = Text1.Text & s & vbCrLf LoopClose #2End SubPrivate Sub Command1_Click()‘”读取文件”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & “jmwb.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private Sub Command2_Click()Dim s As String, co As String, c As String, Dim n As Integer, i As Integer, p As Integer s = Trim(Text1.Text)n = Len(s)co = ""For i = 1 To nc = Mid(s, i, 1)p = Asc(c) + 5co = co + Chr(p)Next iText2.Text = coEnd SubPrivate Sub command1_click()'''不得删除本行注释For N = 1 To 15x(N) = Int(Rnd * 91 + 10)Text1.Text = Text1.Text + Str(x(N)) Next NEnd Sub Private Sub Command2_Click()'''不得删除本行注释Dim m As Integer, K As IntegerFor N = 1 To 15For m = N + 1 To 15If x(m) > x(N) ThenK = x(N)x(N) = x(m)x(m) = KEnd IfNext mText2.Text = Text2.Text + Str(x(N)) Next NEnd SubPrivate Sub Command1_Click()Dim char As String * 1char = Trim(Text1.Text)If Not IsNumeric(char) ThenIf (Asc(char) >= 65 And Asc(char) <= 90) Or _(Asc(char) >= 97 And Asc(char) <= 120) ThenLabel1.Caption = "输入的是字母"Else: Label1.Caption = "输入的是其它符号"End IfElse: Label1.Caption = "输入的是数字"End IfEnd SubPrivate Sub Command1_Click()Text1.Text = UCase(Text1.Tag)End SubPrivate Sub Command2_Click()Text1.Text = LCase(Text1.Tag)End SubPrivate Sub Command3_Click()Text1.Text = Text1.TagEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)'对于文本框控件中输入的每次键盘按键弹起事件做一次文本内容保存Text1.Tag = Text1.Text '用Text1.Tag属性作为保存textbox控件文本内容的临时存储区End SubPrivate Sub command1_Click()''' 不得删除本行注释Dim a As Integer, b As Integer, c As Integer Dim max As Integer, min As Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)max = a + b + Abs(a - b)max = max / 2min = a + b - Abs(a - b)min = min / 2max = max + c + Abs(max - c)max = max / 2min = min + c - Abs(min - c)min = min / 2Text4.Text = maxText5.Text = minEnd SubPrivate Sub Command1_Click()Dim a As IntegerIf Not IsNumeric(Text1.Text) ThenMsgBox "请输入数字！", 48, "输入的不是数字"Else a = Val(Text1.Text)If (a Mod 4 = 0 And a Mod 100 <> 0) Or a Mod 400 = 0 ThenText2.Text = "闰年"Else: Text2.Text = "非闰年"End IfEnd ifText1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim n As Integer, i As Integern = Val(Text1.Text)If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数" Open App.Path & "\" & "jfwj.txt" For Output As #1For i = 1 To nPrint #1, String(i, "*")Next iClose #1End SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As IntegerFor i = 1 To 200If i Mod 3 = 0 And i Mod 7 = 0 ThenText1.Text = Text1.Text + Str(i)End IfNextEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim sum As Single, i As IntegerOpen App.Path & "\" & "Jsdata.txt" For Input As #1 For i = 1 To 15Input #1, Arr(i)Next iClose #1If Op1 ThenT1.Text = AaaEnd IfIf Op2 ThenT1.Text = BbbEnd IfEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim i As Integer, n As Integer, s As Integern = Val(Text1.Text)If n < 0 Or (Not IsNumeric(Text1.Text)) Then MsgBox "请输入正整数", 48, "输入的不是正整数" s = 0For i = 1 To nIf i Mod 3 = 0 Thens = s + iEnd IfNext iText2.Text = sEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Dim a As Integera = Val(Text1.Text)Text2.Text = zh(a)‘ zh过程在原本的程序代码中已经有了～直接可用End SubPrivate Sub Command1_Click() ''' 不得删除本行注释Dim x As DoubleDim y As Doublex = Val(Text1.Text)If x < 10 Theny = x - 1ElseIf x < 20 Theny = 2 * x - 1Else: y = 3 * x - 1End IfText2.Text = yEnd SubPrivate Sub Command1_Click()''' 不得删除本行注释Text1.Text = ""Open App.Path & "\" & "zfwj.txt" For Input As #1For i = 1 To 10Input #1, a(i)Text1.Text = Text1.Text & " " & a(i)Next iClose #1End Sub Private Sub Command2_Click()''' 不得删除本行注释Dim t As StringText2.Text = ""For i = 1 To 10t = a(i)a(i) = a(10 - i + 1)a(10 - i + 1) = tText2.Text = Text2.Text & " " & a(i) Next iEnd SubPrivate Sub Command1_Click()Dim a As IntegerDim b As Integera = Val(Text1.Text)b = Val(Text2.Text)Label1.Caption = Int(Rnd() * (b - a + 1) + a) Label2.Caption = Int(Rnd() * (b - a + 1) + a) Label3.Caption = Int(Rnd() * (b - a + 1) + a)End SubPrivate Sub Command1_Click()Dim s as stringOpen App.Path & "\" & "Bdata.txt" For Input As #1 Do While Not EOF(1)Line Input #1, sText1.Text = Text1.Text + s + Chr(13) + Chr(10) LoopClose #1End SubPrivate Sub Command1_Click()'''不得删改本行注释Dim n As Integern = Val(Text1.Text)If n < 100 Or n > 999 ThenMsgBox "请输入三位正整数", , "输入出错" Else: Text2.Text = Int(n Mod 10)Text3.Text = Int((n Mod 100) / 10)Text4.Text = Int(n / 100)End IfEnd SubPrivate Sub Command1_Click()'产生按钮的代码i = List1.ListIndexFor i = 0 To 9List1.AddItem Int(90 * Rnd + 10)Next iEnd SubPrivate Sub Command3_Click() ’清除按钮的代码List1.ClearList2.ClearEnd Sub Private Sub Command2_Click()'''不得删改本行注释Dim n As Double, j As Integeri = List1.ListIndexFor i = List1.ListCount - 1 To 0 Step -1 n = Val(List1.List(i))If n Mod 2 = 1 ThenList2.AddItem nList1.RemoveItem iEnd IfNext iEnd SubPrivate Sub Command1_Click()‘”读入数据”按钮代码'''不得删除本行注释Dim st As StringText1.Text = ""Open App.Path & "\" & "yy.txt" For Input As #1While Not EOF(1)Input #1, stText1.Text = Text1.Text + st + vbCrLf WendClose #1End Sub Private Sub Command2_Click()'''不得删除本行注释Dim x As String, y As String * 1, n As Integer, i As Integer, p As Integerx = Trim(Text1.Text)n = Len(x)p = 0For i = 1 To ny = UCase(Mid(x, i, 1))If y >= "A" And y <= "Z" Thenp = p + 1End IfNext iLabel1.Caption = "共" & p & "个字母"End SubPrivate Sub Command1_Click()'''不得删除本行注释Dim n As Integer, k As Integer, i As IntegerFor n = 200 To 300k = Int(Sqr(n))For i = 2 To kIf n Mod i = 0 Then Exit ForNext iIf i > k Then List1.AddItem nNext nEnd Sub。

国家二级VB机试(上机操作)模拟试卷450(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷450(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷450(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．(1)在名称为Form1的窗体上添加两个名称分别为Text1和Text2的文本框，它们的高、宽分别为300、2400和1200、2400。

窗体的标题为“窗口”。

请通过属性窗口设置适当的属性，满足如下要求：①Text2可以业示多行文本，并且有垂直和水平两个滚动条；②程序运行时在Text1中显示输入的字符为“*”。

程序运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下。

工程文件名保存为sjt1．vbp，窗体文件名保存为sjt1．frm。

(2)在名称为Form1的窗体上添加一个名称为Image1的图像框，其高、宽分别为1900、1700，通过属性窗口把考生文件夹下的图像文件pic1．bmp载入图像框；再画两个命令按钮控件，名称分别为C1、C2，标题分别为“放大”、“缩小”，如图所示。

要求：①请编写适当的事件过程，程序运行后，如果单击“放大”按钮，则将图像框的高度、宽度均增加100；单击“缩小”按钮，则将图像框的高度、忧度均减少100，要求程序中不得使用任何变量。

②通过属性窗口设置图像框的适当属性，使得在放大、缩小图像框时，其中的图像也自动放大、缩小。

注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2．vbp，窗体文件名保存为sjt2．frm。

正确答案：(1)步骤1：新建一个窗体，按照题目要求建立文本框控件并设置其属性，程序中涉及的控件及属性见表3．8和表3．9。

步骤2：调试并运行程序，关闭程序后按题目要求存盘。

(2)步骤1：新建一个窗体，按照题目要求建立控件并设置图像框相应属性，如图3．17所示。

步骤2：按照步骤1设置其他控件相关属性，程亭中涉及的控件及属性见表3．10。

步骤3：打开代码编辑窗口，在指定位置编写如下代码。

参考答案Private Sub C1 Click( )’当单击”放大”按钮时，依次将Imagel的高与宽分别加100 Imagel．Height=Imagel．Height+i00 Imagel．Width=Imagel．Width+100 End Sub Private Sub C2 Click( )’当单击”缩小”按钮，则依次将Imagel的高与宽分别减100 Imagel．Height=Imagel．Height—100 Imagel．Width=Imagel．Width一100 End Sub 步骤4：调试并运行程序，关闭程序后按题目要求存盘。

全国二级vb基本操作题 上机题库全 ok

全国二级vb基本操作题 上机题库全 ok

淮安远东计算机培训中心2011年3月第31次计算机等级考试※二级VB上机考试真题库※题型和题套对应表：----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------第01套：（1）在名称为Form1的窗体上画一个名称为Text1的文本框，其高、宽分别为400、2000。

请在属性框中设置适当的属性满足以下要求：-----3文本框1）Text1的字体为“黑体”，字号为“四号”；2）窗体的标题为“输入”，不显示最大化按钮和最小化按钮。

运行后的窗体如图所示。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

（2）在名称为Form1的窗体上画一个名称为Image1的图象框，利用属性窗口装入考生目录下的图象文件pic1.bmp，并设置适当属性使其中的图象可以适应图象框大小；再画两个命令按钮，名称分别为Command1、Command2，标题分别为“向右移动”、“向下移动”。

请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图象框向右移动100；每单击“向下移动”按钮一次，图象框向下移动100。

运行时的窗体如图所示。

--17图象框要求程序中不得使用变量，事件过程中只能写一条语句。

注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

--------------------------------------------------------------------------------------------------------------------------------------第02套：（1）在名称为Form1的窗体上用名称为Shape1的控件画一个圆，其直径为1500（即宽、高均为1500），并设置适当属性，使窗口标题为“圆”，窗体标题栏上不显示最大化和最小化按钮（如图所示）。

国家二级VB机试(上机操作)模拟试卷210(题后含答案及解析)

国家二级VB机试(上机操作)模拟试卷210(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷210(题后含答案及解析) 全部题型 2. 基本操作题 3. 简单应用题 4. 综合应用题基本操作题1．请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1、标题为“列表框练习”的窗体上画一个名称为List1的列表框，表项内容依次输入xxx、ddd、mmm和aaa，且以宋体14号字显示表项内容，如图2．93(a)所示。

最后设置相应属性，使运行后列表框中的表项按宁母升序方式排列，如图2．93(b)所示。

注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，上程文件名为sjt1．vbp。

(2)在名称为Form1的窗体上，画一个名称为Labell的标签，其标题为“计算机等级考试”，字体为宋体，字号为12号，且能根据标题内容自动调整标签的大小。

再画两个名称分别为Command1、Command2，标题分别为“缩小”和“还原”的命令按钮(如图2．94所示)。

要求：编写适当的事件过程，使得单击“缩小”按钮，Labell中所显示的标题内容自动减小两个字号：单击“还原”按钮，Labell所显示的标题内容的大小自动恢复到12号。

注意：存盘时，将文件保存至考生文件夹下，窗体文仲名为sjt2．frm，工程文件名为sjt2．vbp。

要求程序中不得使用变量，每个事件过程中只能写一条语句。

正确答案：第1小题【操作步骤】步骤1：新建一个“标准EXE”工程。

如表3-52存窗体中画出控件并设置其相关属性。

步骤2：按要求将文件保存至考生文件夹中。

第2小题【操作步骤】步骤1：新建一个“标准EXE”工程，如表3．53在窗体中画出控件并设置其相关属性。

步骤2：打开代码编辑窗口，编写两个命令按钮的Click事什过程。

参考代码：Private Sub Commandl—Click( ) Labell．FontSize=Labell．FontSiZe一2 End Sub Private Sub Command2一Click( ) Labell．FontSiZe=12 End Sub 步骤3：按要求将文件保存至考生文件夹中。