1、国家二级 VB机试（上机操作）模拟试卷 181及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “显示记录 ”的窗体上画一个名称为 Textl的文本框其初始内容为空：再画一个名称为 Commandl的命令按钮数组 (下标从 0开始，有 4个按钮，其对应的标题分别为 “上一条记录 ”、 “下一条记录 ”、 “第一条记录 ”、 “最后一条记录 ”)，程序执行时的效果如图 2 183所示，且程序执行时按下回车键则相当于、单击 “下一条记录 ”按钮。请设 置相应属性。 注意：存盘时，将文件保存至考生
2、文件夹下，且窗体文件名为 sitl frm，工程文件名为 sit1 vbp。(2)在名称为 Forml的窗体上，画一个名称为Labell的标签，其标题为 “等级考试 ”，能根据标题内容自动调整标签的大小，外观如图 2 184所示。再画一个名称为 Timer1的计时器，其 Interval属性设为 0，Enabled属性设为 True。 要求：编写窗体 Load事件过程和计时器 Timer事件过程，使得程序运行时，每隔一秒标签交替隐藏或显示一次。 注意：存盘时，将文件保存至考尘文件夹下 ，窗体文件名为 sil2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写
3、一条语句 (不得使用选择语句或循环语句 )。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp。窗体上有个钟表图案，其中代表指针的直线的名称足 Linel，还有一个名称为 Label1的标签，和其他一些控件，如图2 118(a)所示。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的何置，如图 2 1 18(b)所示：若用鼠标右键单击圆的边线，则指针恢复到起始位置，如图 2一 118(a)所示；若鼠标左键或右键单击其他位置，则在标签上显示 “鼠标位置不对 ”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。程序中的
4、oncircle函数的作用足判断鼠标单击的位置是否在圆的边线上 (判断结果略有误筹 )，是则返回 True，否则返回False。符号常量 x0、 y0是圆心距窗体左上角的距离；符号常量 radius是圆的半径。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件 sjt4 vbp，窗 体如图 2 119所示。其功能是单击 “输入数据 ”按钮，则可输入一个整数 n(要求： 8n12)；单击 “计算 ”按钮，则计算 1！+2！ +3！ +n! ，并将计算结果显示在文本框中；单击 “存盘 ”按钮，则把文本框中的结果保存到考生目录下的 o
5、ut4 dat文件中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “计算 ”按钮的 Click事件过程。 注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最后把修改后的文件 按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，已给出了所有控件 (如图 2 62所示 )和部分程序。程序运行时，请按以下顺序操作： 1)单击“读入文件 ”按钮，把考生目录下的文件 in5 dat中的内容读入内存并显示在上面的文本框 (Textl)中： 2)单击 “
6、加密 ”按钮，则可对 Text1中的内容进行加密并显示在下面的文本框 (Text2)中。 3)单击 “存结果 ”按钮则把 Text2中的内容存到 out5 dat文件中。 加密规则：对十第奇数个字符，若是字母，则把它变为它后面的字 符 (若为“Z”则变为 “A”)，不是字母则不变：对于第偶数个字符，若是字母，则把它变为它前面的字符 (若为 “A”则变为 “z”)，不是字母则不变。大小写字母都遵循此规则。 例如： 若原有的字符是： AbbaZGHa MnnKYzx 则加密后的字符是： BaczAFGb-NmojXaw 已经给出 “存结果 ”按钮的 Click事件过程和函数 isletter，函数
7、islettet(aAsString)判断变量 a中是否为一个字母，若是则返同 True，否则返回False，可以直接调用。 请编写 “读入文件 ”按钮和 “加密 ”按钮的 Click事件过程，以实现上述功能。 (in5 dat文件中只含英文单间和空格，不分段落和行 )注意：考生不得修改已经存在的稃序，必须用 “存结果 ”按钮存储加密结果，否则无成绩。最后，按原文件名把程序存盘。 国家二级 VB机试（上机操作）模拟试卷 181答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3-97在窗体中用 “复制 ”和 “粘贴 ”画出控制
8、数组并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3 98在窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口编写窗体的 Load事件和计时器的 Timer事件过程。 参考代码： Private Sub Form Load() Timerl Interval=1000 End Sub Private Sub Timerl一 Timer() Labell Visible=Not Labell ViSible End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第
9、 1小题 【操作步骤】 步骤 1打开本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号 “?”改为正确的内容。 参考代码： Line2 Y2=Y Linel X2一 Linel X1 Linel Y2=y0750 Labe11 Caption=“鼠标位置不对 ” 步骤 2：按要求将文件保存至学生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码 编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为止确的内容。 参考代码： s=1 f=s 步骤 2：双击 “计算 ”按钮，编写该按钮的单击事件过程。 参考代码： Pr
10、iVate Sub Command2一 Click() Dim s As Long， k AsInteger 考生应编写的程序 s=0 For k=1 To n s=s+f(k) Next Text1=s End Sub 步骤 3：按 键键运行程序，单击 “输入数据 ”按钮，通过输入框输入一个 8一12之间的整数，然后单击 “计算 ”按钮计算结果，最后单击 “存盘 ”按钮保存结果。 步骤 4：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，在代码编辑窗口指定位置编写以下代码： 参考代码： Privat
11、e Sub Commandl C1iCk() Open”in5 dat”For Input As 1 Line Input#1， S Close： #1 Textl Text=S End Sub Private Sub Command2 C1ick() Dim i As Integer 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” E1seIf Mid(S， i， 1)=”A”Then
12、ss=ss ”Z” Else ss=ss Chr( Asc(Mid(s， i， 1)一 1) End If E1se If Mid(S， i， 1)=“Z”Then ss=SS “A” E1seIf 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：按要求将文件保存至考生文件夹中。
