1、国家二级 VB机试（上机操作）模拟试卷 91及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Picturel的图片框 (PictureBox)，高、宽均为1000。在图片框内再画一个有边框的名称为 Imagel的图像框 (Jmage)。并通过属性窗口把考生目录下的图标文件 POINTll(香蕉图标 )装入图像框 Imagel中，如图3 116所示。 注意：存盘时必须存放在考生文件灾下，工程文件名为sitl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的
2、窗体上画一个名称为Command1、标题为 “保存文件 ”的命令按钮，再画一个名称为 CommonDialogl的通用对话框。要求： 通过属性窗口设置适当的属性，使得运行时对话框的标题为“保存文件 ”，且默认文件名为 out2； 运行时单击 “保存文件 ”按钮，则以 “保存对话框 ”方式打开该通用对话框。如图 3 117所示。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件灾下，工程文件名为 sit2 vbp，窗体文件名为 sit2 f m。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sit3 vbp，窗体上有一个圆和一条直线 (直线的名称为 L
3、inel)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1、Command2，标题分别为 “开始 ”、 “停止 ”；还有一个名为 Timer1的计时器。程序运行时，钟表指针不动，单击 “开始 ”按钮，则钟表上的指针 (即 Lfinel)开始顺时针旋转 (每秒转 6，一分钟转一圈 )；单击 “停止 ”按钮，则指针停止旋转。运行时的窗体如图 3 80所示。 请设置计时器的适当属性，使得每秒激活计时器的 Timer事件一次，并编写两个按钮的 Click事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后把
4、修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时，在 Textl中输入若干个大写和小写字母，并选中一个单选按钮，再单击 “转换 ”按钮，则按选中的单选按钮的标题进行转换，结果放入Text2(如图 3 81所示 )。在给出的窗体文件中已经给出了全部控件，但程序不 完整，要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，已给出了所有控件 (如图 3 62所示 )和部分程
5、序。程序运行时，请按以下顺序操作： 1)单击 “读入文件 ”按钮，把考生目录下的文件 in5 dat中的内容读入内存并显示在上面的文本框 (Text1)中； 2)单击“加密 ”按钮，则可对 Textl中的内容进行加密并显示在下面的文本框 (Text2)中。 3)单击 “存结果 ”按钮则把 Text2中的内容存到 out5 dat文件中。加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符 (若为 “Z”则变为 “A”)，不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符 (若为 “A”则变为“Z”)，不是字母则不变。大小写字母都遵循此规则。例如：若原有的字符是：Abba
6、ZGHaMnnKYzx则加密后的字符是： BaczAFGb-NmoiXaw已经给出 “存结果 ”按钮的 Click事件过程和函数 isletter，函数 isletter(aAsString)判断变量 a中是否为一个字母，若是则返 回 True，否则返回 False，可以直接调用。请编写 “读入文件 ”按钮和 “加密 ”按钮的 Click事件过程，以实现上述功能。 (in5 dat文件中只含英文单词和空格，不分段落和行 )注意：考生不得修改已经存在的程序，必须用 “存结果 ”按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。国家二级 VB机试（上机操作）模拟试卷 91答案与解析 一、基
7、本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “MicroSoftCommon Dialog Control6 0”项目，单击 “确定 “按钮。 步骤 2： 在窗体 Forml上画一个通用对话框和一个命令按钮并设置相关属性。 步骤 3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。 Private Sub Commandl Click(
8、) CommonDialogl Action=2 或 CommonDialogl showSave End Sub 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在属性设置窗口，设置计时器的 Interval属性值为 1000， Enabled属性值为 False。 步骤 2：在代码编辑窗口，编写 “开始 ”和 “停止 ”按钮的单击事件过程。 参考代码： Private Sub Commandl Click() Timer1 Enabled=True End Sub Priva
9、te Sub Command2 Click() Timerl Enabled=False End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： a=Mid$(Text1 Text， k， 1) ch=ch+Lease(a) Text2=Ch 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步 骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5 vbp，在代码编辑窗口指定位置编写
10、以下代码： 参考代码： Private Sub Commandl Click() Open“in5 dat”For Input As 1 Line Input#1， S Close#1 Text1 Text=s End Sub Private Sub Command2 C1ick() Dim i As Intecjer Dim ss As String ss=“” For i=1 To Len(s) If isletter(Mid(s， i， 1)=True Then If i MOd 2=0 Then If Mid(s， i， 1)=“a”Then ss= ss “Z” Else Tf Mi
11、d(s， i， 1)=“A”Then SS= SS “Z” Else ss=ss Chr(Asc(Mid(s， i， 1)一 1) End If Else If Mid(S， i， 1)=”Z”Then ss= ss “A” E1sel-f Mid(s， i， 1) = “Z”Then ss=ss & “a” Else ss=ss&Chr(Asc(Mid(s， i， 1)+1) End If End If Else ss=ss Mid(s， i， 1) End If Next Text2 Text=ss End Sub 步骤 2：按 键运行程序，先单击 “读入文件 ”按钮，接着单击 “加密 ”按钮，然后单击 “存结果 ”按钮保存结果，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。
