1、国家二级 VB机试（上机操作）-试卷 134及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 VisualBasic应用程序(包括界面和代码)。 (1)在名称为 Forml、标题为“显示记录”的窗体上画一个名称为 Textl的文本框其初始内容为空：再画一个名称为 Commandl的命令按钮数组(下标从 0开始，有 4个按钮，其对应的标题分别为“上一条记录”、“下一条记录”、“第一条记录”、“最后一条记录”)，程序执行时的效果如图 2183 所示，且程序执行时按下回车键则相当于、单击“下一条记录”按钮。请设置相应属性。
2、注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sitlfrm，工程文件名为 sit1vbp。 (2)在名称为 Forml的窗体上，画一个名称为Labell的标签，其标题为“等级考试”，能根据标题内容自动调整标签的大小，外观如图 2184 所示。再画一个名称为 Timer1的计时器，其 Interval属性设为 0，Enabled 属性设为 True。 要求：编写窗体Load事件过程和计时器 Timer事件过程，使得程序运行时，每隔一秒标签交替隐藏或显示一次。 注意：存盘时，将文件保存至考尘文件夹下，窗体文件名为 sil2frm，工程文件名为 sjt2vbp。要求程序中不得使用变量，每
3、个事件过程中只能写一条语句(不得使用选择语句或循环语句)。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp。窗体上有个钟表图案，其中代表指针的直线的名称足Linel，还有一个名称为 Label1的标签，和其他一些控件，如图 2118(a)所示。在运行时，若用鼠标左键单击圆的边线，则指针指向鼠标单击的何置，如图 21 18(b)所示：若用鼠标右键单击圆的边线，则指针恢复到起始位置，如图 2一 118(a)所示；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序
4、中的注释符，把程序中的?改为正确的内容。程序中的 oncircle函数的作用足判断鼠标单击的位置是否在圆的边线上(判断结果略有误筹)，是则返回 True，否则返回 False。符号常量 x0、y0 是圆心距窗体左上角的距离；符号常量radius是圆的半径。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 (2)在考生目录下有一个工程文件 sjt4vbp，窗体如图 2119 所示。其功能是单击“输入数据”按钮，则可输入一个整数 n(要求：8n12)；单击“计算”按钮，则计算1！+2！+3！+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保
5、存到考生目录下的 out4dat 文件中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，并编写“计算”按钮的 Click事件过程。 注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，已给出了所有控件(如图 262 所示)和部分程序。程序运行时，请按以下顺序操作： （分数：2.00）_国家二级 VB机试（上机操作）-试卷 134答案解析(总分：6
6、.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 VisualBasic应用程序(包括界面和代码)。 (1)在名称为 Forml、标题为“显示记录”的窗体上画一个名称为 Textl的文本框其初始内容为空：再画一个名称为 Commandl的命令按钮数组(下标从 0开始，有 4个按钮，其对应的标题分别为“上一条记录”、“下一条记录”、“第一条记录”、“最后一条记录”)，程序执行时的效果如图 2183 所示，且程序执行时按下回车键则相当于、单击“下一条记录”按钮。请设置相应属性。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sitl
7、frm，工程文件名为 sit1vbp。 (2)在名称为 Forml的窗体上，画一个名称为Labell的标签，其标题为“等级考试”，能根据标题内容自动调整标签的大小，外观如图 2184 所示。再画一个名称为 Timer1的计时器，其 Interval属性设为 0，Enabled 属性设为 True。 要求：编写窗体Load事件过程和计时器 Timer事件过程，使得程序运行时，每隔一秒标签交替隐藏或显示一次。 注意：存盘时，将文件保存至考尘文件夹下，窗体文件名为 sil2frm，工程文件名为 sjt2vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句(不得使用选择语句或循环语句)。 （分
8、数：2.00）_正确答案：(正确答案：第 1小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 3-97在窗体中用“复制”和“粘贴”画出控制数组并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 398 在窗体中画出控件并设置其相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生目录下有一个工程文件 sjt3vbp。窗体上有个钟表图案，其中代表指针的直线的名称足Linel，还有一个名称为 Label1的标签，和其他一些控件，如图 2118(a)所示。在运行时，若用鼠标左键单击圆
9、的边线，则指针指向鼠标单击的何置，如图 21 18(b)所示：若用鼠标右键单击圆的边线，则指针恢复到起始位置，如图 2一 118(a)所示；若鼠标左键或右键单击其他位置，则在标签上显示“鼠标位置不对”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。程序中的 oncircle函数的作用足判断鼠标单击的位置是否在圆的边线上(判断结果略有误筹)，是则返回 True，否则返回 False。符号常量 x0、y0 是圆心距窗体左上角的距离；符号常量radius是圆的半径。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名存盘。 (
10、2)在考生目录下有一个工程文件 sjt4vbp，窗体如图 2119 所示。其功能是单击“输入数据”按钮，则可输入一个整数 n(要求：8n12)；单击“计算”按钮，则计算1！+2！+3！+n!，并将计算结果显示在文本框中；单击“存盘”按钮，则把文本框中的结果保存到考生目录下的 out4dat 文件中。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容，并编写“计算”按钮的 Click事件过程。 注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用“存盘”按钮存储计算结果，否则无成绩。最后把修改后的文件按原文件名存盘。 （分数：2.00）_
11、正确答案：(正确答案：第 1小题 【操作步骤】 步骤 1打开本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Line2Y2=Y LinelX2 一LinelX1 LinelY2=y0750 Labe11Caption=“鼠标位置不对” 步骤 2：按要求将文件保存至学生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为止确的内容。 参考代码： s=1 f=s 步骤 2：双击“计算”按钮，编写该按钮的单击事件过程。 参考代码： PriV
12、ate 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：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，已给出了所有控件(如图 262 所示)和部分程序。程序运行时，请按以下顺序操作： （分
13、数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt5vbp，在代码编辑窗口指定位置编写以下代码： 参考代码： Private Sub Commandl C1iCk() Open”in5dat”For Input As 1 Line Input#1，S Close：#1 TextlText=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
14、If i Mod 2=0 Then If Mid(S，i，1)=”a”Then SS=SS”Z” E1seIf Mid(S，i，1)=”A”Then ss=ss”Z” Else ss=ssChr(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=ssChr(Asc(Mid(s，i，1)+1) End If End If Else SS=SSMid(s，i，1) End If Next Text2Text=SS End Sub 步骤 2：按键运行程序，先单击“读入文件”按钮，接着单击“加密”按钮，然后单击“存结果”按钮保存结果，最后单击窗体右上角的关闭按钮结束程序。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
