1、VB机试模拟试卷 163及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Pic的图片框，通过属性窗口将考生文件夹下的文件 Tul-1 jpg添加到图片框，然后编写适当的事件过程。运行程序时，单击窗体，在图片框中显示 “VB等级考试 ”，如图 1-21所示。注意：要求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Forml的窗体上画一个名称为Commandl的
2、命令按钮，标题为 “命令按钮 ”。然后建立一个菜单，标题为 “控件 ”，名称为 menu，包含两个子菜单项，一个是 “显示命令按钮 ”，名称为 subMenul；另一个是 “隐藏命令按钮 ”，名称为 subMenu2，如图 1-22所示。编写适当的事件过程，使得程序运行时，如果选择 “显示命令按钮 ”菜单命令，则显示命令按钮控件；而如果选择 “隐藏命令按钮 ”菜单命令，则隐藏命令按钮控件。注意：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sit2 vbp，窗体文件名为 sjt2 frm。二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个
3、工程文件 sjt3 vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击 “统计 ”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组 x中，如图1-56所示。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)考生文件夹下的工程文件 sjt4 vbp中有两个名称分别为 Listl、 List2的列表框控件，两个名称分别为 Commandl、Command2，标题分别为 “”、 “”按钮，将 List
4、l中的表项添加到 List2中，同时将Listl清空；单击 “ 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，界面如图 1-137所示，其功能如下： 单击 “读数据 ”按钮，则把考生文件夹下文件 in5 dat中的 12组整数 (其中每组含有 10个数，共计 120个整数 )读到数组 a中； 单击 “计算 ”按 钮，则对每组数求平均值，并将所求各组数的平均值截尾取整后存入数组 s中； 单击 “显示 ”按钮，则将所求各组数的平均值显示在文本框 Textl中： 单击 “存盘 ”按钮则把计算结果存盘。在给出的窗体文件中已经有了全部控件，且 “读数据 ”、 “显示 ”
5、和 “存盘 ”按钮的Click事件过程已经给出，请为 “计算 ”按钮编写适当的事件过程以实现上述功能。注意：不得修改已经存在的程序，在结束程序运行之前，必须用 “存盘 ”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 VB机试模拟试卷 163答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体 Forml中画一个名称为 Pie的图片框，并设置其 Picture属性为 Tul-lJpg。 步骤2：双击窗体打开代码编辑窗口，在窗体的 Click事件过程中输入代码。 参考代码： PriVate Sub Form
6、_Click() Pic Print“VB等级考试 “ End Sub 步骤 3:按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个名称为 Commandl， Caption属性为 “命令按钮 ”的命令按钮。 步骤 2：选择，【工具】 【菜单编辑器】命令，打开菜单设计器，如表 2-13中的设置建立菜单项。 步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。 参考代码： PriVate Sub subMenul_Click() Commandl Visible=True End Sub PriVate Sub s
7、ubMenu2_Click() Commandl Visible=False End Sub 步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 本题只需按要求在窗体及框架中画出控件，并设置其相应属性，然后在窗体的单击事件中调用图片框的 Print方法显示文本。 第 2小题 菜单中所包含的每一个菜单项都可看成是一个命令按钮，程序运行时，选择某菜单项将触发其 Click事件。 要实现本题中的功能。应在 “显示命令按钮 ”菜单项的 Click事件过程中，令命令按钮的 Visible属性为 True，在 “隐藏命令按钮 ”菜单项的 Click事件过程中，令命令按钮的 Visible
8、属性为 False。 二、简单应用题（ 40分） 2 【正确答 案】 第 l小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n=Len(Textl Text) b=Asc(Mild(s， i， 1) Select Case b For i=0 To 2 x(i)=a(i) 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，通过 Listl列表框的 List属性添加四个项目：文本框、标签、命令按钮、单选按
9、钮。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： FOr i=0 To La ListCount-1 Lb AddItem La List(i) Next La Clear 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 RTfim$(字符串 )函数的作用是：去掉 “字符串 ”右边的空白字符 。 本题原程序在 For循环体中 (其中循环终值应为文本框的字符长度，即n=Len(1bxtl Text)，用 Mid函数逐一取出文本框中的每个字符，并用 Asc函数返回其 ASCII码。若取出字符的 ASCII码在 48 57之间
10、，则记录数字个数的数组变量 a(0)增 1；若 ASCII码在 65 90之间，则记录大写字母个数的数组变量a(1)增 1；若 ASCII码在 97 122之间，则记录小写字母个数的数组变量 a(2)增1。 第 2小题 列表框的 Clear方法用于清除列表框中的所有项目。 本题列表框中列表项的移 动功能，是通过调用 remove过程来实现的，在 remove过程中通过 For循环 (循环变量终值为 La ListCount-1)将列表框 La中的各项逐一添加到列表框 Lb中，全部项目添加完成后，用列表框的 Clear方法清除该列表框中的所有项目。 三、综合应用题（ 30分） 3 【正确答案】
11、【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5,vbp，在代码编辑窗口，编辑 “计算 ”按钮单击事件的内容。 参考代码： For i=1 To 12 Sum=a(i， 1) For j=2 To 10 Sum=Sum+a(i， j) Next j s(i)=Int(Sum 10) Next i 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键运行程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击 “显示 ”按钮查看结果，最后单击 “存盘 ”按钮保存结果。 【试题解析】 本题可利用一个嵌套的 For循环来完成计算工作：在外循环 (循环变量的取值为 1 12)体中，先初始设置记录每行累加和的变量 Sum的初值为每行的 第一个数，接着通过内循环 (循环变量的取值为 2 10)逐一完成 Sum与该行其他数据的累加工作。内循环结束后，用表达式 s(i)=Im(Sum 10)保存每行的平均值。
