1、VB 机试-试卷 67 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上放置一个名称为 Textl 的文本框。程序运行后，用户在文本框中输人的英文字母一律用小写显示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sj1vbp。程序运行时的窗体界面如图 591 所示。 (2)在窗体上画两个命令按钮，名称分别为Commandl、Command2，标题分别为“显示”和“隐藏”，请编写适当的事件过程，使得程序运行时，单击“显示”按钮，则使“隐藏
2、”按钮显示，而单击“隐藏，”按钮，则“隐藏按钮不显示(即只有“显示”按钮可见)。程序中不得使用任何变量。程序运行时的窗体界面如图 592 和图 593 所示。（分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm。该程序的窗体是不完整的，要求设计好窗体，并编写相应的程序，完成题目的要求。窗体上已有 3 个命令按钮，名称分别为Commandl、Command2、Command3，标题分别为“修改”、“保存”、“添加”；另有一文本框，名称为Text1。要求在窗体设计一组合框，名
3、称为 Combol，初始表项内容如下：“北京 010”、“天津 022”、“上海 021”。 运行程序时，Combol 文本框中内容为“中国直辖市”。单击“添加”按钮，则可以把文本框中的内容添加到组合框中；当选中组合框的表项时，单击“修改”按钮，文本框中显示选中的表项，同时“保存”按钮变为可用。修改完毕，单击“保存”，被选中项发生相应的变化，同时“保存”按钮变为不可用，如图 693 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3frm，工程文件名为 sj3vbp。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm，该程序是不完整的。窗体上有一个标签，名称为
4、 Labell。Labell 上为提示文字和返回值。在窗体上画一个命令按钮，命名为Commandl，标题为“判断”。程序运行后，如果单击命令按钮，则显示一个输入框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 Funcl，在 Funcl 中判断所输入的整数是否为偶数。如果是偶数，过程 Funcl 返回 1，否则返回 O，并在标签上显示出来。程序运行时的窗体界面如图 694 所示。（分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm。在窗体 Form 上有一个名为
5、Listl 的列表框，列表框中有若干列表项，通过属性窗口设置列表框的 MultiSelect 属性为 1。还有两个命令按钮，名称分别是 Commandl 和 Command2，标题分别是“全选”和“保存”(如图 416 所示)。要求在程序运行时，单击“全选”按钮则将 Listl 中的全部列表项选中，然后单击“保存”按钮，将 Listl 中的全部列表项写入文本文件 out5txt 中，并将 out5txt 保存在考生文件夹下。 （分数：2.00）_VB 机试-试卷 67 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.0
6、0）_解析：2.(1)在名称为 Forml 的窗体上放置一个名称为 Textl 的文本框。程序运行后，用户在文本框中输人的英文字母一律用小写显示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sj1vbp。程序运行时的窗体界面如图 591 所示。 (2)在窗体上画两个命令按钮，名称分别为Commandl、Command2，标题分别为“显示”和“隐藏”，请编写适当的事件过程，使得程序运行时，单击“显示”按钮，则使“隐藏”按钮显示，而单击“隐藏，”按钮，则“隐藏按钮不显示(即只有“显示”按钮可见)。程序中不得使用任何变量。程序运行时的窗体界面如图 592 和图 5
7、93 所示。（分数：2.00）_正确答案：(正确答案：(1)本题考查文本框控件(TextBox)常用属性和事件及 LCase()函数的使用。 文本框的 Text 属性用于设置或返回文本框中显示的文本；LCase()函数用于将字符串中大写字母转化为小写字母，原本小写字母和其他字符保持不变。 根据题意，新建“标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Textl、Text 属性为空，双击 Textl 进人代码窗口，编写如下代码： Private Sub Textl_Change() TextlText=LCase(TextlText) 将大写字母转换成小写字母 TextlSetSt
8、art=Len(TextlText) 将光标放在最右边 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题考查命令按钮(CommandButton)相关属性和事件。命令按钮(CommandButton)常用来建立实现某种命令的按钮，通过命令按钮的 Caption 属性设置其标题；命令按钮是否可见由其 Visible 属性来设置，值为 True 表示有效，值为 False 表示无效。 根据题意，新建“标准 EXE”工程，将两个命令按钮添加到窗体中，其名称分别为 Commandl 和 Command2、Caption 属性分别为“显示”和“隐藏”。双击Commandl 进入代码编辑窗口
9、，编写如下代码： Private Sub Commandl_Click() Command2Visible=True End Sub Private Sub Command2_Click() Command2Visible=False End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm。该程序的窗体是不完整的，要求设计好窗体，并编写相应的程序，完成题目的要求。窗体上已有 3 个命令按钮，名称分别为Commandl、Command2、Command3，标题
10、分别为“修改”、“保存”、“添加”；另有一文本框，名称为Text1。要求在窗体设计一组合框，名称为 Combol，初始表项内容如下：“北京 010”、“天津 022”、“上海 021”。 运行程序时，Combol 文本框中内容为“中国直辖市”。单击“添加”按钮，则可以把文本框中的内容添加到组合框中；当选中组合框的表项时，单击“修改”按钮，文本框中显示选中的表项，同时“保存”按钮变为可用。修改完毕，单击“保存”，被选中项发生相应的变化，同时“保存”按钮变为不可用，如图 693 所示。注意：保存时必须存放在考生文件夹下，窗体文件名为 sj3frm，工程文件名为 sj3vbp。 (2)在考生文件夹下
11、有工程文件 sj4vbp 及窗体文件 sj4frm，该程序是不完整的。窗体上有一个标签，名称为 Labell。Labell 上为提示文字和返回值。在窗体上画一个命令按钮，命名为Commandl，标题为“判断”。程序运行后，如果单击命令按钮，则显示一个输入框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 Funcl，在 Funcl 中判断所输入的整数是否为偶数。如果是偶数，过程 Funcl 返回 1，否则返回 O，并在标签上显示出来。程序运行时的窗体界面如图 694 所示。（分数：2.00）_正确答案：(正确答案：(1)根据题意，将一个 ComboBox 控件、一个文本框控件和三个
12、命令按钮添加到窗体中，ComboBox 的名称为 Comb01，在其 11，ist 属性中添加“北京 010”、“天津 022”和“上海 021”，文本框的名称为 Textl、Text 属性为空，命令按钮的名称分别为 Commandl、Command2 和Command3，Caption 属性分别为“修改”、“保存”和“添加”。双击 Commandl 进入代码窗口，编写如下代码： Private Sub Commandl_Click() TextlText=Comb01List(Comb01ListIndex) 将选中项显示在 Textl 中 Command2Enabled=TrueComma
13、nd2 可用 End Sub Private Sub Command2_Click() Dim a As Integer a=Combo1Listlndex记录 Combol 选中的索引值 Comb01RemoveItem(Comb01ListIndex) 删除选中项 Comb01Addhem(TextlText)，a将经过修改的项存人 Comb01 的原有位置 Comb01Text=Comb01List(a) 将修改后的项显示在 Comb01 中 Command2Enabled=False Command2 不可用 End Sub Private Sub Command3_Click() C
14、ombo1AddItem TextlText向 Comb01 中添加项 E；nd Sub Private Sub Form_Load() Command2Enabled=False初始时 Command2 不可用 End Sub 单击 按钮运行程序，并按要求保存。(2)根据题意，将一个标签和一个命令按钮添加到窗体中，标签的名称为 Labell，命令按钮的名称为Commandl、Caption 属性为“判断”。双击 Commandl，进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim b As Integer b=Val( InputBox (“请输入
15、整数：“) 通过对话框输入整数 Labell Caption =“返回值为“+CStr(Func(b) 将获得的返回值通过 Label 显示出来 End Sub Private Function Func(a As Integer)As Integer 检测是否是偶数 If a Mod 2=0 Then Func=1如果是偶数则返回 1 Else Func= 0 如果不是则返回 0 End If End Function 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm。在
16、窗体 Form 上有一个名为 Listl 的列表框，列表框中有若干列表项，通过属性窗口设置列表框的 MultiSelect 属性为 1。还有两个命令按钮，名称分别是 Commandl 和 Command2，标题分别是“全选”和“保存”(如图 416 所示)。要求在程序运行时，单击“全选”按钮则将 Listl 中的全部列表项选中，然后单击“保存”按钮，将 Listl 中的全部列表项写入文本文件 out5txt 中，并将 out5txt 保存在考生文件夹下。 （分数：2.00）_正确答案：(正确答案：向列表框中添加项目可以用 Addltem 方法，也可以在属性窗口中进行，本题是在属性窗口实现的。列
17、表框的 Text 属性勾最后一次选中的表项的文本，Listlndex 属性是已被选中的表项的位置。如果没有选中任何项，Listlndex 的值将设置为一。双击 Commandl 命令按钮进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim i As Integer For i=0 To ListlListCount-1 Listl Selected(i) =True Next i End Sub Private Sub Command2_Click() Dim i As Integer Open AppPath&“out5txt“For Output As l For i=0 To ListlListCount-1 ListlListlndex=i Print#1，Listl Text ， ListlSelected(i)=False Next i Close#1 End Sub 单击 )解析：
