1、国家二级 VB机试（上机操作）模拟试卷 18及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个名称为 Textl的文本框，其高、宽分别为 400、 2000。运行后的窗体如图 2-109所示。请在属性框中设置适当的属性满足以下要求： Textl的字体为 ”黑体 ”，字号为 ”四号 ”； 窗体的标题为 ”输入 ”，不显示最大化按钮和最小化按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一个名称为 Imag
2、el的图像框，利用属性窗口装入考生目录下的图像文件 picl bmp，并设置适当属性使其中的图像可以适应图像框大小：再画两个命令按钮，名称分别为 Commandl、 Command2，标题分别为 ”向右移动 ”、 ”向下移动 ”。请编写适当的事件过程，使得在运行时，每单击 ”向右移动 ”按钮一次，图像框向右移动 100；每单击 ”向下移动 ”按钮一次，图像框向下移动100。运行时的窗体如图 2-110所示。要求程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放 在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生目录下有一
3、个工程文件 sjt3 vbp，窗体上有一个圆和一条直线 (直线的名称为 Linel)构成一个钟表的图案；有两个命令按钮，名称分别为 Commandl、Command2，标题分别为 ”开始 ”、 ”停止 ”；还有一个名为 Timerl的计时器。程序运行时，钟表指针不动，单击 ”开始 ”按钮，则钟表上的指针 (即 Linel)开始顺时针旋转(每秒转 6，一分钟转一圈 )；单击 ”停止 ”按钮，则指针停止旋转。运行时的窗体如图 2-111所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer事件一次，并编写两个按钮的 Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和
4、其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Textl中输入若干个大写和小写字母，并选中一个单选按钮，再单击 ”转换 ”按钮，则按选中的单选按钮的标题进行转换，结果放入Text2(如图 2-112所示 )。在给出的窗体文件中已经给出了全部控件，但程序不完整，要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生目录下有一个工程文件 s
5、jt5 vbp。窗体中已经给出了所有控件 (如图 2-113所示 )。请编写适当的事件过程完成以下功能：单击 ”读数 ”按钮，则把考生目录下的 in5 txt文件中的一个整数放入 Textl；单击 ”计算 ”按钮，则计算出大于该数的第一个素数，并显示在 Text2中；单击 ”存盘 ”按钮，则把找到的素数存到考生目录下的 out5 txt文件中。注意：在结束程序运行之前，必须单击 ”存盘 ”按钮，把结果存入 out5 txt文件，否则无成绩。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 18答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EX
6、E”工程。 步骤 2：单击工具箱中的TextBox控件图标，在窗体 Forml上按下鼠标左键并拖动到一定位置后松开，画出一个文本框，如图 3-3所示。 步骤 3：选定窗体中的文本框，在属性窗口中设置其相关属性，如图 3-4所示，属性及值如表 3-61所示。步骤 4：在文本框的属性窗口中单击 ”Font”属性右侧的按钮，打开 ”字体 ”对话框，在其中设置 ”字体 ”为 ”黑体 ”， ”字号 ”为 ”四号 ”。 步骤5：单击窗体无控件区域，在属性窗口中设置窗体相关属性，属性及值如图 3-4所示。 步骤 6：选择 文件 保存工程 命令，打开 ”文件另存为 ”对话框，如图 3-5所示。在该对话框的 ”
7、保存在 ”下拉列表中选择考生文件夹，并在 ”文件名 ”文本框中输入 sjtl frm，单击 ”保存 ”按钮，如图 3-5所示，即保存好窗体文件；在接下来的 ”工程另存为 ”对话框中，在 ”文件名 ”文本框中输入 sjtl vbp，如图 3-6所示，并单击 ”保存 ”按钮，即保存好工程文件。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，在窗体 Forml中画一个图像框和两个命令按钮，分别设置其相关属性，属性及值如表 3-62所示。步骤 2：双击 ”向右移动 ”命令按钮，打开代码编辑窗口，在按钮的 Click事件过程中输入如图 3-7所示代码。步骤 3：双击 ”向下移动 ”命令按钮
8、，打开代码编辑窗口，在按钮的 Click事件过程中输入如 图 3-8所示代码。步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在属性设置窗口，设置计时器的 Interval属性值为 1000， Enabled属性值为 False。 步骤 2：在代码编辑窗口，编写 ”开始 ”和 ”停止 ”按钮的单击事件过程。 参考代码： Private Sub Commandl_Click( ) Timer1 Enabled=True End Sub Private Sub Command2_Click( ) Timer1
9、Enabled=False End Sub 步骤 3：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： a=Mid$(Textl Text， k， 1) ch=ch+LCase(a) Text2=ch 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开本题对应工程文件 sjt5 vbp。 步骤 2： 双击窗体 Forml上的 ”计算 ”按钮，打开代码编辑窗口，在其 Click事件过程中输入如下代码： 参考代码
10、： Private Sub Command2_Click( ) a =CInt(Text1 Text) Do a =a + 1 Loop Until isprime(a ) Text2 Text=a End Sub 步骤 3：编写判断素数的函数过程 isprime，参考代码为： Function isprime(a As Integer) Dim flag As Boolean k =2 flag=True While k = Int(a 2) And flag I f a k =Int(a k ) Then flag=False EndIf k = k + 1 Wend isprime=flag End Function 步骤 4：按 F5键运行程序，先单击 ”读数 ”按钮，接着单击 ”计算 ”按钮，最后单击 ”存盘 ”按钮。 步骤 5：按要求将文件保存至考生文件夹中。
