1、国家二级 VB机试（上机操作）模拟试卷 7及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml、标题为 ”图片 ”的窗体上画一个名称为 Imagel的图像框，其高为 2500、宽为2000。请通过属性窗口设置适当属性，装入考生目录下的图片文件 picl jpg，并使图片适应图像框的大小 (如图 2-59所示 )。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一 个名称为 Labell、标题为 ”口令 ”的标签；画一个名称为
2、 Textl的文本框；再画三个命令按钮，名称分别为 Commandl、 Command2、Command3，标题分别为 ”显示口令 ”、 ”隐藏口令 ”、 ”重新输入 ”。程序运行时，在Textl中输入若干字符，单击 ”隐藏口令 ”按钮，则只显示同样数量的 ”*”，如图 2-60(b)所示；单击 ”显示口令 ”按钮，则显示输入的字符，如图 2-60(a)所示，单击 ”重新输入 ”按钮，则清除 Textl中的内容，并把光标定位到 Textl中。要求：请画出所有控件，编写命令按钮的 Click事件 过程，程序中不得使用变量，在 ”显示口令 ”按钮、 ”隐藏口令 ”按钮的事件过程中只能写一条语句。存
3、盘时必须存放在考生文件夹下，工程文件名为 sjl2 vbp，窗体文件名为 sjl2 frm。二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，在程序运行时，单击 ”输入整数 ”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。如图 2-61(a)是输入 53后的结果，如图 2-6l(b)是输入 100的结果。已经给出了全部控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中 的 ?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 4 在考生文件夹下有一个工程文件 sjt4 vbp。在
4、其窗体中 ”待选城市 ”下的 Listl列表框中有若干个城市名称。程序运行时，选中 Listl中若干个列表项，如图 2-62(a)所示，单击 ”选中 ”按钮则把选中的项目移到 List2中；单击 ”显示 ”按钮，则在 Textl文本框中显示这些选中的城市，如图 2-62(b)所示。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为正 确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体中有一个实心圆。程序运行时，当用鼠标左键单击窗
5、体任何位置时，实心圆则向单击位置直线移动；若用鼠标右键单击窗体，则实心圆停止移动。窗体文件中已经给出了全部控件，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 7答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-29在窗体中画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步骤 1：新建一个 ”标准 EXE”工程，如表 3-30在窗体中画出控件并设置其相关属
6、性。 步骤 2：在代码编辑窗口，分别编写三个按钮的单击事件过程。参考代码： Private Sub Commandl_Click( )Textl PasswordChar=“End SubPrivate Sub Command2_Cl ick( )Textl PasswordChar=“*”End SubPrivate Sub Command3_Click( )Textl=“Textl SetFocusEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将
7、问号 ”?”改为正确的内容。 参考代码： n=InputBox(“请输入一个整数 ”) If m Mod k=0 Then fun=s 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： For k=Listl ListCount-1 To 0 Step-1 List2 AddItem LiStl LiSt(k) LiStl RemoveItem k Textl=Textl&”“&List2 List(k) 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Stepx=0 stepy=a*stepx Timer1 Enabled=True Timer1 Enabled=FalSe Shape1 Move Shapel Left+stepx， Shape1 Top+stepy 步骤 2：按要求将文件保存至考生文件夹中。
