1、国家二级 VB机试（上机操作）模拟试卷 295及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。(1)在名称为 Form1的窗体上画一个名称为 Text1的文本框，其高、宽分别为 400、2000。运行后的窗体如图 3112所示。请在属性框中设置适当的属性满足以下要求：Text1 的字体为“黑体”，字号为“四号”；窗体的标题为“输入”，不显示最大化按钮和最小化按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1vbp，窗体文件名为 sjt1frm。(2)在名
2、称为 Form1的窗体上画一个名称为 Image1的图像框，利用属性窗口装入考生目录下的图像文件 pic1bmp，并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为 Command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图像框向右移动 100；每单击“向下移动”按钮一次，图像框向下移动 100。运行时的窗体如图 3113所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00
3、）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp，窗体上有一个圆和一条直线(直线的名称为 Line1)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1、Command2，标题分别为“开始”、“停止”；还有一个名为 Timer1的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即Line1)开始顺时针旋转(每秒转 6，一分钟转一圈)；单击“停止”按钮，则指针停止旋转。运行时的窗体如图 3114所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer事件一次，并编写两个按钮的 Click事件过程。文件中已
4、经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2(如图 3115所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：
5、2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp。窗体中已经给出了所有控件(如图 3116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的 in5txt 文件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在 Text2中；单击“存盘”按钮，则把找到的素数存到考生目录下的 out5txt 文件中。注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入 out5txt 文件，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试
6、卷 295答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。(1)在名称为 Form1的窗体上画一个名称为 Text1的文本框，其高、宽分别为 400、2000。运行后的窗体如图 3112所示。请在属性框中设置适当的属性满足以下要求：Text1 的字体为“黑体”，字号为“四号”；窗体的标题为“输入”，不显示最大化按钮和最小化按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1vbp，窗体文件名为 sjt1frm。(2)在名称为 Form1的窗体上画一个名称为
7、Image1的图像框，利用属性窗口装入考生目录下的图像文件 pic1bmp，并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为 Command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图像框向右移动 100；每单击“向下移动”按钮一次，图像框向下移动 100。运行时的窗体如图 3113所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：第 1小题
8、步骤 1：新建一个“标准 EXE”工程。 步骤 2：按要求画出控件，并在属性窗口中没置其相关属性，属性及值如表 468所示。 步骤 4：在文本框的属性窗口中单击“Font”属性右侧的按钮，打开“字体”对话框，存其中设置“字体”为“黑体”，“字号”为“四号”。步骤 5：单击窗体无控件区域，在属性窗口中设置窗体相关属性。 步骤 6：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中画一个图像框和两个命令按钮，分别设置其相关属性，属性及值如表 469所示。 步骤 2：双击“向右移动”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入
9、如图 42所示代码。 步骤 3：双击“向下移动”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图 43所示代码。 )解析：解析：第 1小题：本题只需按要求建立程序界面并设置窗体和文本框相关属性即可。 第 2小题：本题需要按照要求建立相关控件并设置相应属性，然后在相应事件代码中改变图像框的 Left属性值和Top属性值。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp，窗体上有一个圆和一条直线(直线的名称为 Line1)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1、Command2，标题分别为“开始”、“停止”
10、；还有一个名为 Timer1的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即Line1)开始顺时针旋转(每秒转 6，一分钟转一圈)；单击“停止”按钮，则指针停止旋转。运行时的窗体如图 3114所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer事件一次，并编写两个按钮的 Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Text
11、1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2(如图 3115所示)。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1小题 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在属性设置窗口，设置计时器的：Interval 属性值为 1000，Enabled 属性值为 False。 步骤 2：在代码编辑窗口，编写“开始”和“停止”按钮的
12、单击事件过程。 参考代码： Private Sub Command1_Click() Timer1Enabled=True End Sub Private Sub Command2_Click() Timer1Enabled=False End Sub 步骤3：按要求将文件保存至考生文件夹中。 第 2小题 步骤 1：打开考生文件夹中的本题工程文件sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： a=Mid$(Text1Text，k，1) ch=ch+LCase(a) Text2=ch 步骤 2：按要求将文件保存至考生文件夹中。)解析：解析：第 1
13、小题：木题通过计时器的 Timer事件来控制直线控件的位置，从而实现钟表上的指针旋转的功能。为使计时器的 Timer事件每秒激活一次需将计时器的 Interval属性值设置为 1000；为使程序刚运行时钟表指针不动需将 Enabled属性值设置为 False。在“开始”按钮的单击事件过程中，通过设置计时器的 Enabled属性值为 True束启动计时器。在“停止”按钮的单击事件过程中，通过设置计时器的Enabled属性值为 False来停止计时器。 第 2小题：本题源程序是在命令按钮的单击事件过程中，用 For循环语句和 Mid函数逐一取出文本框 Text1中的字符后，根据单选按钮的选择进行相
14、应转换；当选择“大写转小写小写转大写”时，如果是小写字母就用 UCase函数转换为大写，如果是大写字母就用 UCase函数转换为小写，如果不是字母就不用转换：当选择“全部大写”时，就用 UCase函数将文本框中所有字母转换为大写；当选择“全部小写”时，就用 LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框 Text2中。三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp。窗体中已经给出了所有控件(如图 3116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的 in5txt 文件中的一个整数放入Text1；单击
15、“计算”按钮，则计算出大于该数的第一个素数，并显示在 Text2中；单击“存盘”按钮，则把找到的素数存到考生目录下的 out5txt 文件中。注意：在结束程序运行之前，必须单击“存盘”按钮，把结果存入 out5txt 文件，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开本题对应工程文件 sjt5vbp。 步骤 2：双击窗体 Form1上的“计算”按钮，打开代码编辑窗口，在其 Click事件过程中输入如下代码。 参考代码： Private Sub Command2_Click() a=CInt(Text1Text) Do a=a+1 Lo
16、op Until isprime(a) Text2Text=a End Sub 步骤 3：编写判断素数的函数过程 isprime，参考代码为： Function isprime(a As Integer) Dim flag As Boolean k=2 flag=True While k=Int(a2)And flag If ak=Int(ak)Then flag=False End If k=k+1 Wend isprime=flag End Function 步骤 4：按F5键运行程序，先单击“读数”按钮，接着单击“计算”按钮，最后单击“存楹”按钮。 步骤 5：按要求将文件保存至考生文件夹中。)解析：解析：程序设计思路：要找出大于给定数的最小素数，可以首先将给定数加 1赋值给变量 a，通过调用函数 isprime(a)，以其返回值不是素数作为 Do循环语句的循环条件，在循环体中加入语句：a=a+1实现每执行循环体一次变量 a的值加 1，当循环结束时 a的值即为所求。
