1、国家二级 VB机试（上机操作）模拟试卷 393及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画一个名称为 Text1的文本框，其高、宽分别为 400、2000。运行后的窗体如图 3112所示。请在属性框中设置适当的属性满足以下要求： Text1 的字体为“黑体”，字号为“四号”； 窗体的标题为“输入”，不显示最大化按钮和最小化按钮。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。
2、 (2)在名称为 Form1的窗体上画一个名称为 Imagel的图像框，利用属性窗口装入考生目录下的图像文件 pic1bmp，并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为 Command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图像框向右移动 100；每单击“向下移动”按钮一次，图像框向下移动 100。运行时的窗体如图 3113所示。要求程序中不得使用变量，事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件
3、 sjt3vbp，窗体上有一个圆和一条直线(直线的名称为 Line1)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1、Command2，标题分别为“开始”、“停止”；还有一个名为 Timer1的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即：Line1)开始顺时针旋转(每秒转 6，一分钟转一圈)：单击“停止”按钮，则指针停止旋转。运行时的窗体如图 3114所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer事件一次，并编写两个按钮的 Click事件过程。 文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不
4、得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Text1中输入若干个大写和小写字母，并选中一个单选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2(如图 3115所示)。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp。窗体中已经给出了所有控件(如图 3116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的 in5txt 文件中的一个整数放入
5、Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在。Text2 中；单击“存盘”按钮，则把找到的素数存到考生目录下的 out5txt 文件中。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 393答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1的窗体上画一个名称为 Text1的文本框，其高、宽分别为 400、2000。运行后的窗体如图 3112所示。请在属性框中设置适当的属性满足以下要求： Text1 的字体
6、为“黑体”，字号为“四号”； 窗体的标题为“输入”，不显示最大化按钮和最小化按钮。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上画一个名称为 Imagel的图像框，利用属性窗口装入考生目录下的图像文件 pic1bmp，并设置适当属性使其中的图像可以适应图像框大小；再画两个命令按钮，名称分别为 Command1、Command2，标题分别为“向右移动”、“向下移动”。请编写适当的事件过程，使得在运行时，每单击“向右移动”按钮一次，图像框向右移动 100；每单击“向下移动”按钮一次，图像框向下移动 100。运行
7、时的窗体如图 3113所示。要求程序中不得使用变量，事件过程中只能写一条语句。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“标准 EXE”工程。 步骤 2；按要求画出控件，并在属性窗口中设置其相关属性，属性及值如表 468所示。 步骤 4：在文本框的属性窗口中单击“Font”属性右侧的按钮，打开“字体”对话框，在其中设置“字体”为“黑体”，“字号”为“四号”。 步骤 5：单击窗体无控件区域，在属性窗口中设置窗体相关属性。 步骤 6：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中画一个图像框
8、和两个命令按钮，分别设置其相关属性，属性及值如表 469所示。 步骤 2：双击“向右移动”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图 42所示代码。 步骤 3：双击“向下移动”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图 43所示代码。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp，窗体上有一个圆和一条直线(直线的名称为 Line1)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1、Command2，标题分别为“开始”、“停止”；还有一个名为 Timer1的计时器。程序运行
9、时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即：Line1)开始顺时针旋转(每秒转 6，一分钟转一圈)：单击“停止”按钮，则指针停止旋转。运行时的窗体如图 3114所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer事件一次，并编写两个按钮的 Click事件过程。 文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Text1中输入若干个大写和小写字母，并选中一个单
10、选按钮，再单击“转换”按钮，则按选中的单选按钮的标题进行转换，结果放入 Text2(如图 3115所示)。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在属性设置窗口，设置计时器的 Interval属性值为 1000，Enabled 属性值为 False。 步骤 2：在代码编辑窗口，编写“开始”和“停止”按钮的单击事件过程。参考代码： Private Sub Command1_Click() Timer1EnabledTrue End Sub Private Sub Command2_Click() Timer1Ena
11、bledFalse End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： aMid$(Text1Text， k， 1) chchLCase(a) Text2ch 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp。窗体中已经给出了所有控件(如图 3116所示)。请编写适当的事件过程完成以下功能：单击“读数”按钮，则把考生目录下的 in5txt 文
12、件中的一个整数放入Text1；单击“计算”按钮，则计算出大于该数的第一个素数，并显示在。Text2 中；单击“存盘”按钮，则把找到的素数存到考生目录下的 out5txt 文件中。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题对应工程文件 sjt5vbp。 步骤 2：双击窗体Form1上的“计算”按钮，打开代码编辑窗口，在其 Click事件过程中输入如下代码。参考代码： Private Sub Command2_Click() aCInt(Text1Text) Do aa1 Loop Unti1 isprime(a) Text2Texta End Sub 步骤 3：编写判断素数的函数过程 isprime，参考代码为： Function isprime(a As Integer) Dim flag As Boolean k2 flagTrue While kInt(a2)And flag If akInt(ak)Then flagFalse End If k=k1 Wend isprimeflag End Function 步骤 4：按F5键运行程序，先单击“读数”按钮，接着单击“计算”按钮，最后单击“存盘”按钮。 步骤 5：按要求将文件保存至考生文件夹中。)解析：
