1、国家二级 VB机试（上机操作）模拟试卷 166及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Shapel的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求： 圆角矩形中填满绿色 (颜色值为 &HOOOOFF00&或 &HFF00&)； 窗体的标题为 “圆角矩形 ”。 运行后的窗体如图 2 153所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sitl vbp，窗体文 件名为 sjtl frm。 (2)在考生文件夹下有一个工程文件 s
2、jt2 vbp。窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Text1中的通话时间计算通话费，并将其显示在 Text2中。程序运行时，单击 “通话开始 ”按钮，则在 Text1中累加通话时间 (每秒加 1)，单击“通话结束 ”按钮，则停止通话时间的累加；单击 “计算通话费 ”按钮，则调用过程subl。 要求： 在窗体上画一个计时器 (如图 2-154所示 )，并通过属性窗口设置适当属性。 编写三个按钮的 Click事件过程。 编写计时器的事 件过程。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句， “计算通话费 ”按钮的事件过程中只允许调用过程 sub
3、1。不得修改已经存在的内容和控件属性，最后把文件按原文件名存平盘。 二、简单应用题 2 (1)在考生目录下有一个工程文件 sjt3 vbp，包含了所有控件和部分程序，如图2 180所示。要求如下： 利用属性窗口设置适当的属性，使 Text1、 Text2中数据右对齐； 请编写适当的程序完成以下功能：在 Text1中输入 40(度数 )，选择组合框中的一个项目，单击 “计算 ”按钮，则根据所选择 的项目，计算出相应的正弦、余弦值 (保留 3位小数，第 4位截去， 取 3 14159)，并显示在 Text2中。 注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算；在
4、Text1中输入的必须是 40；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经画出所有控件。程序的作用是构成一个简单的时钟。刚运行时，不计时，选择一个单选按钮后，再单击 “计时 ”按钮，则开始计时，并根据所选的单选按钮决定是每秒显示一次秒数， 还是每 10秒显示一次秒数。 Text2用于显示秒，如图 2 181所示。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个
5、工程文件 sjt5 vbp，其窗体中有一个实心圆。程序运行时，当用鼠标芹键单击窗体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符， 把程序中的 ?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 166答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 83在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中
6、。 第 2小题 【操作步骤】 步骤 1：打开本题工程文件 sjt2 vbp，在窗体中画一个名为 Timed， Interval属性为 1000， Enabled属性为 False的计时器。 步骤 2：打开代码编辑窗口，编写三个命令按钮的 Click事件过程以及计时器的Timer事件过程。 参考代码： Private Sub CommandlClick() Timerl Enabled=True End Sub Private Sub Command2一 C1ick() Timerl Enabled=False End Sub Private Sub Command3一 Click() Subl
7、 End Sub Private Sub TimerlTimer() Textl=Textl+1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的工程文件 sjt3 vbp，依次选中窗体中的两个文本框，将其 Alignment属性值设置为 1-Right Justify。 步骤 2：双击 窗体中的 “计算 ”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub CommandlClick() Const PI=3 14159 Select Case Comb0
8、1 Text Case”sin”： a=SinfCInt (Textl Text)*PI 180) Case”COs”： a=CoS(cInt (Textl Text)*PI 180) End Select Text2=Int(a*1000) 1000 End Sub 步骤 3：按 键键运行程序，在左侧文奉框中输入 “40”，选择不同选项，单击“计算 ”按钮。 步骤 4：单击窗体右上角的关闭按钮以结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的奉题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为
9、正确的内容。 参考代码： num=num+1 Text2 Text=Text2 Text+10 Textl Text=Textl Text+1 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的汴释符 “”，将问号 “?”改为正确的内容。 参考代码： stepx=0 stepy： a*stepx Timerl Enabled=True Timerl Enabled=False Shapel Move Shapel Left+stepx， Shapel Top+stepy 步骤 2：按要求将文件保存全考生文件夹中。
