1、国家二级 VB机试（上机操作）模拟试卷 220及答案与解析 一、基本操作题 1 清根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在标题为 “文本框 ”、名称为 Forml的窗体上面一个名称为 Text1的文本框，无初始内容，其高、宽分别为 2000、 1800，可显示多行，有水平滚动条，并通过属性窗口把文本框的字体样式设置为 “斜体 ”(如图 2 217所示 )。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体义件名为 sjtl frm。(2)在名称为 Forml的 窗体上画一个名称为 List1的列表框，通过属性窗门输入
2、4个列表项： “数学 ”、 “物理 ”、 “化学 ”、 “语文 ”，如图 2 21 8所示。请编写适当的事件过程，使得在装入窗体时，把最后一个列表项自动改为 “英语 ”；单击窗体时，则删除最后一个列表项。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp。窗体上有个钟表图案，其中代表指针的直线的名称足 Linel，还有一个名称为 Label1的标签，和其他一些控件，如图2 118(a)所示。在运行时，若用鼠标左键单击圆的
3、边线，则指针指向鼠标单击的何置，如图 2 1 18(b)所示：若用鼠标右键单击圆的边线，则指针恢复到起始位置，如图 2一 118(a)所示；若鼠标左键或右键单击其他位置，则在标签上显示 “鼠标位置不对 ”。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。程序中的 oncircle函数的作用足判断鼠标单击的位置是否在圆的边线上 (判断结果略有误筹 )，是则返回 True，否则返回False。符号常量 x0、 y0是圆心距窗体左上角的距离；符号常量 radius是圆的半径。 注意：不能修改程序中的其他部分和各控件的属性。最后把修改后的文件按原文件名
4、存盘。 (2)在考生目录下有一个工程文件 sjt4 vbp，窗体如图 2 119所示。其功能是单击 “输入数据 ”按钮，则可输入一个整数 n(要求： 8n12)；单击 “计算 ”按钮，则计算 1！+2！ +3！ +n! ，并将计算结果显示在文本框中；单击 “存盘 ”按钮，则把文本框中的结果保存到考生目录下的 out4 dat文件中。文件中已经给出了所 有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “计算 ”按钮的 Click事件过程。 注意：不得修改已经存在的内容和控件属性，在结束程序运行之前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最后把修改
5、后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体中有一个实心圆。程序运行时，当用鼠标芹键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 220答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 115在窗体中
6、画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹汇总。 【特别提示】 Font属性用于设置控件文本标题的字体、字号、字形等，单击属性设置窗口中 Font属件后面的按钮，将打开 “字体 ”对话框，如图 37所示。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中加入一个列表框，在属性设置窗口中将其 Name属性设置为 Listl，在其 List属性中添加四个项目，依次为“数学 ”、 “物理 ”、 “化学 ”和 “语义 ”。注意：每输入完一项后按键换行再输入下一项。 步骤 2：打开代码编辑窗口，编写相应的事件过程： 参 考代码： Privat
7、e Sub Form_Click() Listl RemoveItem Listl ListCount一 1 End Sub Private Sub Form_Load() Listl List(Listl ListCount一 1)=“英语 ” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1打开本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号 “?”改为正确的内容。 参考代码： Line2 Y2=Y Linel X2一 Linel X1 Linel Y2=y0750 Labe11
8、Caption=“鼠标位置不对 ” 步骤 2：按要求将文件保存至学生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为止确的内容。 参考代码： s=1 f=s 步骤 2：双击 “计算 ”按钮，编写该按钮的 单击事件过程。 参考代码： PriVate 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：按 键键运行程序，单击
9、“输入数据 ”按钮，通过输入框输入一个 8一12之间的整数，然后单击 “计算 ”按钮计算结果，最后单击 “存盘 ”按钮保存结果。 步骤 4：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的汴释符 “”，将问号 “?”改为正确的内容。 参考代码： stepx=0 stepy： a*stepx Timerl Enabled=True Timerl Enabled=False Shapel Move Shapel Left+stepx， Shapel Top+stepy 步骤 2：按要求将文件保存全考生文件夹中。
