1、VB机试模拟试卷 78及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上绘制一个标签和两个单选按钮。标签的名称为Labell，初始时内容为空。单选按钮的名称分别为 Optionl、 Option2，标题分别为“Iternl”和 “Item2”。编写适当的事件过程，使得程序运行时 Optionl按钮被选中，标签中显示 “选中 Iternl”，如图 241所示。如果单击 Option2按钮，标签中显示的内容为 “选中 Item2“。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，窗体文件 名为 sjl frm，工程文件名为 sjl Vbp。 (2)在名称
2、为 FOrml的窗体上，绘制一个形状控件和一个命令按钮。形状控件为圆形，名称为 Shapel。命令按钮为 Commandl，标题为 “变正方形 ”。编写适当的事件过程，使得程序运行时，单击命令按钮，圆形将隐藏起来，显示正方形。程序中不得使用任何变量。程序运行时的窗体界面如图 242所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm，该程序是不完整的。在名称为 Forml的窗体上有两个名称分别为 Labell和 Label2的标签，两个名称
3、分别为 Textl和 Text2的文本框控件和两个名称分别为 Commandl和 Command2的命令按钮。该程序的主要功能是求从 1到用户输入的任意自然数 n的偶数的累加和。本题要求刚启动工程时， “计算 ”和 “清空 ”按钮均为灰色，可以在 Textl文本框内输入任意自然数 (n值太大时，运算时间将很长，建议不超过 9位 )。在输入数的同时 “计算 ”变为可用；当计算完成后 “计算 ”变为不可用；当输人为 非数值时，累加结果为 0。单击 “计算 ”可以在 Text2中显示累加和，且该框内的文字不可修改；同时 “计算 ”变灰。 “清空 ”变为可用。单击 “清空 ”，输入框和显示框均被清空，
4、同时“计算 ”和 “清空 ”变为不可用。如图 563所示。 注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹中有文件 sj4 vbp及其窗体文件sj4 frm，窗体已经设计好，要求考生用 If语句编写程序，使得程序运行。窗体上有两个复选框，名称分 别为 Checkl和 Check2。标题分别为 “ItelTll”和 “Itern2”；两个单选按钮，名称分别为 Optionl和 Option2。标题分别为 “选择 ”和 “其他 ”；一个名称为 Labell、 Caption属性
5、为空的标签；一个名称为 Commandl、标题为 “显示 ”的命令按钮，一个名称为 Textl的文本框， Text属性为空。要求程序运行后，对选中Optionl时 checkl和 Check2可用， Textl也可用，当选中 Option2的时候， Textl可用， Checkl和 claeck2不可用，然后单击显示按钮可在 窗体上显示相应的信息，如选中 Optionl，则显示选中复选框的信息，选择 Option2则显示 Textl中的信息。程序运行时的界面如图 564所示。注意：不得使用任何变量。存盘时不得改变文件夹和文件名。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5
6、 vbp及窗体文件 sj5 frm，该程序是不完整的。在窗体上有一个名为 Listl的列表框，列表框中有若干列表项，如图 406所示，通过属性窗口设置列表框的 MultiSelect属性值为 1，一个名为 Textl的文本框，还有两个命令按钮，名称分别 是 Commandl和 Command2，标题分别是 “全选 ”和 “存盘 ”。要求在程序运行时，单击 commandl按钮则将 Listl中的全部列表项选中，然后单击 Command2按钮，将 Listl中的全部列表项写入 Textl中，并写入文本文件out txt中，并将 out txt保存在考生文件夹下。 注意：请在有 “?”的地方填入正
7、确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 VB机试模拟试卷 78答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个标签和两个单选按钮控件添加到窗体中，标签的名称为 Labell、 Caption属性为空，单选按钮的名称分别为 Optionl和 Option2、 Caption属性分别为 “Iteml”和 “Item2”。双击窗体进入代码窗口，编写如下代码： Private Sub Form_Load() 初始化 Labell Caption=“选中“+Option
8、l Caption End Sub Private Sub Optionl_Click() 选中 Iteml Labell Caption=“选中 “+Optionl Caption End Sub Private Sub Option2_Click() 选中Item2 Labell Caption=”选中 ”+Option2 Caption End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个命令按钮和一个Shape控件添加到窗体中，命令按钮的名称为 Commandl、 Caption属性为 “变正方形 ”， Shape的名称为 Shapel
9、、 Shape属性为 3。双击 Commandl进入代码窗 口，编写如下代码： Private Sub Commandl_Click() Shapel Shape=1 单击变正方形，Shapel变为正方形 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，将一个 Label控件、两个 Text控件和两个 Command控件添加到窗体上， Label的 Caption属性为 “求 1到用户输入数之间的所有偶数之和，并将结果显示出来。 ”， Text的名称分别为 Textl和 Text2、 Text属性分别为空和 Text2， Tex
10、t2的 Enable属性为 False， Command的名称分别为 Commandl和Command2、 Caption属性分别为 “计算 ”和 “清空 ”。双击 Commandl命令按钮，编写如下代码： Private Sub Commandl_Click() Dim a As Integer Dim total As Long Dim i As Integer a=Val(Textl Text) 将 Textl中的数据读入，放到 a中 total=0 For i=1 To a利用 For循环逐个判断 If i Mod 2=0 Then当判断是偶数时 total=total+i则相加 En
11、d If Next i Text2 Text=total将结果写入 Text2中 Commandl Enabled=False Commandl不可用 End Sub Private Sub Command2一 Click() Textl Text=“ Textl清空 Text2 Text=“ Text2清空 Commandl Enabl ed=False Commandl不可用 Command2 Enabled=False Command2不可用 End Sub Priyate Sub Text1_Change() Commandl Enabled=TrueCommandl可用 Comman
12、d2 Enabled=True Command2可用 End Sub 单击 按钮运行程序，并按要求保存。 (2)按要求设计好窗体后，双击Commandl命令按钮打开代码窗口，补充完整后的代码如下： Private Sub Commandl_Click() Dim str As String str=“ If Optionl Value=True Then如果选择的是 Optionl If Checkl Value=1 Then则判断选中的复选按钮 str=str+Checkl Caption如果选中 Checkl，则显示 Iteml End If If Check2 Value=1 Then如
13、果选中 Check2 str=str+Check2 Caption 则显示 Item2 End If C1s Print str在窗体上打印出来 Else， 如果选择的是 Option2 Cls Print Textl Text则显示 Textl的内容 End If End Sub Private Sub Optionl_Click() 单击 Optionl Textl Enabled=FalseTextl不可用 Checkl Enabled=TrueCheckl可用 Check2 Enabled=True Check2可用 End Sub Private Sub Option2_Click(
14、) Textl Enabled=True Checkl Enabled=False Check2 Ena bled=False End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查列表框的使用。列表框用于在很多项目中作出选择的操作。列表框的 ListCount属性表示表项的数量，列表项的排列从 0开始，最后一项的序号为 ListCount-1。使用列表项的 Selected属性来表示列表框中哪些项被选中，该属性实际上是一个数组，各元素与列表框中的一项相对应，其取值为 True或 False，为 True时表示选择了该项，为 False表
15、示未选择。 根据题意，将两个命令按钮、一个列表框控件和一个文本框控件添加到窗体中，命令按钮的名称分别为Commandl和 Cornmand2、 Caption属性分别为 “全选 ”和 “存盘 ”，列表框的名称为Listl，文本框的名称为 Textl。补充后的具体代码如下： Private Sub Commandl Click() Dim i As Integer Dim str As String str=“ For i=0 To Listl ListCount-1 Listl Selected(i)=True将所有的列表项都选中 str=str+Listl List(i) 将选中的文本写入一
16、个变量里面，最后一起输出 Next i Textl Text=str End Sub Private Sub Command2 Click() Open App Path&“ Out txt“For Output As#1 打开文件 Dim i As Integer For i=0 T0 Listl ListCount-1 Print#1， Listl List(i) 将每一项都写入到文件中 Next i Close#1 End Sub Private Sub Form Load() Listl AddItem“足球 “ 向列表中添加选项 Listl AddItem“篮球 “ Listl Addltem“排球 “ End Sub 单击 按钮运行程序，并按要求保存。
