[计算机类试卷]VB机试模拟试卷65及答案与解析.doc

《[计算机类试卷]VB机试模拟试卷65及答案与解析.doc》由会员分享，可在线阅读，更多相关《[计算机类试卷]VB机试模拟试卷65及答案与解析.doc（5页珍藏版）》请在麦多课文档分享上搜索。

1、VB机试模拟试卷 65及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上放置一个名称为 Textl的文本框。程序运行后，用户在文本框中输人的英文字母一律用小写显示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sj1 vbp。程序运行时的窗体界面如图 591所示。 (2)在窗体上画两个命令按钮，名称分别为 Commandl、 Command2，标题分别为 “显示 ”和 “隐藏 ”，请编写适当的事件过程，使得程序运行时，单击 “显示 ”按钮，则使 “隐藏 ”按钮显示，而 单击 “隐藏， ”按钮，则 “隐藏 按钮不显示 (即只有 “

2、显示 ”按钮可见 )。程序中不得使用任何变量。程序运行时的窗体界面如图 592和图 593所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为 sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm。该程序的窗体是不完整的，要求设计好窗体，并编写相应的程序，完成题目的要求。窗体上已有 3个命令按钮，名称分别为 Commandl、 Command2、 Command3，标题 分别为 “修改 ”、“保存 ”、 “添加 ”；另有一文本框，名称为 Text1。要求在窗体设计一组合框，名称为 Combol

3、，初始表项内容如下： “北京 010”、 “天津 022”、 “上海 021”。 运行程序时， Combol文本框中内容为 “中国直辖市 ”。单击 “添加 ”按钮，则可以把文本框中的内容添加到组合框中；当选中组合框的表项时，单击 “修改 ”按钮，文本框中显示选中的表项，同时 “保存 ”按钮变为可用。修改完毕，单击 “保存 ”，被选中项发生相应的变化，同时 “保存 ”按钮变为不可用，如图 693所示。注意：保存时必须存放在考生文件夹下，窗 体文件名为 sj3 frm，工程文件名为 sj3 vbp。 (2)在考生文件夹下有工程文件 sj4 vbp及窗体文件 sj4 frm，该程序是不完整的。窗体上

4、有一个标签，名称为 Labell。 Labell上为提示文字和返回值。在窗体上画一个命令按钮，命名为 Commandl，标题为 “判断 ”。程序运行后，如果单击命令按钮，则显示一个输入框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程Funcl，在 Funcl中判断所输入的整数是否为偶数。如果是偶数，过程 Funcl返回1，否则返回 O，并在标签上显示出来。程序 运行时的窗体界面如图 694所示。注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在考生文

5、件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm。在窗体 Form上有一个名为 Listl的列表框，列表框中有若干列表项，通过属性窗口设置列表框的MultiSelect属性为 1。还有两个命令按钮，名称分别是 Commandl和 Command2，标题分别是 “全选 ”和 “保存 ”(如图 416所示 )。要求在程序运行时，单击 “全选 ”按钮则将 Listl中的全部列表项选中，然后单击 “保存 ”按钮，将 Listl中的全部列表项写入文本文件 out5 txt中，并将 out5 txt保存在考生文件夹下。注意：该程序不完整，请在有问号 “?”的地方填入正确内容，然后删除问号 “?”

6、及所有注释符 “”，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的数据文件也保存到考生文件夹下，否则没有成绩。 VB机试模拟试卷 65答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题考查文本框控件 (TextBox)常用属性和事件及 LCase()函数的使用。 文本框的 Text属性用于设置或返回文本框中显示的文本； LCase()函数用于将字符串中大写字母转化为小写字母，原本小写字母和其他字符保持不变。 根据题意，新建 “标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Textl、Text属性为空，双击 Textl进人代码窗口，编写如下代码： Pri

7、vate Sub Textl_Change() Textl Text=LCase(Textl Text) 将大写字母转换成小写字母 Textl SetStart=Len(Textl Text) 将光标放在最右边 End Sub 单击 按钮运行程序，并按要求保存。 (2)本题考查命令按钮 (CommandButton)相关属性和事件。命令按钮 (CommandButton)常用来建立实现某种命令的按钮，通过命令按钮的 Caption属性设置其标题；命令按钮是否可见由其 Visible属性来设置，值为 True表示有效，值为 False表示无效。 根据题意，新建 “标准 EXE”工程，将两个命令按

8、钮添加到窗体中，其名称分别为 Commandl和 Command2、 Caption属性分别为 “显示 ”和“隐藏 ”。双击 Commandl进入代码编辑窗口，编写如下代码： Private Sub Commandl_Click() Command2 Visible=True End Sub Private Sub Command2_Click() Command2 Visible=False End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)根据题意，将一个 ComboBox控件、一个文本框控件和三个命令按钮添加到窗体中， ComboBo

9、x的名称为 Comb01，在其 11， ist属性中添加 “北京 010”、 “天津 022”和 “上海 021”，文本框的名称为 Textl、 Text属性为空，命令按钮的名称分别为 Commandl、 Command2和 Command3， Caption属性分别为 “修改 ”、 “保存 ”和 “添加 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Textl Text=Comb01 List(Comb01 ListIndex) 将选中项显示在 Textl中 Command2 Enabled=TrueCommand2可用 E

10、nd Sub Private Sub Command2_Click() Dim a As Integer a=Combo1 Listlndex记录 Combol选中的索引值 Comb01 RemoveItem(Comb01 ListIndex) 删除选中项 Comb01 Addhem(Textl Text)， a将经过修改的项存人 Comb01的原有位置 Comb01 Text=Comb01 List(a) 将修改后的项显示在 Comb01中 Command2 Enabled=False Command2不可用 End Sub Private Sub Command3_Click() Comb

11、o1 AddItem Textl Text向 Comb01中添加项 E； nd Sub Private Sub Form_Load() Command2 Enabled=False初始时 Command2不可用 End Sub 单击 按钮运行程序，并按要求保存。 (2)根据题意，将一个标签和一个命令按钮添加到窗 体中，标签的名称为 Labell，命令按钮的名称为 Commandl、 Caption属性为 “判断 ”。双击 Commandl，进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim b As Integer b=Val(InputBox(“请

12、输入整数： “) 通过对话框输入整数 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 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 向列表框中添加项目可以用 Addltem方法，也可以在属性窗口中进行，本题是在属性窗口实现的

13、。列表框的 Text属性勾最后一次选中的表项的文本， Listlndex属性是已被选中的表项的位置。如果没有选中任何项， Listlndex的值将设置为 一。双击 Commandl命令按钮进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim i As Integer For i=0 To Listl ListCount-1 Listl Selected(i)=True Next i End Sub Private Sub Command2_Click() Dim i As Integer Open App Path&“ out5 txt“For Output As l For i=0 To Listl ListCount-1 Listl Listlndex=i Print#1， Listl Text， Listl Selected(i)=False Next i Close#1 End Sub 单击 按钮运行程序，并按要求保存。