1、VB机试模拟试卷 51及答案与解析 一、基本操作题（ 30分） 1 (1)在 Forml的窗体上绘制一个命令按钮，其名称为 Commandl、标题为 “隐藏 ”；再画一个文本框，其名称为 Textl、内容为 “模拟考试 ”。编写适当的事件过程。程序运行后，在窗体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击命令按钮，则隐藏文本框，如图 671所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sjl vbp。 (2)在窗体 Forml中绘制一个水平滚动条与一个标签，标签的名称 为 Labell，内容为空；水平滚动条的最大值为 900，最小值为
2、 300，名称为 HScrolll。要求编写适当的事件过程，只有当移动滚动条中的滚动块时，文本框才接收 HScroll1的当前值，如图 672所示。 注意：保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为sj2 vbp。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm，该程序是不完整的。在名称为 Forml的窗体上有一个标题为 “求 n以内 (包括 n)所有奇数的和 ”的Label控件 、一个 Text控件和 4个命令按钮。该程序的主要功能是求从 1到用户输入的任意自然数 n的奇数的累加和。本题要求刚启动工程时，
3、 “计算显示 ”和 “清空 ”按钮均为灰色，可以在输入框内输入任意自然数 (n值太大时，运算时间将很长，建议不超过 9位 )。在输入数的同时 “计算显示 ”变为可用；当输入数后， “计算显示 ”变为禁用；当输入为非数值时，累加结果为 o。单击 “计算显示 ”可以在 Textl中显示累加和，同时 “计算显示 ”变灰， “清空 ”变为可用。单击 “清空 ”按钮，输入框和显示框均被清空。如图 193所示。 注意：请在有 “?”号的地方填入 正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4 vb
4、p及窗体文件sj4 frm，该程序与控件结构是不完整的。本题描述如下：在窗体中有一个文本框控件，名称为 Textl；两个命令按钮，名称分别为 Commandl和 Command2、标题分别为 “读取文本 ”、 “统计字数 ”；一个名称为 Labell的标签控件。要求程序运行后，单击 Commandl将考生文件夹下的 sjin txt的内容显示到 Textl中；单击 “统计字数 ”按 钮统计 Textl中有多少个字符，将结果显示在 Labell中。 程序运行时的窗体界面如图 194所示。注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，同时补充完整
5、需要的控件属性。存盘时不得改变文件名和文件夹。 三、综合应用题（ 30分） 3 在名称为 Forml的窗体画两个 Label控件，名称分别为 Labell和 Label2，其中Labell中显示 “总人数 ”， Label2中显示 “平均分 ”，两个名称分别为 Textl和 Text2的文本框，再画两个命令按钮，名称分别为 Commandl与 Command2，标题分别为“读取数据 ”与 “计算平均分 ”，数据文件 in5 txt存放成绩。要求程序运行后：单击“读取数据 按钮后，从考生文件夹下的 in5 txt中读出数据，并在标签 Textl中显示人数；单击 “计算平均分 ”则在 Text2中
6、显示平均分并将结果写入考生文件夹下out5 txt文件中；执行完毕， “读取数据 ”按钮变成 “读取完成 ”，且无效 (变灰 )，如图 215所示。 注意：在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的，请在有 “?”号的地方填入正确内 容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹，程序编写完整后执行一次操作，将结果保存到考生文件夹下的 out5 txt文件中，否则没有成绩。 VB机试模拟试卷 51答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)本题考查控件画法、文本框和命令按
7、钮的属性设置、窗体和命令按钮的事件。 文本框是否可见可通过其 Visible属性设置，值为 True表示显示，值为 False表示不显示。文本框的 Text属性用于设置或返回其显示的文本。 根据题意，新 建 “标准 EXE”工程，将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为 Textl、 Text属性：为 “模拟考试 ”，命令按钮的名称为 Commandl、Caption属性为 “隐藏 ”。双击 Commandl进入代码窗口，编写如下代码： Private Sub Form_Load() Textl Visible_False End Sub Private Sub Comman
8、dl_Click() Textl Visible=False Textl不可见 End Sub Private Sub Form_DblClick() Textl Visible=TrueTextl可见 End Sub 单击 按钮运行程序，并按要求保存。 (2)滚动条常用于取代数据的键盘输入，通过调整滚动条滑块的位置即可改变其 Value属性的值。滚动条的 Max属性、 Min属性限定了滚动条所能表示的最大值和最小值，即 Value属性值的取值范围。与滚动条有关的事件主要有 Change事件和 Scroll事件，在改变滚动框 (即滑块 )位置后触发 Change事件；在拖动滚动框 (即滑块 )
9、过程中触发 Scroll事件。 根据题意，新建 “标准 EXE”工程，将 一个标签和一个水平滚动条控件添加到窗体中，标签的名称为 Labell、 Caption属性为空，水平滚动条的名称为 HScrolll、 Min属性为 300、 Max属性为 900。双击 Commandl进入代码窗口，编写如下代码： Private Sub HScrolll_Change() Labell Caption：HScrolll Value将 HScrolll的值显示在 Labell中 End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)命令按钮的 Enabl
10、ed属性用于设置其是否有效，值为 True表示有效，值为 False表示无效；判断一个数是否为奇数可以用 Mod运算符来实现。如对于一个数 n，若 n Mod 2=0。则此数不是奇数，否则就是奇数。 根据题意， 4个命令按钮、一个文本框控件和一个标 签，命令按钮的名称分别为 Commandl、Command2、 Command3和 Command4， Caption属性分别为 “输入 n”、 “计算显示 ”、 “清空 ”和 “关闭 ”，文本框的名称为 Textl，标签的 Caption属性为 “求 n以内 (包括 n)所有奇数的和 ”。双击 Commandl进入代码窗口，编写如下代码： Dim
11、 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 If For i=1 To n Step 2
12、 步长为 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关闭窗口 End Sub Private Sub Form_Loa
13、d() Command2 Enabled=False“计算显示 “不可用 Command3 Enabled=False “清空 “不可用 End Sub 单击 按钮运行程序，并按要求保存。 (2)打开顺序文件的基本格式为： Open FileName For Mode As#FileNumber。 FileName表示要打开的文件的路径； Mode为打开模式， OutPut用于输出、 Append用于追加写入、 Input用于读取； FileNumber为打开文件时指定的句柄。 Input#语句用于读取打开的顺序文件中一项 (或多项 )内容给 一个变量 (或多个变量 )， Line Input
14、#语句常用于按行读取。 Close#语句用于关闭打开的文件。 根据题意，将一个文本框控件、一个标签和两个命令按钮添加到窗体中，文本框的名称为 Textl，标签的名称为 Labell、 Caption属性为空，命令按钮的名称为分别为Commandl和 Command2、 Caption属性分别为 “读取文本 ”和 “统计字数 ”。双击Commandl进入代码窗口，编写如下代码： Dim rel As String Private Sub Commandl_Click() Dim str As String str=“ Textl Text=“初始化 Textl的文本 Open“App Pathg
15、& sjin txt“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(Textl Text) 在 Label中显示字数 End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题重点考查顺序文件的打开和读写操作， Do Wh
16、ile循环的用法。 打开顺序文件的基本格式为： Open FileName For Mode As#FileNumber。FileNarne表示要打开的文件的路径； Mode为打开模式， OutPut用于输出、 Append用于追加写入、 Input用于读取； FileNumber为打开文件时指定的句柄。 Input#语句用于读取顺序文件中一项 (或多项 )数据给一个变量 (或多个变量 )。 EOF(文件号 )用于判断是否已到文件结尾。 根据题意，将两个标签、两个文本框控件和两个命令按钮添加到窗体中，标签的 Caption属性分别为 “总人数 ”和 “平均分 ”，文本框的名称分别为 Textl
17、和 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“App Pathl& in5 txt“For!Input As #1第一次读取个数以便分配数组 While EOF(1)=False在读到文件尾前一直读取 Input#1， a num=num+
18、1 计数 Wend Close#1 关闭文件 ReDim arr(num)As Integer重新分配数组控件 Open“App Path& in5 txt“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 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“App Path& out5 txt“For Output As#1 Print#1， Text2 Text Close#1 End Sub单击 按钮运行程序，并按要求保存。
