1、国家二级 VB机试（上机操作）模拟试卷 221及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Picturel的图片框 (PictureBox)，高、宽均为1000。在图片框内再画一个有边框的名称为 Imagel的图像框 (Image)。并通过属性窗口把考生目录下的图标文件 POINTl1(香蕉图标 )装入图像框 Imagel中，如图 2-116所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Form
2、l的窗体上面一个名称为Commandl、标题为 “保存义什 ”的命令按钮，再画一个名称为 CommonDialogl的通用对话框。 要求： 通过属性窗 U设置适当的属性，使得运行时对话框的标题为“保存文件 ”，且默认文件名为 out2； 运行时单击 “保存文件 ”按钮，则以 “保存对话框 ”方式打开该通用对话框。如图 2 117所示。注意：要求程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件夹下，工程文件名为 sjl2 vbp，窗体文件名为 sjt2.jfrm。 二、简单应用题 2 (1)在学生文件夹下有一个工程文件 sjt3 vbp，在程序运行时，单击 “输入整数
3、”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。如图 2 137(a)是输入 53后的结果，如图 2137(b)是输入 100的结果。已经给出了全部控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 t4 vbp。在其窗体中 “待选城市 ”下的 List1列表框中订若干个城市名称。程序运行时，选中 List1中若干个列表项，如图 2 138(a)所示，单击 “选中 ”按钮则把选中的项目移到 List2中；单
4、击 “显示 ”按钮，则在 Text1文本框中显示这些选中的城市，如图 2 138(b)所示。已经给出了所有控件和程序，但程序不完整。 要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在名称为 Forml的窗体上画一个文本框，名称为 Text1，允许多行显示：再画三个命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “输入 ”、 “转换 ”、 “存盘 ”(如图2 244所示 )。请编写适当的事件过程，使得在运行时，单击 “输入 ”按钮，则从考生文件央中读入 in5
5、 txt文件 (文件中只有字母和空格 )，放入 Text1中；单击 “转换 ”按钮，则把 Text1中的所有小写字母转换为大写字母；单击 “存盘 ”按钮，则把Text1中的内容存入 out5 txt文件中。注意：考生必须把转换后的内容用 “存盘 ”按钮存入 out5 txt文件，否则无成绩 。考生的工程文件以文件名 sjt5 vbp存盘，窗体文件以文件名 sjt5 frm存盘。 国家二级 VB机试（上机操作）模拟试卷 221答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 64在窗体中画出控件并设置其相关属性。步骤 2：按
6、要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，选择【工程】 【部件】命令，在弹出的 “部件 ”对话框的列表中选中 “MicroSoft Connon Dialog Control6 0”项目，单击 “确定 ”按钮。 步骤 2： 在窗体 Form1上面一个通用对话框和一个命令按钮，其相关属性设置如表 3 65所示。步骤 3：打开的代码编辑窗口中，编写命令按钮的单击事件过程。 PriVate Sub Commandl一 Click() CommonDialogl Action=2 或 CommonDialogl ShowSave End Sub
7、 步骤 4：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n=InputBox(”请输入一个整数 ”) If m Mod k=0 Then fun=S 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，存代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For k=Listl ListCount
8、一 1 To 0 Step一 1 List2 AddItem Listl List(k) Listl RemoveItem k Textl=Textl ” List2 List(k) 步骤 2：按要求将文件保存至考生文件夹中。 三、综合 应用题 3 【正确答案】 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 3 132在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写相应事件过程。 参考代码： Private Sub C1 CliCk() Open”in5 txt”For Input As#1 Input #1， aS Textl Text=a$ Close#1 End Sub Private Sub C2 C1iCk() aS=Textl Text b$=” n=Len(aS) For i=1 To n b$=b$+UCase$(Mid$(a$， i， 1) Next Textl Text=b$ End Sub Private Sub C3 Click() Open”out5 txt”For Output As1 Print#1， Textl Text Close#1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键键运行程序，先单击 “输入 ”按钮，接着单击 “转换 ”按钮，然后单击 “存盘 ”按钮保存转换后的数据。
