国二级VB上机题61-65.doc

第61套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为 Form1的窗体上画一个标签（名称为Label1，标题为“输入信息 ”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（ 名称为Command1，标题为“显示”），如图 1所示。然后编写命令按钮的 Click 事件过程。程序运行后，在文本框中输入“计算机等级考试”，然 后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。 运行后的窗体如图 2所示。要求程序中不得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件 名为sjt1.frm。* （2）在名称为 Form1的窗体上画一个文本框（名称为Text1，Text属性为“国” ，FontName属性为“黑体”）和一个水平滚动条（名称为HScroll1），如 图 1所示。在属性窗口中对滚动条设置如下属性： Min 10 Max 100 LargeChange 5 SmallChange 2 编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩 大或缩小文本框中的“国”字。运行后的窗体如图 2所示。要求程序中不 得使用任何变量。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上建立一个菜单，主 菜单项为“项目”（名称为Item），它有两个子菜单项，其名称分别为Add 和Delete，标题分别为“添加项目”和“删除项目”，然后画一个列表框 （名称为List1）和一个文本框（名称为Text1），如图 1所示。编写适当 的事件过程。程序运行后，如果执行“添加项目”命令，则从键盘上输入 要添加到列表框中的项目（内容任意，不少于三个）；如果执行“删除项 目”命令，则从键盘上输入要删除的项目，将其从列表框中删除。程序的 运行情况如图 2所示。 在考生文件夹下的工程文件sjt3.vbp（相应的窗体文件名为sjt3.frm）， 可以实现上述功能。但这个程序不完整，请把它补充完整。 要求： 去掉程序中的注释符，把程序中的？改为适当的内容，使其正确运行， 但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。* （2）在考生文件夹下有一个工程文件sjt4.vbp（相应的窗体文件名为sjt4.frm ），其功能是通过调用过程Sort将数组按升序排序。程序运行后，在四个 文本框中各输入一个整数（如图 1所示），然后单击命令按钮，即可使数 组按升序排序，并在文本框中显示出来（如图 2所示）。这个程序不完整， 请把它补充完整，并能正确运行。 要求： 去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功 能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存 盘。3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为%USER% 在窗体上建立三个菜单（名称分别为Read、Calc和Save，标题分别为“读入 数据”、“计算并输出”和“存盘”），然后画一个文本框（名称为Text1， MultiLine属性设置为True，ScrollBars属性设置为2）（如图所示）。程序 运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整 数， 放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则 把该数组中大于等于50的元素在文本框中显示出来，求出它们的和，并把所 求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入 考生文件夹下的dataout.txt文件中。 在考生文件夹下有一个工程文件sjt5.vbp，考生可以装入该文件。窗体文件 中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中； 而 WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中（整 数值通过计算求得，文件名为dataout.txt）。 注意： 考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍为 sjt5.vbp，窗体文件名仍为sjt5.frm。第61套答案一、基本操作题第1小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为“输入信息”。画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空。画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为“显示”。 单击“显示”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() Label1.Visible = 0 Text1.Visible = 0 Print Text1.TextEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。第2小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为“国”，点击Font属性弹出字体对话框，在字体处选择“黑体”。画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，Min属性设为10，Max属性设为100，LargeChang属性均设为5，SmallChange属性均设为2。 移动水平滚动框（即运行Change事件过程），在该Change事件过程中加入语句：Private Sub HScroll1_Change() Text1.FontSize = HScroll1.ValueEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。二、简单应用题第1小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体控件不完整，通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“项目”（题目没有要求），名称处输入Item。在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“添加项目”、“删除项目”，名称处分别输入Add、Delete。画一个列表框控件，通过其属性窗口将名称设为List1。画一个文本框控件，通过其属性窗口将名称设为Text1。 由于所提供的窗体程序不完整，在“添加项目”命令的Private Sub Add_Click()事件过程中，有一处地方需要修改。1) 将语句 List1.AddItem ? 改为 List1.AddItem Text1.Text 在“删除项目”命令的Private Sub Delete_Click()事件过程中，有三处地方需要修改。1) 将语句 For i = 0 To ? 改为 For i = 0 To List1.ListCount - 12) 将语句 If List1.List(i) = ? Then 改为 If List1.List(i) = Text1.Text Then3) 将语句 List1.RemoveItem ? 改为 List1.RemoveItem i参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。第2小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体程序不完整，在函数Private Sub Sort(a() As Integer)中，有五处地方需要修改。1) 将语句 Start = ?(a) 改为 Start = LBound(a)2) 将语句 Finish = ?(a) 改为 Finish = UBound(a)3) 将语句 For i = ? To 2 Step -1 改为 For i = UBound(a) To 2 Step -14) 将语句 For j = 1 To ? 改为 For j = 1 To i - 15) 将语句 If a(j) ? a(j + 1) Then 改为 If a(j) a(j + 1) Then参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。三、综合应用题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体控件不完整，通过菜单编辑器建立三个菜单，在菜单编辑器的标题处分别输入“读入数据”、“计算并输出”和“存盘”，名称处分别输入Read、Calc和Save。需在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1，MultiLine属性设为True，ScrollBars属性设为2。 由于所提供的窗体程序不完整，需添加事件过程。 单击“读入数据”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Read_Click() ReadDataEnd Sub 单击“计算并输出”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Calc_Click() Dim S As String Sum = 0 For i = 1 To 100 If Arr(i) = 50 Then Sum = Sum + Arr(i) S = S & Str(Arr(i) & End If Next i Text1.Text = S Print Sum = ; SumEnd Sub 单击“存盘”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Save_Click() WriteData DataOut.txt, SumEnd Sub 变量Sum存放和的结果，它在几个事件过程中都要使用，所以定义成全局变量，即在声明部分加入语句：Dim Sum As Integer参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、DataOut.txt请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。第62套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画一个名称为command1、标题为“打开”的命令 按钮，然后画一个名称为CD1的通用对话框（如图所示），编写适当的事 件过程，使得运行程序时，单击“打开”命令按钮， 则弹出打开文件对 话框。在属性窗口中设置通用对话框的适当属性， 使得对话框中显示的 文件类型第一项为“所有文件”，第二项为“*.DOC”，默认的过滤器为 .DOC文件。 注意： 要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存 放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。* （2）在名称为 Form1的窗体上画一个文本框，名称为Text1，其初始内容为0； 画一个命令按钮，名称为C1，标题为“开始计数”；再画一个名称为 T1 的计时器。要求在开始运行时不计数，单击“开始计数”按钮后， 使文 本框中的数每秒加1。在命令按钮的适当事件过程中加入语句： T1.Enabled = True，并编写适当的事件过程实现这个功能，要求只能写 一条语句。运行时的窗体如图所示。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）在考生文件夹下有一个工程文件sjt3.vbp，它包含两个名称分别为Form1 和Form2的窗体，Form1和Form2窗体上建立了标题分别为“C1”和“C2” 的按钮。请把Form1上按钮的标题改为“结束”，把Form2上按钮的标题 改为“显示”，并将Form2设为启动窗体，将Form1设为不显示。 该程序实现的功能是：在程序运行时显示Form2窗体，单击Form2上的“ 显示”按钮，则显示Form1窗体；若单击Form1上的“结束”按钮，则关 闭Form1和Form2，并结束程序运行。 请去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述 功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名 存盘。正确程序运行后的界面如图所示。* （2）在考生文件夹下有一个工程文件sjt4.vbp，窗体上有一个名为P1的图片框 ；一个单选按钮数组，含三个单选按钮，标题分别为“正方形”、“椭圆 形”、“圆形”；还有一个标题为“显示”的命令按钮。程序的功能是在 运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮 的选中情况，在图片框中显示“选择了正方形”、“选择了椭圆形”或“ 选择了圆形”，如图所示。 要求： 1）原题中的单选按钮和命令按钮没有标题，请利用属性窗口依次添加单 选按钮标题分别为“正方形”、“椭圆形”、“圆形”，添加命令按 钮标题为“显示”。 2）去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实现上述 功能。 注意：不能修改程序中的其他部分，也不能修改控件的其他属性。最后把 修改后的程序以原文件名存盘。3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为%USER% 在考生文件夹下有一个工程文件sjt5.vbp。运行程序时，在文本框中输入一 个素数，然后单击 “查找” 命令按钮，找出小于给定素数的三个最大的素 数，并显示在标签控件数组Label1中，如图所示。 要求： 工程文件中已给出部分程序，其中的IsPrime过程用来判断一个数是否为素 数。请编写“查找”命令按钮的事件过程中的部分程序代码。 注意： 程序调试通过后，在“给定的素数”对应的文本框中输入12379，并执行“ 查找”命令，将找到满足条件的三个素数显示在标签中，否则没有成绩。 不得修改程序的其他部分和控件属性。 最后把修改后的文件按原文件名存 盘。第62套答案一、基本操作题第1小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个命令按钮控件，通过其属性窗口将名称设为Command1，标题（Caption属性）设为打开。画一个通用对话框控件，通过其属性窗口将名称设为CD1，Filter属性设为所有文件|*.*|*.Doc|*.doc，FilterIndex属性设为2。 单击打开按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click() CD1.ShowOpenEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。第2小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个文本框，通过其属性窗口将名称设为Text1，文本框中的初始内容（Text属性）设为0。画一个命令按钮，通过其属性窗口将名称设为C1，标题（Caption属性）设为“开始计数”。再画一个计时器，通过其属性窗口将名称设为T1，Interval属性设为1000（每秒加1），Enabled属性设为False（即程序开始运行时不计数）。 单击命令按钮（即运行Click事件过程），在Click事件过程中加入语句：T1.Enabled = True，即启动了计时器。在计时器的Timer事件过程中加入语句：Text1.Text = Text1.Text + 1，即完成每秒加1功能。参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。二、简单应用题第1小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的Form1窗体控件不完整，通过其属性窗口将标题（Caption属性）设为“结束”。 提供的Form2窗体控件不完整，通过其属性窗口将标题（Caption属性）设为“显示”。选择“工程”菜单下的“工程1属性”选项，打开该工程的属性窗口，在通用选项卡中将启动对象选为Form2即可。 由于所提供的Form2窗体程序不完整，在窗体的Private Sub C2_Click()事件过程中，有二处地方需要修改。1) 将语句 Load ? 改为 Load Form12) 将语句 ? = True 改为 Form1.Visible = True参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt31.frm、sjt32.frm、sjt3.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。第2小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体控件不完整，通过属性窗口将单选按钮的标题（Caption属性）分别设为“正方形”、“椭圆形”、“圆形”。通过属性窗口将命令按钮标题（Caption属性）设为“显示”。 由于所提供的窗体程序不完整，在命令按钮的Private Sub C1_Click()事件过程中，有二处地方需要修改。1) 将语句 If Op1(k).? = True Then 改为 If Op1(k).Value = True Then2) 将语句 Call draw(?) 改为 Call draw(k) 在Sub draw(a As Integer)事件过程中，有一处地方需要修改。1) 将语句 P1.Print 选择了 & Op1(?).Caption 改为 P1.Print 选择了 & Op1(a).Caption参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。三、综合应用题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体程序不完整，需在查找命令按钮的Click事件过程中加入语句：Private Sub Command1_Click()考生编写程序开始= Dim i As Integer Dim n As Integer Dim counter As Integer Dim arr(3) As Integer n = Val(Text1.Text) counter = 0 For i = n - 2 To 3 Step -2 If IsPrime(i) Then arr(counter) = i counter = counter + 1 If counter = 3 Then Exit For End If End If Next For i = 0 To 2 Label1(i).Caption = arr(i) Next=考生编写程序结束 Open App.Path & out5.dat For Output As #1 Print #1, Text1.Text, Label1(0).Caption, Label1(1).Caption, Label1(2).Caption Close #1End Sub参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、out5.dat请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。第63套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在 Form1的窗体上画一个名称为P1的图片框，然后建立一个主菜单，标题 为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示”和 “清除”，名称分别为 Dis和Clea，编写适当的事件过程。程序运行后， 如果单击“操作”菜单中的“显示”命令，则在图片框中显示“等级考试 ”；如果单击“清除”命令，则清除图片框中的信息。程序的运行情况如 图所示。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件 名为sjt1.frm。程序中不得使用任何变量。* （2）在 Form1的窗体上画一个列表框，名称为L1，通过属性窗口向列表框中添 加 4个项目，分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，编写适 当的事件过程，过程中只能使用一条命令。程序运行后，如果双击列表框 中的某一项，则把该项添加到列表框中。程序的运行情况如图所示。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件 名为sjt2.frm。2. 简单应用（2小题，每题20分，计40分） 注意：下面出现的“考生文件夹”均为%USER%* （1）在考生文件夹下有一个工程文件sjt3.vbp，请在窗体上画两个框架，其名 称分别为F1和F2，标题分别为“交通工具”和“到达目标”。在F1中画两 个单选按钮，名称分别为Op1和Op2，标题分别为“飞机”和“火车”。在 F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为“广州”和“昆 明”。画一个文本框，其名称为Text1。编写适当事件过程。程序运行后， 选择不同单选按钮并单击窗体后在文本框中显示结果见下表 程序的运行情况如图所示。存盘时，按原文件名存盘。 注意： 考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必 须至少进行上面的一种操作。退出程序时必须通过单击窗体右上角的 关闭按钮。* （2）在考生文件夹下有一个工程文件sjt4.vbp，请在窗体上画三个文本框，其 名称分别为Text1、Text2和Text3，文本框内容分别设置为“等级考试”、 “计算机”和空白。然后画两个单选按钮，其名称分别为Op1和Op2，标题 分别为“交换”和“连接”（如图所示），编写适当的事件程序。程序运 行后，如果选中“交换”单选按钮并单击Text3文本框，则Text1文本框中 内容与 Text2文本框中内容进行交换，并在 Text3文本框中显示“交换成 功”；如果选中“连接”单选按钮并单击 Text3 文本框，则把 Text1 和 Text2的内容按Text1、Text2的顺序连接起来，并在Text3文本框中显示连 接后的内容。存盘时，按原文件名存盘。 注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单 选按钮，然后单击 Text3。退出程序时必须通过单击窗体右上角的关闭按 钮，否则可能无成绩。3. 综合应用（1小题，计30分） 注意：下面出现的“考生文件夹”均为%USER% 在考生文件夹下有一个工程文件sjt5.vbp，请先装入该工程文件，然后完成 以下操作： 在名称为Form1 的窗体上画三个命令按钮，其名称分别为C1、C2和C3，标题 分别为“读入数据”、“计算”和“存盘”（如图所示）。程序运行后，如 果单击“读入数据”按钮，则调用题目已提供的ReadData1和ReadData2过程 读入datain1.txt和datain2.txt文件中的各20个整数，分别放入Arr1和Arr2 两个数组中；如果单击“计算”按钮，则把两个数组中对应下标的元素相整 除，其结果放入第三个数组中（即：第一个数组的第 n个元素整除第二个数 组的第n个元素，其结果作为第三个数组的第 n 个元素。这里的 n为1、2、 .、20 ），然后计算第三个数组各元素之和，并把所求得的和在窗体上显 示出来；如果单击“存盘”按钮，则调用题目中给出的 WriteData过程将所 求得的和存入考生文件夹下的dataout.txt文件中。 注意： 考生不得修改窗体文件中已经存在的程序，必须把求得的结果用“存盘” 按钮存入考生文件夹下的dataout.txt文件中，否则没有成绩。最后把修 改后的文件以原来的文件名存盘。第63套答案一、基本操作题第1小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个图片框控件，通过其属性窗口将名称设为P1。通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入Op，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示”和“清除”，名称处分别输入Dis和Clea。 单击“操作”菜单中的“显示”命令（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Dis_Click() P1.Print 等级考试End Sub 单击“操作”菜单中的“清除”命令（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Clea_Click() P1.ClsEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt1.vbp、sjt1.frm、sjt1.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt1.vbp文件并运行。第2小题 启动Visual Basic系统，创建一个Form1窗体。 在该窗体上画一个列表框控件，通过其属性窗口将名称设为L1，向列表框中添加项目（List属性），添加的项目分别为“AAAA”、“BBBB”、“CCCC”和“DDDD”，每个项目为一行。 双击列表框（即运行DblClick事件过程），在该DblClick事件过程中加入语句：Private Sub L1_DblClick() L1.AddItem L1End Sub参考文件：c:wexam26990001hlpsys参考答案sjt2.vbp、sjt2.frm、sjt2.frx、sjt2.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt2.vbp文件并运行。二、简单应用题第1小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt3.vbp，相应的窗体文件名为sjt3.frm。 由于所提供的窗体控件不完整，需在该窗体上画二个框架控件，通过其属性窗口将名称分别设为F1、F2，标题（Caption属性）分别设为“交通工具”和“到达目标”。在F1框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“飞机”和“火车”。在F2框架中画二个单选按钮控件，通过其属性窗口将名称分别设为Op3、Op4，标题（Caption属性）分别设为“广州”和“昆明”。画一个文本框控件，通过其属性窗口将名称设为Text1。 由于所提供的窗体程序不完整，需添加事件过程。 单击窗体（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Form_Click() If Op1 And Op3 Then Text1.Text = 坐飞机去广州 ElseIf Op1 And Op4 Then Text1.Text = 坐飞机去昆明 ElseIf Op2 And Op3 Then Text1.Text = 坐火车去广州 ElseIf Op2 And Op4 Then Text1.Text = 坐火车去昆明 End IfEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt3.vbp、sjt3.frm、sjt3.vbw、out3.txt请把这些文件复制到c:wexam26990001中，然后打开sjt3.vbp文件并运行。第2小题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。 由于所提供的窗体控件不完整，需在该窗体上画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2和Text3，标题（Caption属性）分别设为“等级考试”、“计算机”和空白。再画二个单选按钮控件，通过其属性窗口将名称分别设为Op1、Op2，标题（Caption属性）分别设为“交换”和“连接”。 单击Text3文本框（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Text3_Click() If Op1 Then Text3.Text = Text1.Text Text1.Text = Text2.Text Text2.Text = Text3.Text Text3.Text = 交换成功 ElseIf Op2 Then Text3.Text = Text1.Text & Text2.Text End IfEnd Sub参考文件：c:wexam26990001hlpsys参考答案sjt4.vbp、sjt4.frm、sjt4.vbw请把这些文件复制到c:wexam26990001中，然后打开sjt4.vbp文件并运行。三、综合应用题 启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。 由于所提供的窗体控件不完整，需在该窗体上画三个命令按钮控件，通过其属性窗口将名称分别设为C1、C2和C3，标题（Caption属性）分别设为“读入数据”、“计算”和“存盘”。 由于所提供的窗体程序不完整，需添加事件过程。 单击“读入数据”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C1_Click() ReadData1 ReadData2End Sub 单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C2_Click() Dim Arr3(20) As Integer Sum = 0 For i = 1 To 20 Arr3(i) = Int(Arr1(i) / Arr2(i) Sum = Sum + Arr3(i) Next i Print Sum = ; SumEnd Sub 单击“存盘”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub C3_Click() WriteData DataOut.txt, SumEnd Sub 变量Sum存放和的结果，它在几个事件过程中都要使用，所以定义成全局变量，即在声明部分加入语句：Dim Sum As Integer参考文件：c:wexam26990001hlpsys参考答案sjt5.vbp、sjt5.frm、sjt5.vbw、DataOut.txt请把这些文件复制到c:wexam26990001中，然后打开sjt5.vbp文件并运行。第64套1. 基本操作（2小题，每小题15分，共计30分） 注意：下面出现的“考生文件夹”均为%USER%* 请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。 （1）在 Form1的窗体上画一个名称为 Text1的文本框，然后建立一个主菜单， 标题为“操作”，名称为Op，该菜单有两个子菜单，其标题分别为“显示 ”和“清除”，名称分别为 Dis和Clea，编写适当的事件过程。程序运行 后，如果单击“操作”菜单中的“显示”命令，则在文本框显示“等级考 试”；如果单击“清除”命令，则清除文本框中显示的内容。程序的运行 情况如图所示。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件 名为sjt1.frm。* （2）在Form1 的窗体上画一个文本框，名称为 Text1，Text属性为空白。再画 一个列表框，名称为L1，通过属性窗口向列表框中添加 4个项目，分别为 “AAAA”、“BBBB”、“CCCC”和“DDDD”，编写适当的事件过程。程序 运行后，在文本框中输入一个字符串，如果双击列表框中