1、VB机试模拟试卷 75及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上画一个标签，名称为 Labell，标签上显示 “密码 ”，在标签的右边画一个文本框，名称为 Textl，其宽和高分别为 1 600和 350，设置适当的属性使得在输入密码时，文本框中显示 “*”字符，另外再把窗体的标题设置为 “输入密码 ”，以上这些设置都只能在属性窗口中进行设置，运行时的窗体如图 251所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为 sjl frm。 (2)在名称为 Forml的窗体上画一个图片框，名称为 Picl。请编写适当的事件过程
2、，使得在运行时，每单击窗体一次就在窗体中输出 “窗体 ”一次，每单击图片框一次，就在图片框中输出 “图片框 ”一次，如图 252所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹中有工程文件 sj3 vbp及其窗体文件 sj3 frm，该程序是不完整的。在窗体上有两个单选按钮，名称分别为 Opl和 Op2，标题分别为 “斜体 ”和 “黑体 ”，一个文本框，名称为 Textl，字体为宋体，字号为四号字，还有一个命令按钮，名称为 Command
3、l，标题为 “切换 ”。要求程序运行后，在文本框中输入 “测试结果 ”，并选择一个单选按钮，单击 “切换 ”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，程序运行时的窗体界面如图 323所示。 注意：请在有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工程文件 sj4 vbp，窗 体上有一个名为 Textl的文本框和一个名为 Commandl的命令按钮，标题是 “计算 ”。程序运行后，单击 “计算 ”命令按钮，通过对话框输入整数12，放入整型变量 a中，然后计算 l+
4、2+3+a ， (提示：运算结果应放入 Long型变量中 )，如图 324所示。在文本框中显示结果，并把结果存入文件 out4 txt中。在考生文件夹中有一个标准模块 mode4 bas，该模块中提供了保存文件的过程 WriteData，考生可以直接调用。注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能 修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。在名称为 Forml的窗体上有一 Label控件和两
5、个命令按钮，数据文件 in5 dat存放了一些成绩。按 “开始 ”按钮后，从考生文件夹下的 in5 dat中读出数据并求出它们的总分和平均分，将结果写入考生文件夹下的 out5 dat文件中；执行完毕， “开始 ”按钮变成 “完成 ”，且无效 (变灰 )。如图 105所示。注意：请在 有 “?”的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。 VB机试模拟试卷 75答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)在设置属性时标签的名称由 Name属
6、性设置，内容由 Caption属性设置。窗体的标题由窗体的 Caption属性设置。要使文本框中输入的字符以 “*”号显示，可以将 PasswordChar属性设置为 “*”。 根据题意，新建 “标准 EXE”工程，将一个 标签和一个文本框控件添加上窗体中，标签的名称为 Labell、 Caption属性为 “密码 ”，文本框的名称为 Textl、 Text属性为空， PasswordChar属性为 “*”、Height属性为 350、 width属性为 1 600， Forml的 Caption属性为 “输入密码 ”，设置完成后，单击 按钮运行程序，并按要求保存。 (2)单击窗体时触发 Fo
7、rm_Click事件，单击图片框时触发 Picl_Click事件。在对象中打印信息使用 Print方法，其语法格式为：对象 Print。省略对象时指在窗体上打印。 根据题意 ，新建 “标准EXE”工程，将一个图片控件添加到窗体中，其名称为 Picl，双击 Picl进入代码窗口，编写如下代码： Private Sub Form_Click() Print“窗体 “ 单击窗体 End Sub Private Sub Pic1_Click() Picl Print“图片框 “ 单击图片框 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题主要
8、考查控件基本属性的设置。根据题意，将两个单选按钮控件、一个文本框控件和一个命令按钮添加到窗体中，两个单选按钮控件的名称分别设为 Opl和 Op2， Opl的 Value设为 True、 Op2的 Value设为 False， Caption属性分别为 “斜体 ”和 “黑体 ”；文本框控件的名称设为 Textl、 Text属性为 “测试结果 ”， Font属性设为 “四号宋体 ”；命令按钮的名称设为 Commandl、 Caption属性为“切换 ”。双击 Commandl，进入代码编写窗口，编写以下代码： Public Sub Form load() Textl FontBold=False
9、Textl FontItalic=True End Sub Private Sub Commandl_Click() If 0D1 Value=True Then Opl Value=False Op2 Value=True Textl FontBold=True Textl Fonthalic=False Else Op2 Value=False Opl Value=True Textl Fonthalic=True Textl FontBold=False End If End Sub 单击按钮运行程序，并按要求保存。 (2)本题主要考查循环语句的应用。程序在累加计算过程中使用了 for循
10、环，最后调用所给模块中的过程将结果进行保存。根据题意，将一个名为 Textl的文本框和一个名为 Commandl的命令按钮添加到窗体中，命令按钮的 Caption属性为 “计算 ”，将标准模块 mode4 bas文件添加到工程中。设置完成后，双击 Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl Click() Dim a As Integer Dim total As Long Dim i As Integer a=Val(InputBox(”请输人数值 ”) total=0 For i=1 To a total=total+i Next i Tex
11、tl Text=total writeData(total) End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 命令按钮的标题由 Caption属性来设置，单击命令按钮触发 Click事件；执行完毕。 “开始 ”按钮变成 “完成 ”，且无效 (变灰 )； Open“in5 dat”For Input As#1以只读方式打开文件，读出数据；程序中用到的 Input读文件的格式为：Input#文件号，变量列表，在将数据写入文件时，要使用 Write#语句而不是使用Print#语句，因为 Write#语句能够将各个数据项正确地区分开。 根据题意，将一个
12、标签和两个命令按钮添加到窗体中，标签的 Caption属性为 “从考生文件夹下的in5 dat中读出数据并求出它们的总分和平均分，将结果写入考生文件夹下的out5 dat文件中 ”，命令按钮的名称分别为 Commandl和 Command2、 Caption属性分别为 “开始 ”和 “关闭 ”。双击 Commandl进入代码编写窗口，利用 EOF来判断是否读完数据，利用计数记录读取数据的个数，补充后的具体代码如下： Private Sub Commandl_Click()开始命令 Dim total AS Long Dim temp AS Integer Dim str As String D
13、im num As Integer tota1=0 num=0 Open App Path&“ in5 dat“For Input As#1 打 开文件进行渎取 While EOF(1)=False 如果没读到文件尾继续读取 Input#1 str temp=Val(str) 将读到的字符串转换成数值 total=total+temp进行累加 num=num+1 计数加 1 Wend Close#1 Open App Path&“ out5 dat”For Output As#2打开文件，进行写入 Write#2， “总和是 “ Write#2， total写入总和 Write#2， “平均值是 “ Write#2， total num写入平均值 Commandl Enabled=False计算完成后Commandl不可用 Commandl Caption=“完成 “ Commandl的名称变为完成 End Sub Private Sub Command2_Click() 关闭命令 Unload Me End Sub单击 按钮运行程序，并按要求保存。
