1、国家二级 VB机试（上机操作）模拟试卷 446及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 Label1的标签，标签的宽和高分别为 2000、 300，有边框，并利用属性窗口设置适当的属性，使其标题 “等级考试 ”居中显示，并使标签的外观如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。(2)在名称为 Form1的窗体上添加一个名称为 Imagel的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸再添 加三个命令按钮，名称分别为 Command1、 Command2、 Co
2、mmand3，标题分别为 “红桃 ”、 “黑桃 ”、 “清除 ”，在考生文件夹下有两个图标文件，其名称分别为 “Misc34 ico”和 “Misc37 ico”。程序运行时，单击 “黑桃 ”按钮，则在图像框中显示黑桃图案 (Misc37 ico文件 )；单击 “红桃 ”按钮，则在图像框中显示红桃图案(Mist34 ico文件，如图所示 )；单击 “清除 ”按钮则清除图像框中的图案。请编写相应控件的 Click事件过程，实现上述功能。注息：要求程序中不得使用变量，每个事件过程中 只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2 vbp，窗体文件名保存为 q12 frm。
3、二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。窗体上有个钟表图案，其中代表指针的直线的名称是 Line1，还有一个名称为 Label1的怀签和其他一些控件 (如图 1所示 ) 在程序运行时，若用鼠标右键单击圆的边线，则指针恢复到起始位置 (如图 1所示 )；若用鼠标左键单击圆的边线，则指针指向鼠标单击的位置 (如图 2所示 )；苔鼠标左键或右键单击其他位置，则在标签上输出 “鼠标位置不对 ”。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。程序中的 oncircle函数的作用是判断鼠标单击的位置是否在圆的边线上 (
4、判断结果略有误差 )，足则返回 True，否则返回 False。符号常量 x0、 y0是圆心距窗体左上角的距离；符号常量 radius是圆的半径。注意：不能修改程序中的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。(2)住考生文件夹下有一个工程文件 sjt4 vbp，窗体如图所示。其功能是单击 “输入数据 ”按钮，则可输入一个整数 n(要求 ： 8n12)；单击 “计算 ”按钮，则计算 1!+2!+3!+n! 的伉，并将计算结果显示在文本框中；单击 “存盘 ”按钮，则把文本框中的结果保存到号生文件夹下的out4 dat文件中。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程
5、序中的注释符，把程序中的 ?改为正确的内容，并编写 “计算 ”按钮的 Click事件过程。注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘 ”按钮存储计算结果，否则无成绩。最后将修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，窗体上有两个命令按钮，标题分别是“读数据 ”和 “统计 ”，请添加一个名称为 Label1、标题为 “回文个数为 ”的标签和一个名称为 Text1，初始内容为空的文本框，如图所示。 程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中； 单击 “统计 ”按钮
6、，则统计 in5 dat文件 (该文件中仅含由空格间隔开的字符串 )中回文的个数，并将统计的回文个数显示在 Text1文本框内 (所谓回文是指顺读与倒读都一样的字符串，如 “recycer”)。 “读数据 ”和 “统计 ”按钮的 Click事件过程已经给出，请完善found-huiwen过程的功能，实现上述程序功能。 注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 446答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个窗
7、体，按照题目要求建立标签控件并设置其属性，如图 3 32所示。程序中用到的控件及属性见表 3 47。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 l：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 3 48。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Command1_Click() Imagel Picture=LoadPicture(App path &“ Misc 34 ico“)加载图片 End Sub Private Sub Command2_Click() Imagel Picture=Load
8、Picture(App path &“Misc37 ico“) End Sub Private Sub Command3_Click() Set Imagel Picture=Nothing清除 Imagel中的图片 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)标签的 Name、 Caption、 Width和 Height属性设置标签的名称、标题、宽和高，通过 BorderStyle属性为标签设置边框， Alignment属性用来设置标签中文本的对齐方式。 (2)通过图像 框的 Name、 Stretch和 BorderStyle属性设置图像框的
9、名称、自动调整以及是否有边框。通过命令按钮的 Name和 Caption属性设置命令按钮的名称和标题。通过 LoadPicture()函数实现图片的加载、转换和清除。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Const y0 & = 1110， x0& = 1100， radius&=750 Private Function oncircle(X As Single， y As Single)As Boolean precision=55000 If Abs(Xx0)* (Xx0)+(y0一 Y)*(
10、y0一 Y)一 radius*radius) 12 Or n 【试题解析】 (1)Const用来设置符号常量， Funotion oncircle()函数则用来判断鼠标单击的位置是否在圆的边界上，通过调用 Function oncircle()函数实现对鼠标单击位置的判断，如果在其他位置，则在标签上显示 “鼠标位置不对 ”，线条的 X1、Y1、 X2和 Y2属性用来确定指 针位置和大小， Button的值用来判断是右键单击还是左键单击，确定指针指向。 (2)在 Command1Click事件过程中通过 Val()函数和 InputBox()函数取得输入对话框中的数值，如果输入的数值不在范围内，
11、那么弹出对话框 MsgBox(“数据错误，请重新输入 “)，并使命令按钮 Command2和 Command3不可用， Function f()函数则用来实现阶乘的计算， Command2_Click事件过程中，运用循环语句的累加实现表达式求和运算， Command3_Click事件过程通过文件操作 实现数据的存盘处理。 三、综合应用题 3 【正确答案】 步骤 1：打开本题工程文件，按照题目要求建立控件并设置属性，如表 3 29所示。 步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 Function foundhuiwen(p As String) If StrReVerse(p) =p Then foundhuiwen=TrueStrReverse函数的功能是将字符串顺序反转 End Function 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析 】 StrReverse()函数用于返回一个字符串，其中一个指定子字符串的字符顺序是反向的。 Mid()函数用于取字符子串。
