1、VB 机试-试卷 64 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在名称为 Forml 的窗体上画一个标签，名称为 Labell，标签上显示“密码”，在标签的右边画一个文本框，名称为 Textl，其宽和高分别为 1 600 和 350，设置适当的属性使得在输入密码时，文本框中显示“*”字符，另外再把窗体的标题设置为“输入密码”，以上这些设置都只能在属性窗口中进行设置，运行时的窗体如图 251 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。
2、(2)在名称为 Forml 的窗体上画一个图片框，名称为 Picl。请编写适当的事件过程，使得在运行时，每单击窗体一次就在窗体中输出“窗体”一次，每单击图片框一次，就在图片框中输出“图片框”一次，如图 252 所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。（分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹中有工程文件 sj3vbp 及其窗体文件 sj3frm，该程序是不完整的。在窗体上有两个单选按钮，名称分别为 Opl 和 Op2，标题分别为“斜体”和“黑体”，一个文本框，名称为 Textl，字体为宋体，字
3、号为四号字，还有一个命令按钮，名称为 Commandl，标题为“切换”。要求程序运行后，在文本框中输入“测试结果”，并选择一个单选按钮，单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，程序运行时的窗体界面如图 323 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工程文件 sj4vbp，窗体上有一个名为 Textl 的文本框和一个名为 Commandl 的命令按钮，标题是“计算”。程序运行后，单击“计算”命令按钮，通过对话框输入整数 12，放入整型
4、变量 a 中，然后计算 l+2+3+a，(提示：运算结果应放入 Long 型变量中)，如图 324所示。在文本框中显示结果，并把结果存入文件 out4txt 中。在考生文件夹中有一个标准模块mode4bas，该模块中提供了保存文件的过程 WriteData，考生可以直接调用。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的。在名称为 Forml 的窗体上有一 Label 控件和两个命令按钮，数据文件 in5dat 存放了一些成绩。按“开始”按钮后，从考生
5、文件夹下的 in5dat 中读出数据并求出它们的总分和平均分，将结果写入考生文件夹下的 out5dat 文件中；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。如图 105 所示。 （分数：2.00）_VB 机试-试卷 64 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在名称为 Forml 的窗体上画一个标签，名称为 Labell，标签上显示“密码”，在标签的右边画一个文本框，名称为 Textl，其宽和高分别为 1 600 和 350，设置适当的属性使得在输入密码时，文本框中显示“*”字
6、符，另外再把窗体的标题设置为“输入密码”，以上这些设置都只能在属性窗口中进行设置，运行时的窗体如图 251 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjlvbp，窗体文件名为 sjlfrm。 (2)在名称为 Forml 的窗体上画一个图片框，名称为 Picl。请编写适当的事件过程，使得在运行时，每单击窗体一次就在窗体中输出“窗体”一次，每单击图片框一次，就在图片框中输出“图片框”一次，如图 252 所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。（分数：2.00）_正确答案：(正确答案：(1)在设置属性时标签的名称由 Name 属性设置，内容由 Caption 属
7、性设置。窗体的标题由窗体的 Caption 属性设置。要使文本框中输入的字符以“*”号显示，可以将 PasswordChar 属性设置为“*”。 根据题意，新建“标准 EXE”工程，将一个标签和一个文本框控件添加上窗体中，标签的名称为 Labell、Caption 属性为“密码”，文本框的名称为 Textl、Text 属性为空，PasswordChar 属性为“*”、Height 属性为 350、width 属性为 1 600，Forml 的 Caption 属性为“输入密码”，设置完成后，单击 按钮运行程序，并按要求保存。 (2)单击窗体时触发 Form_Click 事件，单击图片框时触发P
8、icl_Click 事件。在对象中打印信息使用 Print 方法，其语法格式为：对象Print。省略对象时指在窗体上打印。 根据题意，新建“标准 EXE”工程，将一个图片控件添加到窗体中，其名称为 Picl，双击Picl 进入代码窗口，编写如下代码： Private Sub Form_Click() Print“窗体“ 单击窗体 End Sub Private Sub Pic1_Click() PiclPrint“图片框“ 单击图片框 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹中有工程文件 sj3
9、vbp 及其窗体文件 sj3frm，该程序是不完整的。在窗体上有两个单选按钮，名称分别为 Opl 和 Op2，标题分别为“斜体”和“黑体”，一个文本框，名称为 Textl，字体为宋体，字号为四号字，还有一个命令按钮，名称为 Commandl，标题为“切换”。要求程序运行后，在文本框中输入“测试结果”，并选择一个单选按钮，单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，程序运行时的窗体界面如图 323 所示。 注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有一个工
10、程文件 sj4vbp，窗体上有一个名为 Textl 的文本框和一个名为 Commandl 的命令按钮，标题是“计算”。程序运行后，单击“计算”命令按钮，通过对话框输入整数 12，放入整型变量 a 中，然后计算 l+2+3+a，(提示：运算结果应放入 Long 型变量中)，如图 324所示。在文本框中显示结果，并把结果存入文件 out4txt 中。在考生文件夹中有一个标准模块mode4bas，该模块中提供了保存文件的过程 WriteData，考生可以直接调用。 （分数：2.00）_正确答案：(正确答案：(1)本题主要考查控件基本属性的设置。根据题意，将两个单选按钮控件、一个文本框控件和一个命令按
11、钮添加到窗体中，两个单选按钮控件的名称分别设为 Opl 和 Op2，Opl 的 Value 设为 True、Op2 的 Value 设为 False，Caption 属性分别为“斜体”和“黑体”；文本框控件的名称设为Textl、Text 属性为“测试结果”，Font 属性设为“四号宋体”；命令按钮的名称设为Commandl、Caption 属性为“切换”。双击 Commandl，进入代码编写窗口，编写以下代码： Public Sub Form load() Textl FontBold =False Textl FontItalic =True End Sub Private Sub Comm
12、andl_Click() If 0D1Value=True Then OplValue=False Op2Value=True Textl FontBold =True Textl Fonthali c=False Else Op2Value=False OplValue=True Textl Fonthalic =True Textl FontBold =False End If End Sub 单击 按钮运行程序，并按要求保存。 (2)本题主要考查循环语句的应用。程序在累加计算过程中使用了 for 循环，最后调用所给模块中的过程将结果进行保存。根据题意，将一个名为 Textl 的文本框和一
13、个名为 Commandl 的命令按钮添加到窗体中，命令按钮的Caption 属性为“计算”，将标准模块 mode4bas 文件添加到工程中。设置完成后，双击 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 Textl Text =total writeData (total) End Sub 单
14、击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有工程文件 sj5vbp 及窗体文件 sj5frm，该程序是不完整的。在名称为 Forml 的窗体上有一 Label 控件和两个命令按钮，数据文件 in5dat 存放了一些成绩。按“开始”按钮后，从考生文件夹下的 in5dat 中读出数据并求出它们的总分和平均分，将结果写入考生文件夹下的 out5dat 文件中；执行完毕，“开始”按钮变成“完成”，且无效(变灰)。如图 105 所示。 （分数：2.00）_正确答案：(正确答案： 命令按钮的标题由 Caption 属性来设置，单击
15、命令按钮触发 Click 事件；执行完毕。“开始”按钮变成“完成”，且无效(变灰)；Open“in5dat”For Input As#1 以只读方式打开文件，读出数据；程序中用到的 Input 读文件的格式为：Input#文件号，变量列表，在将数据写入文件时，要使用 Write#语句而不是使用 Print#语句，因为 Write#语句能够将各个数据项正确地区分开。 根据题意，将一个标签和两个命令按钮添加到窗体中，标签的 Caption 属性为“从考生文件夹下的 in5dat 中读出数据并求出它们的总分和平均分，将结果写入考生文件夹下的 out5dat 文件中”，命令按钮的名称分别为 Comma
16、ndl 和 Command2、Caption 属性分别为“开始”和“关闭”。双击 Commandl 进入代码编写窗口，利用 EOF 来判断是否读完数据，利用计数记录读取数据的个数，补充后的具体代码如下： Private Sub Commandl_Click()开始命令 Dim total AS Long Dim temp AS Integer Dim str As String Dim num As Integer tota1=0 num=0 Open AppPath&“in5dat“For Input As#1 打开文件进行渎取 While EOF(1)=False 如果没读到文件尾继续读取
17、 Input#1str temp=Val(str) 将读到的字符串转换成数值 total=total+temp进行累加 num=num+1 计数加 1 Wend Close#1 Open AppPath&“out5dat”For Output As#2打开文件，进行写入 Write#2，“总和是“ Write#2，total写入总和 Write#2，“平均值是“ Write#2，totalnum写入平均值 Commandl Enabled =False计算完成后 Commandl 不可用 Commandl Caption =“完成“ Commandl 的名称变为完成 End Sub Private Sub Command2_Click() 关闭命令 Unload Me End Sub 单击 )解析：
