模拟试题四及解析.doc

模拟试题四及解析1基本操作（2小题，每小题15分，共计30分）注意：下面出现的“考生文件夹”均为C:WEXAM26010001*请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。(1)在名称为Form1的窗体上添加一个计时器控件，名称为Timer1。请利用属性窗口设置适当属性，使得在运行时可以每隔1秒，调用计时器的Timer事件过程一次。另外，请把窗体的标题设置为“题目2”。设计阶段的窗体如图所示。*注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。解析：本题考核的知识点是常用控件的添加及相关属性的设置。要点是计时器控件的属性设置。本题中，计时器控件的Interval属性要设置成1000，要注意不能疏忽或出错，计时器控件的Enabled属性要设置成True。*(2)在名称为Form1的窗体上画一个文本框，名称为Text1，无初始内容；再画一个图片框，名称为P1。请编写适当的事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容，运行时的窗体如图所示。程序中不能使用任何变量。*注意：保存时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。解析：本题考核的知识点是常用控件图片框、文本框的添加及相关属性的设置、基本事件过程的编写。要点是文本框Change事件过程的编写。本题的参考代码如下：Private Sub Text1_Change() P1.Print Text1.TextEnd Sub2简单应用（2小题，每题20分，计40分）注意：下面出现的“考生目录”均为C:WEXAM26010001*(1)在考生目录下有一个工程文件sjt3.vbp，窗体上有一个单选按钮数组，含三个单选按钮，均没有标题，请利用属性窗口，为单选按钮依次添加标题为“北京”、“上海”、“广州”；再添加一个标题为“显示”的命令按钮，如图所示。程序的功能是在运行时，如果选中一个单选按钮后，单击“显示”按钮，则根据单选按钮的选中情况，在窗体上显示“我的出生地是北京”、“我的出生地是上海”或“我的出生地是广州”。要求：1）依次添加单选按钮标题为“北京”、“上海”、“广州”；设初始选中的是“广州”，添加命令按钮标题为“显示”。2）去掉程序中的注释符，把程序中的？改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘。解析：本题考核的知识点是常用控件的属性设置、控件数组、相关事件过程的编写。本上机题也是给出了一个不完整的程序，残缺的地方用？表示，要求考生在有？的地方补充代码，完善整个程序，最后去掉程序中的注释符。要点是要会编写题上要求操作的程序代码，这样才能补充正确的代码。注意本题要求初始选中的是“广州”，所以三个单选按钮的Value属性的值依次为False、False、True。本题的编写方法有多种，这里给出一种完整的参考代码如下：Private Sub C1_Click() For i = 0 To 2 If Op1(i).Value = True Then Print 我的出生地是 + Op1(i).Caption End If NextEnd Sub*(2)在考生目录下有一个工程文件sjt4.vbp，请在Form1窗体中画三个标签，名称分别为B1、B2、L1，标题分别为“字号”、“字体”、“计算机等级考试”，其中L1的高为500，宽为3000；再在B1、B2标签的下面画两个组合框，名称分别为Cb1、Cb2，并为Cb1添加项目：“10”、“15”、“20”，为Cb2添加项目：“黑体”、“隶书”、“宋体”。请编写适当的事件过程，使得在运行时，当在Cb1中选一个字号、在Cb2中选一个字体，标签L1中的文字立即变为选定的字号和字体。如图所示。注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须选择一个字号和字体。必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘，程序中不能使用任何变量。解析：本题考核的知识点是常用控件标签、组合框的添加、属性设置、相关事件过程的编写。要点是在界面设计阶段为两个组合框分别添加项目：“10”、“15”、“20”和“黑体”、“隶书”、“宋体”(通过组合框的List属性来添加)。各个控件的属性设置如下表：控件名属性属性值窗体名称Form1标签1名称B1Caption字号 标签2名称B2Caption字体 标签3名称L1Caption计算机等级考试height500width3000组合框1名称Cb1List10、15、20组合框2名称Cb2List黑体、隶书、宋体本题的参考代码如下：Private Sub CB1_Click() L1.Font.Size = Cb1.TextEnd SubPrivate Sub CB2_Click() L1.Font = Cb2.TextEnd SubPrivate Sub Form_Unload(Cancel As Integer) 本过程有题中给出 Open out4.txt For Output As #1 Print #1, Cb1.Text, Cb2.Text, CInt(L1.Font.Size), L1.Font Close #1End Sub3综合应用（1小题，计30分）注意：下面出现的“考生文件夹”均为C:WEXAM26010001在考生目录下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为“计算”、“存盘”，如图所示。并有一个函数过程isprime可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回True，否则返回False。请编写适当的事件过程，使得在运行时，单击“计算”按钮，则找出大于15000的第1个素数，并显示在Text1中；单击“存盘”按钮，则把Text1中的计算结果存入考生文件夹下的out5.txt文件中。注意：考生不得修改isprime函数过程和控件的属性，必须把计算结果通过“存盘”按钮存入out5.txt文件中，否则无成绩。解析：本题是综合应用题，考核涉及的知识点有函数过程的编写、调用，文件的存储操作，顺序语句、选择语句、循环语句的使用，事件过程的编写等等。要点是函数过程的调用，文件的存储操作。在进行过程调用时，一定要熟悉调用的方式和参数的传递方式。本题参考代码如下：Private Sub C1_Click() Dim flag As Boolean Dim i As Integer flag = False i = 15001 While Not (flag) flag = isprime(i) i = i + 1 Wend Text1.Text = i - 1End SubPrivate Sub C2_Click() Open App.Path & /out5.txt For Output As #1 Print #1, Text1.Text Close #1End SubPrivate Function isprime(a As Integer) As Boolean 本函数过程由题中给出 Dim flag A