1、VB 机试-试卷 4 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.(1)在 Forml 的窗体上绘制一个命令按钮，其名称为 Commandl、标题为“隐藏”；再画一个文本框，其名称为 Textl、内容为“模拟考试”。编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则隐藏文本框，如图 671 所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjlfrm，工程文件名为 sjlvbp。 (2)在窗体 Forml 中绘制一个水平滚动条与一
2、个标签，标签的名称为 Labell，内容为空；水平滚动条的最大值为 900，最小值为300，名称为 HScrolll。要求编写适当的事件过程，只有当移动滚动条中的滚动块时，文本框才接收HScroll1 的当前值，如图 672 所示。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm，该程序是不完整的。在名称为 Forml的窗体上有一个标题为“求 n 以内(包括 n)所有奇数的和”的 Label 控件、一个 Text 控件和 4 个命令按钮。该程序的主要功能是求从 1
3、到用户输入的任意自然数 n 的奇数的累加和。本题要求刚启动工程时，“计算显示”和“清空”按钮均为灰色，可以在输入框内输入任意自然数(n 值太大时，运算时间将很长，建议不超过 9 位)。在输入数的同时“计算显示”变为可用；当输入数后，“计算显示”变为禁用；当输入为非数值时，累加结果为 o。单击“计算显示”可以在 Textl 中显示累加和，同时“计算显示”变灰，“清空”变为可用。单击“清空”按钮，输入框和显示框均被清空。如图 193 所示。 注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹
4、下有工程文件 sj4vbp 及窗体文件 sj4frm，该程序与控件结构是不完整的。本题描述如下：在窗体中有一个文本框控件，名称为 Textl；两个命令按钮，名称分别为 Commandl 和 Command2、标题分别为“读取文本”、“统计字数”；一个名称为 Labell 的标签控件。要求程序运行后，单击 Commandl 将考生文件夹下的 sjintxt 的内容显示到 Textl 中；单击“统计字数”按钮统计 Textl 中有多少个字符，将结果显示在 Labell 中。 程序运行时的窗体界面如图194 所示。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（
5、分数：2.00）_6.在名称为 Forml 的窗体画两个 Label 控件，名称分别为 Labell 和 Label2，其中 Labell 中显示“总人数”，Label2 中显示“平均分”，两个名称分别为 Textl 和 Text2 的文本框，再画两个命令按钮，名称分别为 Commandl 与 Command2，标题分别为“读取数据”与“计算平均分”，数据文件 in5txt 存放成绩。要求程序运行后：单击“读取数据按钮后，从考生文件夹下的 in5txt 中读出数据，并在标签Textl 中显示人数；单击“计算平均分”则在 Text2 中显示平均分并将结果写入考生文件夹下 out5txt文件中；执
6、行完毕，“读取数据”按钮变成“读取完成”，且无效(变灰)，如图 215 所示。 （分数：2.00）_VB 机试-试卷 4 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.(1)在 Forml 的窗体上绘制一个命令按钮，其名称为 Commandl、标题为“隐藏”；再画一个文本框，其名称为 Textl、内容为“模拟考试”。编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则隐藏文本框，如图 671 所示。 注意：保存时必须存放在考生文件夹下，窗体
7、文件名为 sjlfrm，工程文件名为 sjlvbp。 (2)在窗体 Forml 中绘制一个水平滚动条与一个标签，标签的名称为 Labell，内容为空；水平滚动条的最大值为 900，最小值为300，名称为 HScrolll。要求编写适当的事件过程，只有当移动滚动条中的滚动块时，文本框才接收HScroll1 的当前值，如图 672 所示。 （分数：2.00）_正确答案：(正确答案：(1)本题考查控件画法、文本框和命令按钮的属性设置、窗体和命令按钮的事件。 文本框是否可见可通过其 Visible 属性设置，值为 True 表示显示，值为 False 表示不显示。文本框的Text 属性用于设置或返回其
8、显示的文本。 根据题意，新建“标准 EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为 Textl、Text 属性：为“模拟考试”，命令按钮的名称为Commandl、Caption 属性为“隐藏”。双击 Commandl 进入代码窗口，编写如下代码： Private Sub Form_Load() TextlVisible_False End Sub Private Sub Commandl_Click() TextlVisible=False Textl 不可见 End Sub Private Sub Form_DblClick() TextlVisible=TrueT
9、extl 可见 End Sub 单击按钮运行程序，并按要求保存。 (2)滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其 Value 属性的值。滚动条的 Max 属性、Min 属性限定了滚动条所能表示的最大值和最小值，即 Value 属性值的取值范围。与滚动条有关的事件主要有 Change 事件和 Scroll 事件，在改变滚动框(即滑块)位置后触发 Change 事件；在拖动滚动框(即滑块)过程中触发 Scroll 事件。 根据题意，新建“标准EXE”工程，将一个标签和一个水平滚动条控件添加到窗体中，标签的名称为 Labell、Caption 属性为空，水平滚动条的名称为
10、HScrolll、Min 属性为 300、Max 属性为 900。双击 Commandl 进入代码窗口，编写如下代码： Private Sub HScrolll_Change() LabellCaption：HScrolllValue将 HScrolll 的值显示在 Labell 中 End Sub 单击 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有工程文件 sj3vbp 及窗体文件 sj3frm，该程序是不完整的。在名称为 Forml的窗体上有一个标题为“求 n 以内(包括 n)所有奇数的和”的 Label 控件、
11、一个 Text 控件和 4 个命令按钮。该程序的主要功能是求从 1 到用户输入的任意自然数 n 的奇数的累加和。本题要求刚启动工程时，“计算显示”和“清空”按钮均为灰色，可以在输入框内输入任意自然数(n 值太大时，运算时间将很长，建议不超过 9 位)。在输入数的同时“计算显示”变为可用；当输入数后，“计算显示”变为禁用；当输入为非数值时，累加结果为 o。单击“计算显示”可以在 Textl 中显示累加和，同时“计算显示”变灰，“清空”变为可用。单击“清空”按钮，输入框和显示框均被清空。如图 193 所示。 注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“”号)，但
12、不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4vbp 及窗体文件 sj4frm，该程序与控件结构是不完整的。本题描述如下：在窗体中有一个文本框控件，名称为 Textl；两个命令按钮，名称分别为 Commandl 和 Command2、标题分别为“读取文本”、“统计字数”；一个名称为 Labell 的标签控件。要求程序运行后，单击 Commandl 将考生文件夹下的 sjintxt 的内容显示到 Textl 中；单击“统计字数”按钮统计 Textl 中有多少个字符，将结果显示在 Labell 中。 程序运行时的窗体界面如图194 所示。 （分数：2.00
13、）_正确答案：(正确答案：(1)命令按钮的 Enabled 属性用于设置其是否有效，值为 True 表示有效，值为False 表示无效；判断一个数是否为奇数可以用 Mod 运算符来实现。如对于一个数 n，若 n Mod 2=0。则此数不是奇数，否则就是奇数。 根据题意，4 个命令按钮、一个文本框控件和一个标签，命令按钮的名称分别为 Commandl、Command2、Command3 和 Command4，Caption 属性分别为“输入 n”、“计算显示”、“清空”和“关闭”，文本框的名称为 Textl，标签的 Caption 属性为“求 n 以内(包括 n)所有奇数的和”。双击 Comma
14、ndl 进入代码窗口，编写如下代码： Dim n As Integer Dim total As Long Private Sub Commandl_Click() n=Val(InputBox(“请输入 n：“) 在输入对话框中输入 n Command2 Enabled =True “计算显示“可用 End Sub Private Sub Command2_Click() Dim i As Integer Dim tmp As Integer total=0 If n Mod 2=0 Then判断是否为奇数 tmp=n-1如果是偶数则减 1 Else tmp=n如果是奇数则是其本身 End
15、If For i=1 To n Step 2 步长为 2 total=total+i 进行求和 Next i Textl Text =total在 Textl 中显示结果 Command3 Enabled =True “清空“可用 Command2 Enabled =False“计算显示“不可用 End Sub Private Sub Command3_Click() Textl Text =“ 清空 Textl 中显示的数据 Command3 Enabled =False “清空“不可用 End Sub Private Sub Command4_Click() Unload Me关闭窗口 E
16、nd Sub Private Sub Form_Load() Command2 Enabled =False“计算显示“不可用 Command3 Enabled =False “清空“不可用 End Sub 单击 按钮运行程序，并按要求保存。 (2)打开顺序文件的基本格式为：Open FileName For Mode As#FileNumber。FileName 表示要打开的文件的路径；Mode 为打开模式，OutPut 用于输出、Append 用于追加写入、Input 用于读取；FileNumber 为打开文件时指定的句柄。Input#语句用于读取打开的顺序文件中一项(或多项)内容给一个变
17、量(或多个变量)，Line Input#语句常用于按行读取。Close#语句用于关闭打开的文件。 根据题意，将一个文本框控件、一个标签和两个命令按钮添加到窗体中，文本框的名称为 Textl，标签的名称为 Labell、Caption 属性为空，命令按钮的名称为分别为 Commandl 和 Command2、Caption 属性分别为“读取文本”和“统计字数”。双击Commandl 进入代码窗口，编写如下代码： Dim rel As String Private Sub Commandl_Click() Dim str As String str=“ TextlText=“初始化 Textl 的
18、文本 Open“AppPathg&sjintxt“For Input As#1 打开文件，进行读取 While EOF(1)=False 判断文件是否读取完 Input#1，str读取文本 Textl Text =Textl Text +str 在 Textl 中显示文本 Wend Close#1 End Sub Private Sub Command2_Click() Labell Caption =“字数为“+ CStr(Len(TextlText) 在 Label 中显示字数 End Sub 单击 )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_
19、解析：6.在名称为 Forml 的窗体画两个 Label 控件，名称分别为 Labell 和 Label2，其中 Labell 中显示“总人数”，Label2 中显示“平均分”，两个名称分别为 Textl 和 Text2 的文本框，再画两个命令按钮，名称分别为 Commandl 与 Command2，标题分别为“读取数据”与“计算平均分”，数据文件 in5txt 存放成绩。要求程序运行后：单击“读取数据按钮后，从考生文件夹下的 in5txt 中读出数据，并在标签Textl 中显示人数；单击“计算平均分”则在 Text2 中显示平均分并将结果写入考生文件夹下 out5txt文件中；执行完毕，“读
20、取数据”按钮变成“读取完成”，且无效(变灰)，如图 215 所示。 （分数：2.00）_正确答案：(正确答案：本题重点考查顺序文件的打开和读写操作，Do While 循环的用法。 打开顺序文件的基本格式为：Open FileName For Mode As#FileNumber。FileNarne 表示要打开的文件的路径；Mode为打开模式，OutPut 用于输出、Append 用于追加写入、Input 用于读取；FileNumber 为打开文件时指定的句柄。Input#语句用于读取顺序文件中一项(或多项)数据给一个变量(或多个变量)。EOF(文件号)用于判断是否已到文件结尾。 根据题意，将两
21、个标签、两个文本框控件和两个命令按钮添加到窗体中，标签的 Caption 属性分别为“总人数”和“平均分”，文本框的名称分别为 Textl 和 Text2、Text 属性都为空，命令按钮的名称分别为 Commandl 和 Command2、Captions 属性分别为“读取数据”和“计数平均分”。双击 Commandl 进入代码窗口，编写如下代码： Dim num As Integer Dim arr()As Integer Private Sub Commandl_Click() Dim a As Integer num=0 Open“AppPathl&in5txt“For! Input A
22、s #1 第一次读取个数以便分配数组 While EOF(1)=False 在读到文件尾前一直读取 Input#1，a num=num+1 计数 Wend Close#1 关闭文件 ReDim arr(num)As Integer重新分配数组控件 Open“AppPath&in5txt“For Input As#1 打开文件准备读取 For i=1 To hum Input#1，arr(i)利用 For 循环读取 Next i Close#1 Textl Text =hum在 Textl 中显示个数 Commandl Enabled =FalseCommandl 变为不可用 Commandl
23、Caption =“读取完成“ Commandl 的 Caption 属性变为“读取完成“ End Sub Privat e Sub Command2 Click() Dim total As Long total=0 Dim i As Integer For i=1 To num total=total+arr(i) 求数组中所有数的和 Next i total=total num 求平均值 Text2 Text =total在 Text2 中显示平均值 Open“AppPath&out5txt“For Output As#1 Print#1，Text2Text Close#1 End Sub 单击 )解析：
