1、二级 VISUAL+BASIC 机试-103 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1 的窗体上添加一个计时器控件，名称为 Timer1。请利用“属性”窗口设置适当属性，使得在运行时可以每隔 3 秒，调用 Timer1_Timer 过程一次。另外，请把窗体的标题没置为“计时器”。设计阶段的窗体界面如下图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。
2、*（分数：15.00）_(2).在名称为 Form1 的窗体上画一个文本框，名称为 Text1，无初始内容。请编写 Text1 的 Change 事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字符，就在窗体上输出一行文本框中的完整内容。程序运行界面如下图所示。注意：保存时必须存放在考生文件夹下，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。*（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)1.在窗体上有一个名为 Label1 的标签控件和 3 个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次添加标题为“汉语”、“英语”、“德语”；再添
3、加一个标题为“输出”的命令按钮，如下图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Label 显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。要求：依次添加单选按钮标题为“汉语”、“英语”、“德语”；设初始选中的是“汉语”，添加命令按钮标题为“输出”；去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按 sj3.vbp 和 sj3.frm文件名存盘。（分数：20.00）_2.在考生文件夹下有一个工程文件 sj4.vbp，窗体中有
4、3 个标签，名称分别为 Label1、Label2 和Label3，标题分别为“字型”、“字体”、“模拟考试”；在 Label1 和 Label2 标签的下面有两个组合框，名称分别为 Combo1 和 Combo2，并为 Combo1 添加项目：“下画线”、“黑体”和“斜体”，为 Comb02 添加项目：“华文行楷”、“隶书”和“宋体”。请编写适当的事件过程，使得程序在运行时，当在Combo1 中选一个字号、在 Combo2 中选一个字体，标签 Label3 中的文字立即变为选定的字号和字体，如下图所示。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必
5、须用窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘，程序中不能使用任何变量。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)3.去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。在考生文件夹下有一个工程文件 sj5.vbp，其窗体上有一个文本框，名称为 Text1；有 3 个命令按钮，名称分别为 Command1、Command2 和 Command3，标题分别为“输入”、“计算显示”、“保存”，运行界面如下图所示。在给定程序中有一个函数过程 i
6、sPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回 True，否则返回 False。请将程序中有问号的地方替换为相应的代码，使得在运行时，单击“输入”按钮，弹出输入对话框，单击“计算显示”按钮，则找出大于输入参数的最小素数，并显示在 Text1 中；单击“保存”按钮，则把Text1 中的计算结果存入考生文件夹下的 out5.txt 文件中。注意：考生不得修改 isPrimeNum 函数过程和控件的属性，必须把计算结果通过“保存”按钮存入out5.txt 文件中，否则无成绩。（分数：30.00）_二级 VISUAL+BASIC 机试-103 答案解析(总分：100.00，做题时间
7、：90 分钟)一、1 基本操作题(总题数：1，分数：30.00)请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。（分数：30.00）(1).在名称为 Form1 的窗体上添加一个计时器控件，名称为 Timer1。请利用“属性”窗口设置适当属性，使得在运行时可以每隔 3 秒，调用 Timer1_Timer 过程一次。另外，请把窗体的标题没置为“计时器”。设计阶段的窗体界面如下图所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj1.vbp，窗体文件名为 sj1.frm。*（分数：15.00）_正确答案：(计时器控件的 Interval 属性，表示两个计时
8、器事件之间的时间间隔，其值以毫秒(0.001 秒)为单位，题目要求每 3 秒产生一个计时器事件，那么 Interval 属性应该设置为 3000。窗体的标题由窗体的 Caption 属性设置。根据题意，新建“标准 EXE”工程，将一个计时控件添加到窗体中，然后将其 Interval 属性设置为3000(单位是毫秒)，单击 )解析：(2).在名称为 Form1 的窗体上画一个文本框，名称为 Text1，无初始内容。请编写 Text1 的 Change 事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字符，就在窗体上输出一行文本框中的完整内容。程序运行界面如下图所示。注意：保存时必须存
9、放在考生文件夹下，工程文件名为 sj2.vbp，窗体文件名为 sj2.frm。*（分数：15.00）_正确答案：(根据题意，新建“标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Text1、Text属性为空，双击 Text1 进入代码编写窗口，当 Text1 变换时调用 Text1_Change 函数，代码如下：Private Sub Text1_Change()Print Text1.TextEnd SUb单击 )解析：二、2 简单应用题(总题数：2，分数：40.00)1.在窗体上有一个名为 Label1 的标签控件和 3 个单选按钮，均没有标题，请利用“属性”窗口为单选按钮依次
10、添加标题为“汉语”、“英语”、“德语”；再添加一个标题为“输出”的命令按钮，如下图所示。程序的功能是：运行时，如果选中一个单选按钮后，单击“输出”按钮，则根据单选按钮的选中情况，在Label 显示“我的母语是汉语”、“我的母语是英语”或“我的母语是德语”。要求：依次添加单选按钮标题为“汉语”、“英语”、“德语”；设初始选中的是“汉语”，添加命令按钮标题为“输出”；去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按 sj3.vbp 和 sj3.frm文件名存盘。（分数：20.00）_正确答案：(单选
11、按钮的标题由 Caption 属性设置，判断单选按钮的状态通过 Value 属性来实现。如果单选按钮被选中，则 Value 值为 1；没选中，Value 值为 0。根据题意，将 3 个单选按钮控件、一个命令按钮和一个标签添加到窗体中，单选按钮的名称分别为Option1、Option2 和 Option3，Caption 属性分别为“汉语”、“英语”和“德语”，命令按钮的名称为Command1、Caption 属性为“输出”，标签的名称为 Label1，Caption 属性为空。双击 Command1 进入代码编写窗口，利用 Ifelse 语句进行判断，补充后的具体代码如下：Private Su
12、b Command1_Click()If Option1.Value=True ThenLabel1.Caption=“我的母语是“+Option1.CaptionElseIf Option2.Value=True ThenLabel1.Caption=“我的母语是“+Option2.CaptionElseLabel1.Caption=“我的母语是“+Option3.CaptionEnd IfEnd IfEnd Sub单击 )解析：2.在考生文件夹下有一个工程文件 sj4.vbp，窗体中有 3 个标签，名称分别为 Label1、Label2 和Label3，标题分别为“字型”、“字体”、“模拟
13、考试”；在 Label1 和 Label2 标签的下面有两个组合框，名称分别为 Combo1 和 Combo2，并为 Combo1 添加项目：“下画线”、“黑体”和“斜体”，为 Comb02 添加项目：“华文行楷”、“隶书”和“宋体”。请编写适当的事件过程，使得程序在运行时，当在Combo1 中选一个字号、在 Combo2 中选一个字体，标签 Label3 中的文字立即变为选定的字号和字体，如下图所示。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘，程序中不能使用任何变量。（分数：20.
14、00）_正确答案：(控件的名称由 Name 属性设置，向组合框添加项目有两种方法，可以在“属性”窗口的 List属性里直接添加，也可以在代码中添加。本题要求在设计时添加。根据题意，将两个 ComboBox 控件和 3 个标签添加到窗体中，ComboBox 的名称属性分别为 Combo1 和Combo2，分别在List 属性中添加“下画线”、“黑体”、“斜体”和“华文行楷”、“宋体”、“隶书”，并将 Style属性都设为 3，标签的名称分别为 Label1、Label2 和 Label3，Caption 属性分别为“字型”、“字体”和“模拟考试”。双击窗体进入代码编写窗口，单击 ComboBox
15、 调用 Click 函数，具体代码如下：Private Sub Combo1_Click() Combo1 的单击事件If Combo1.ListIndex=0 ThenLabel3.Font.Underline=True 下画线为真Label3.Font.Bold=False 黑体为假Label3.Font.Italic=False 斜体为假ElseIf Combo1.ListIndex=1 ThenLabel3.Font.Bold=TrueLabel3.Font.Italic=FalseLabel3.Font.Underline=FalseElseLabel3.Font.Italic=Tr
16、ueLabel3.Font.Bold=FalseLabel3.Font.Underline=FalseEnd IfEnd IfEnd Sub Private Sub Combo2_Click() Combo2 的单击事件Label3.Font.Name=Combo2.List(Combo2.Listlndex) 将选中的项赋给 Label3 的字体属性End Sub单击 )解析：三、3 综合应用题(总题数：1，分数：30.00)3.去掉程序中的注释符“”，把程序中的“?”改为正确的内容，使其实现下述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。在
17、考生文件夹下有一个工程文件 sj5.vbp，其窗体上有一个文本框，名称为 Text1；有 3 个命令按钮，名称分别为 Command1、Command2 和 Command3，标题分别为“输入”、“计算显示”、“保存”，运行界面如下图所示。在给定程序中有一个函数过程 isPrimeNum，其功能是判断参数是否为素数，如果是素数，则返回 True，否则返回 False。请将程序中有问号的地方替换为相应的代码，使得在运行时，单击“输入”按钮，弹出输入对话框，单击“计算显示”按钮，则找出大于输入参数的最小素数，并显示在 Text1 中；单击“保存”按钮，则把Text1 中的计算结果存入考生文件夹下的
18、 out5.txt 文件中。注意：考生不得修改 isPrimeNum 函数过程和控件的属性，必须把计算结果通过“保存”按钮存入out5.txt 文件中，否则无成绩。（分数：30.00）_正确答案：(判断一个数是否为素数就是看该数是否除了 1 及其本身外别无其他约数(即从 2 到 n-1 之间没有可以将其整除的数)即可，从 Function 函数中可知，变量 is Prime Num 是用于保留判断数是否是素数的结果的，值为 True 表示是素数，值为 False 表示不是素数。文本框通过 Text 属性显示计算结果，其形式为：文本框名.Text=要显示的内容。将数据写入文件可用命令 Write
19、#语句或 Print#语句，本程序中用的是前者，其形式为：Write#文件号,输出列表。根据题意，将一个文本框控件和 3 个命令按钮添加到窗体中，文本框的名称为 Text1，Text 属性为空，命令按钮的名称分别为 Command1、Command2 和 Command3，Caption 属性分别为“输入”、“计算显示”和“保存”。双击 Command1 进入代码窗口，编写如下代码：Dim a As IntegerDim res As IntegerPrivate Sub Command1_Click()a=Val(InputBox(“输入参数:“) 弹出输入对话框End SubPrivate
20、 Sub Command2_Click()While is Prime Num(a)=False 如果输入参数不是素数则继续循环a=a+1Wend Text1.Text=a 将获得的素数在 Text1 中显示出来End SubFunction is Prime Num(num As Integer)As Boolean 判断输入是否为素数is Prime Num=TrueDim i As IntegerFor i=2 To num-1If num Mod i=0 Thenis Prime Num=FalseEnd IfNext iEnd FunctionPrivate Sub Command3_Click()Open“out5.txt“For Output As#1Write#1,aClose#1End Sub单击 )解析：
