1、VB机试模拟试卷 139及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个命令按钮，其名称分别为 cl和 C2，标题分别为 “命令按钮l”和 “命令按钮 2”，通过属性窗口设计适当的属性，使得程序运行后， “命令按钮 2”隐藏。编写适当的事件过程，如果单击 “命令按钮 l”，则 “命令按钮 2”出现， “命令按钮 1”隐藏；而如果单击 “命令按钮 2”，则 “命令按钮 l”出现， “命令按钮 2”隐藏。程序的运行情况如图 l-105所示。 注意：程序中不得使用变量。存盘时必须
2、存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Forml的窗体上画一个列表框，其名称为L1；一个水平滚动条，其名称为 HSI， SmallChange属性为 2， LargcChange属性为10， Min属性为 0， Max属性为 100，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中添加一个项目，其内容是“xx”，其中 xx是滚动框所在的位置，如图 1-106所示。注意：程序中不要使用变量；存盘时必须 存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjl2 frm。 二、简单应用题
3、 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件为 sjt3 frm。在窗体上有一个名称为 Command1、标题为 “计算 ”的命令按钮：两个水平滚动条，名称分别为 Hscrolll和 Hscroll2，其 Max属性均为 100，： Min属性均为 1；四个标签，名称分别为 Labell、 Label2、 Label3和 Label4，标题分别为 “运算数 1”、 “运算数 2”、 “运算结果 ”和空白：此 外还有一个包含四个单选按钮的控件数组，名称为 Optionl，标题分别为 “+”、 “-”、 “*”和 “ ”，如图 1-83(a)所示。程序运行
4、后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击计算按钮，相应的计算结果将显示在 Label4中，程序运行情况如图1-83所示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有一个命令按钮，其名称为 Commandl，标题为 “输入显示 ”；此外还有一个文本框，其名称为Textl，初始内容为空白
5、程序的功能是，程序运行后，单击命令按钮，显示输入对话框，在对话框中输入某个月份的数值 (1 12)，然后单击 “确定 ”按钮，即可在文本框中输出该月份所在的季节。例如输入 5，将输出 “5月份是夏季 ”，如图 1一84所示。程序不完整，请补充完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运 行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上画有两个名称分别为Textl、 Text2的文本框，其中 Textl可多行显示。请画两个名称为 Commandl、C
6、ommand2，标题为 “产生数组 ”、 “查找 ”的命令按钮。如图 1-43所示。程序功能如下： 单击 “产生数组 ”按钮，则用随机函数生成 10个 0 100之间 (不含 0和 100)互不相同的数值，并将它们保存到一维数组 a中，同时也将这 10个数值显示在Textl文本框内； 单击 “查找 ”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组 a中查找该数，若查找失败，则在 Text2文本框内显示该数 “不存在于数组中 ”；否则显示该数在数组中的位置。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修
7、改后的文件按原文件名存盘。 VB机试模拟试卷 139答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 l小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，如表 2-59在窗 体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写如下事件过程。 参考代码： Private Sub Cl_Click() C2 Visible=True C1 Visible=False End Sub Private Sub C2_Click() C1 Visible=True C2 Visible=False End Sub 步骤3：按要求将文件保存至考生文件夹中。 第 2小题 【
8、操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 2-60在窗体中画出控件并设置其相关属性。步骤 2：打开 代码编辑窗口，编写窗体的 Click事件过程。 参考代码： PriVate Sub Form_Click() L1 AddItem Str$(Forml HSI) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 本题要求在程序运行后， C2按钮隐藏，故应首先在设计窗体的时候设置 C2的Visible属性值为 False；在单击 Cl按钮后， C2按 钮出现而 Cl按钮隐藏，应在 C1的单击事件过程中，设置 C2的 Visible属性值为 Tr
9、ue， Cl的 Visible属性值为False；在单击 C2按钮后， Cl按钮出现而 C2按钮隐藏，应在 C2的单击事件过程中，设置 Cl的 Visible属性值为 True， C2的 Visible属性值为 False。 第 2小题 列表框的列表项既可以在设计阶段通过其 List属性设置加入 (注意：每输入完一项后按 键换行再输入下一项 )，也可在程序运行时通过 AddItem方法加入，其语法为：列表框名 AddItem项目 字符串 ，索引值 。其中， “索引值 ”可以指定插入项在列表框中的位置，表中的项目从 0开始计数。如果省略 “索引值 ”，则文本被放在列表框的尾部。 本题只需按要求画
10、出控件并设置相关属性，然后在窗体的单击事件中使用列表框的 Addltem方法将滚动条的 Value值加入到列表框中即可。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代 码： IfOptionl(i)=True Then SelectCase opt Label4 Captien=str(Hsb1.Value)&“&opt & Str(Hsb2 Value)&“=“&Str(Resulf) 步骤 2：按要求将文件保存至考生文件夹中。
11、 第 2小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjl4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： LoopUntiln0 Andn10 Then 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 Rnd()函数用于产生一个小于 l但大于或等于 O的随机数值，为了生成某个范围内的随机整数，可使用以下公式： Int(upperbound-lowerbound+1)*Rnd+lowerbound) 这里， upperbound是随机数范围的上限，而。 lowerbound 则是随机 数范围的下限。 本题在 “生成数组
12、按钮的单击事件过程中，通过： For循环生成 10个 0 100之间 (不含 0和 100)互不相同的随机数，并存入数组 a，其中生成函数的表达式应为： Fix(Rnd*99+1)。为防止生成相同的随机数值，每新生成一个随机数后，都通过 For循环让其与之前生成的 i一个随机数逐一比较。若新生成的随机数已存在，则将当前循环变量 i的值减 l，重新为数组元素 a(i)生成随机数。 在 “查找 ”按钮的单击事件过程中，通过 F0r循环让数组 a中的元素逐一与用户在输入对话框中输入的数相比较，若条件 表达式 a(i)num成立，则表示找到相同的数，并在文本框 Text2中显示相关信息。若没找到相同的数，循环结束后循环变量 i10，则在 Text2文本框内显示该数 “不存在于数组中 ”。
