1、国家二级 VB机试（上机操作）模拟试卷 96及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 ShapeI的圆角矩形，高、宽分别为 1000、2000。请利用属性窗口设置适当的属性满足以下要求： 圆角矩形中填满绿色 (颜色值为 &HOOOOFFOO&或 &HFF00&)； 窗体的标题为 “圆角矩形 ”。运行后的窗体如图 3 153所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在考生文件夹下有一个工程文件 sjt2
2、 vbp。窗体中已含有除计时器外的其他控件，还有一个过程 subl，其功能是按照 Textl中的通话时间计算通话费，并将其显示在 Text2中。程序运行时，单击 “通话开始 ”按钮，则在 Text1中累加通话时间 (每秒加 1)，单击 “通话结束 ”按钮，则停止通话时间的累加；单击 “计算通话费 ”按钮，则调用过程 sub1。要求： 在窗体上画一个计时器 (如图 3 154所示 )，并通过属性窗口设置适当属性。 编写三个按钮的 Click事件过程。 编写计时器的事件过程。注意：要求程序中不得使用变量，每个事件过程中只能写一条语句， “计算通话费 ”按钮的事件过程中只允许调用过程 subl。不得
3、修改已经存在的内容和控件属性，最后把文件按原文件名存盘。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，在程序运行时，单击 “输入整数 ”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。如图 3-137(a)是输入 53后的结果，如图 3 137(b)是输入 100的结果。已经给出了全部控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为 正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件sit4 vbp。在其窗体中 “待选城市 ”下
4、的 Listl列表框中有若干个城市名称。程序运行时，选中 Listl中若干个列表项，如图 3 138(a)所示，单击 “选中 ”按钮则把选中的项目移到 List2中；单击 “显示 ”按钮，则在 Textl文本框中显示这些选中的城市，如图 3138(b)所示。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内 容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。三、综合应用题 3 在考生目录下有一个工程文件 sit5 vbp，其窗体上有两个标签 L1和 L2，标题分别为 “口令 ”和 “允许次数 ”；一个
5、命令按钮 C1，标题为 “确定 ”；两个文本框名称分别为 Tex1和 Text2。其中 Text1用来输入口令 (输入时，显示 “*”)，无初始内容；Text2的初始内容为 3。并给出了 C1的事件过程，但不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容，使得在运行时，在 Text1中输入口令后，单击 “确定 ”按钮，如果输入的是 “123456”，则在 Textl中显示 “口令正确 ”；如果输入其他内容，单击 “确定 ”按钮后，弹出如图 3-147所示的错误提示对话框，并且Text2中的数字减 1。最多可输入 3次口令，若 3次都输入错误，则禁止再次输入。注意：不能修改程序中的其
6、他部分。最后把修改后的文件按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 96答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开本题工程文件 sjt2 vbp，在窗体中画一个名为 Timerl， Interval属性为 1000， Enabled属性为 False的计时器。 步骤 2：打开代码编辑窗口，编写三个命令按钮的 Click事件过程以及计时器的Timer事件过程。 参考代码： Private Sub Co
7、mmandl Click() Timerl Enabied： True End Sub Private Sub Command2 C1ick() Timerl Enabled=False End Sub Private Sub Command3 C1ick() sub1 End Sub Private Sub Timerl Timer() Text1=Text1+1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释 符 “”，将问号
8、 “?”改为正确的内容。 参考代码： n=InputBox(”请输入一个整数 ”) If m Mod k=0 Then fun=S 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For k=Listl ListCount一 1 To 0 Step一 1 List2 AddItem Listl List(k) Listl RemoveItem k Text1=Textl “” List2 List(k) 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit5 vbp，将文本框 Textl的PasswordChar属性值设置为 “”。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Textl Text=“123456”Then Textl PasswordChar=” If Text2 Text0 Then Textl Enabled=False 步骤 3：按要求将文件保存至考生文件夹中。
