1、VB 机试-试卷 77 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上绘制一个标签和两个单选按钮。标签的名称为 Labell，初始时内容为空。单选按钮的名称分别为 Optionl、Option2，标题分别为“Iternl”和“Item2”。编写适当的事件过程，使得程序运行时 Optionl 按钮被选中，标签中显示“选中 Iternl”，如图 241 所示。如果单击 Option2按钮，标签中显示的内容为“选中 Item2“。程序中不得使用任何变量。 注意：保存时必须存
2、放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlVbp。 (2)在名称为 FOrml 的窗体上，绘制一个形状控件和一个命令按钮。形状控件为圆形，名称为 Shapel。命令按钮为 Commandl，标题为“变正方形”。编写适当的事件过程，使得程序运行时，单击命令按钮，圆形将隐藏起来，显示正方形。程序中不得使用任何变量。程序运行时的窗体界面如图 242 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm，该程序是不完整的。在名称为 Forml的窗体
3、上有两个名称分别为 Labell 和 Label2 的标签，两个名称分别为 Textl 和 Text2 的文本框控件和两个名称分别为 Commandl 和 Command2 的命令按钮。该程序的主要功能是求从 1 到用户输入的任意自然数 n的偶数的累加和。本题要求刚启动工程时，“计算”和“清空”按钮均为灰色，可以在 Textl 文本框内输入任意自然数(n 值太大时，运算时间将很长，建议不超过 9 位)。在输入数的同时“计算”变为可用；当计算完成后“计算”变为不可用；当输人为非数值时，累加结果为 0。单击“计算”可以在 Text2 中显示累加和，且该框内的文字不可修改；同时“计算”变灰。“清空”
4、变为可用。单击“清空”，输入框和显示框均被清空，同时“计算”和“清空”变为不可用。如图 563 所示。 注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹中有文件 sj4vbp 及其窗体文件 sj4frm，窗体已经设计好，要求考生用 If 语句编写程序，使得程序运行。窗体上有两个复选框，名称分别为 Checkl 和 Check2。标题分别为“ItelTll”和“Itern2”；两个单选按钮，名称分别为 Optionl 和 Option2。标题分别为“选择”和“其他”；一个名称为 Labe
5、ll、Caption 属性为空的标签；一个名称为 Commandl、标题为“显示”的命令按钮，一个名称为 Textl 的文本框，Text 属性为空。要求程序运行后，对选中 Optionl 时 checkl 和Check2 可用，Textl 也可用，当选中 Option2 的时候，Textl 可用，Checkl 和 claeck2 不可用，然后单击显示按钮可在窗体上显示相应的信息，如选中 Optionl，则显示选中复选框的信息，选择 Option2 则显示 Textl 中的信息。程序运行时的界面如图 564 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（
6、）（分数：2.00）_6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的。在窗体上有一个名为Listl 的列表框，列表框中有若干列表项，如图 406 所示，通过属性窗口设置列表框的 MultiSelect 属性值为 1，一个名为 Textl 的文本框，还有两个命令按钮，名称分别是 Commandl 和 Command2，标题分别是“全选”和“存盘”。要求在程序运行时，单击 commandl 按钮则将 Listl 中的全部列表项选中，然后单击 Command2 按钮，将 Listl 中的全部列表项写入 Textl 中，并写入文本文件 outtxt 中，并将ou
7、ttxt 保存在考生文件夹下。 （分数：2.00）_VB 机试-试卷 77 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 的窗体上绘制一个标签和两个单选按钮。标签的名称为 Labell，初始时内容为空。单选按钮的名称分别为 Optionl、Option2，标题分别为“Iternl”和“Item2”。编写适当的事件过程，使得程序运行时 Optionl 按钮被选中，标签中显示“选中 Iternl”，如图 241 所示。如果单击 Option2按钮，标签中显示的内容为“选中 I
8、tem2“。程序中不得使用任何变量。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlVbp。 (2)在名称为 FOrml 的窗体上，绘制一个形状控件和一个命令按钮。形状控件为圆形，名称为 Shapel。命令按钮为 Commandl，标题为“变正方形”。编写适当的事件过程，使得程序运行时，单击命令按钮，圆形将隐藏起来，显示正方形。程序中不得使用任何变量。程序运行时的窗体界面如图 242 所示。 （分数：2.00）_正确答案：(正确答案： (1)根据题意，新建“标准 EXE”工程，将一个标签和两个单选按钮控件添加到窗体中，标签的名称为 Labell、Capti
9、on 属性为空，单选按钮的名称分别为 Optionl 和Option2、Caption 属性分别为“Iteml”和“Item2”。双击窗体进入代码窗口，编写如下代码： Private Sub Form_Load() 初始化 LabellCaption=“选中“+OptionlCaption End Sub Private Sub Optionl_Click() 选中 Iteml LabellCaption=“选中“+OptionlCaption End Sub Private Sub Option2_Click() 选中 Item2 LabellCaption=”选中”+Option2Capt
10、ion End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，新建“标准 EXE”工程，将一个命令按钮和一个 Shape 控件添加到窗体中，命令按钮的名称为 Commandl、Caption 属性为“变正方形”，Shape 的名称为Shapel、Shape 属性为 3。双击 Commandl 进入代码窗口，编写如下代码： Private Sub Commandl_Click() ShapelShape=1 单击变正方形，Shapel 变为正方形 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文
11、件夹下有工程文件 sj3vbp 及窗体文件 sj3frm，该程序是不完整的。在名称为 Forml的窗体上有两个名称分别为 Labell 和 Label2 的标签，两个名称分别为 Textl 和 Text2 的文本框控件和两个名称分别为 Commandl 和 Command2 的命令按钮。该程序的主要功能是求从 1 到用户输入的任意自然数 n的偶数的累加和。本题要求刚启动工程时，“计算”和“清空”按钮均为灰色，可以在 Textl 文本框内输入任意自然数(n 值太大时，运算时间将很长，建议不超过 9 位)。在输入数的同时“计算”变为可用；当计算完成后“计算”变为不可用；当输人为非数值时，累加结果为
12、 0。单击“计算”可以在 Text2 中显示累加和，且该框内的文字不可修改；同时“计算”变灰。“清空”变为可用。单击“清空”，输入框和显示框均被清空，同时“计算”和“清空”变为不可用。如图 563 所示。 注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹中有文件 sj4vbp 及其窗体文件 sj4frm，窗体已经设计好，要求考生用 If 语句编写程序，使得程序运行。窗体上有两个复选框，名称分别为 Checkl 和 Check2。标题分别为“ItelTll”和“Itern2”；两个单选按
13、钮，名称分别为 Optionl 和 Option2。标题分别为“选择”和“其他”；一个名称为 Labell、Caption 属性为空的标签；一个名称为 Commandl、标题为“显示”的命令按钮，一个名称为 Textl 的文本框，Text 属性为空。要求程序运行后，对选中 Optionl 时 checkl 和Check2 可用，Textl 也可用，当选中 Option2 的时候，Textl 可用，Checkl 和 claeck2 不可用，然后单击显示按钮可在窗体上显示相应的信息，如选中 Optionl，则显示选中复选框的信息，选择 Option2 则显示 Textl 中的信息。程序运行时的界面
14、如图 564 所示。 （分数：2.00）_正确答案：(正确答案： (1)根据题意，将一个 Label 控件、两个 Text 控件和两个 Command 控件添加到窗体上，Label 的 Caption 属性为“求 1 到用户输入数之间的所有偶数之和，并将结果显示出来。”，Text的名称分别为 Textl 和 Text2、Text 属性分别为空和 Text2，Text2 的 Enable 属性为 False，Command 的名称分别为 Commandl 和 Command2、Caption 属性分别为“计算”和“清空”。双击 Commandl 命令按钮，编写如下代码： Private Sub
15、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则相加 End If Next i Text2Text=total将结果写入 Text2 中 CommandlEnabled=False Commandl 不可用 End Sub Private Sub Command2 一 Click
16、() TextlText=“ Textl 清空 Text2Text=“ Text2 清空 CommandlEnabl ed=False Commandl 不可用 Command2Enabled=False Command2 不可用 End Sub Priyate Sub Text1_Change() CommandlEnabled=TrueCommandl 可用 Command2Enabled=True Command2 可用 End Sub 单击 按钮运行程序，并按要求保存。 (2)按要求设计好窗体后，双击Commandl 命令按钮打开代码窗口，补充完整后的代码如下： Private Sub
17、 Commandl_Click() Dim str As String str=“ If OptionlValue=True Then如果选择的是 Optionl If ChecklValue=1 Then则判断选中的复选按钮 str=str+Checkl Caption 如果选中 Checkl，则显示 Iteml End If If Check2Value=1 Then如果选中 Check2 str=str+Check2 Caption 则显示 Item2 End If C1s Print str在窗体上打印出来 Else，如果选择的是 Option2 Cls Print TextlText
18、则显示 Textl 的内容 End If End Sub Private Sub Optionl_Click() 单击 Optionl TextlEnabled= False Textl 不可用 ChecklEnabled=TrueCheckl 可用 Check2Enabled=True Check2 可用 End Sub Private Sub Option2_Click() TextlEnabled=True ChecklEnabled=False Check2Ena bled=False End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：
19、2.00）_解析：6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的。在窗体上有一个名为Listl 的列表框，列表框中有若干列表项，如图 406 所示，通过属性窗口设置列表框的 MultiSelect 属性值为 1，一个名为 Textl 的文本框，还有两个命令按钮，名称分别是 Commandl 和 Command2，标题分别是“全选”和“存盘”。要求在程序运行时，单击 commandl 按钮则将 Listl 中的全部列表项选中，然后单击 Command2 按钮，将 Listl 中的全部列表项写入 Textl 中，并写入文本文件 outtxt 中，并将outt
20、xt 保存在考生文件夹下。 （分数：2.00）_正确答案：(正确答案：本题主要考查列表框的使用。列表框用于在很多项目中作出选择的操作。列表框的 ListCount 属性表示表项的数量，列表项的排列从 0 开始，最后一项的序号为 ListCount-1。使用列表项的 Selected 属性来表示列表框中哪些项被选中，该属性实际上是一个数组，各元素与列表框中的一项相对应，其取值为 True 或 False，为 True 时表示选择了该项，为 False 表示未选择。 根据题意，将两个命令按钮、一个列表框控件和一个文本框控件添加到窗体中，命令按钮的名称分别为 Commandl 和Cornmand2、
21、Caption 属性分别为“全选”和“存盘”，列表框的名称为 Listl，文本框的名称为 Textl。补充后的具体代码如下： Private Sub Commandl Click() Dim i As Integer Dim str As String str=“ For i=0 To ListlListCount-1 Listl Selected(i) =True将所有的列表项都选中 str=str+ListlList(i) 将选中的文本写入一个变量里面，最后一起输出 Next i Textl Text =str End Sub Private Sub Command2 Click() Open AppPath&“Outtxt“For Output As#1 打开文件 Dim i As Integer For i=0 T0 ListlListCount-1 Print #1，ListlList(i) 将每一项都写入到文件中 Next i Close#1 End Sub Private Sub Form Load() Listl AddItem “足球“ 向列表中添加选项 Listl AddItem “篮球“ Listl Addltem “排球“ End Sub 单击 )解析：
