1、VB机试模拟试卷 95及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Form1的窗体上建立一个名称为 Commandl、标题为 “显示 ”的命令按钮，一个名称为 Textl的文本框，运行界面如图 651所示。要求程序运行后，在文本框中输入几个字符，单击 “显示 ”按钮，则在窗体上显示文本框中的文字。注意：在程序中不能使用任何变量。保存时必须存放在考生文件夹下，窗体文件名为 sjl frm，工程文件名为 sjl vbp。 (2)在名称为 Forml的窗体上建立两个名称分别为 Commandl和 Command2、 标题为 “按钮 A”和 “按钮B”的命令按钮，运行界面如图 652
2、所示。要求程序运行后，如果单击 “按钮 A”，则使两个按钮重合，如图 653所示。注意：在程序中不得使用任何变量 (必须通过属性设置来移动控件 )。保存时必须存放在考生文件夹下，窗体文件名为 sj2 frm，工程文件名为 sj2 Vbp 二、简单应用题（ 40分） 2 (1)在考生目录下有一个工程文件 sj3 vbp，窗体中有一个命令按钮，标题为 “向左移动 ”，名称为 Commandl；还有一个计时器，名称为 Timerl。并给出了两个事件过程，但并不完整。设置 计时器的属性，使其在初始状态不计时；设置计时器的属性，使其每隔 0 3秒调用 Timerl事件过程一次。使得在运行时单击 “向左移
3、动 ”按钮，则按钮每隔 0 3秒向左移动一次，当移出窗体时返回窗体的右端，如图155所示。 注意：去掉程序中的注释符 “”，把程序中的“?”改为正确的内容，不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹中有文件 sj4 vbp及其窗体文件 sj4 frm，窗体已经设计好，要求考生用 If语句编写程序，使得程序运行时，满足下列要求。窗体上有两个复选框，名称分别 为 Checkl和 Check2，标题分别为 “英语 ”和 “德语 ”；两个单选按钮，名称分别为 Optionl和 Option2，标题分别为 “我会 ”和 “我不会 ”；一个名称为 Labell的标签；
4、一个名称为 Commandl、标题为 “输出 ”的命令按钮。要求程序运行后，对复选框和单选按钮进行选择，然后单击按钮，可根据下表的规定在标签中显示相应的信息： 程序运行时的窗体界面如图 156所示。 注意：不得使用任何变量。存盘时不得改变文件夹和文件名。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。在名称为 Forml的窗体画两个 Label控件，名称分别为 Labell和 Label2，其中Labell中显示 “总人数 ”， Label2中显示 “总分 ”，添加两个名称分别为 Textl和 Text2的文本框，再画两个
5、命令按钮，名称分别为 Commandl与 Command2、标题分别为“读取数据 ”与 “计算总分 ”，数据文件 in5 txt存放成绩。 要求程序运行后：单击“读取数据 ”按钮后，从考生文件夹下的 in5 txt中读出数据，并在标签 Textl中显示人数；单击 “计算总分 ”便在 Text2中显 示总分并将结果写入考生文件夹下out5 txt文件中；执行完毕， “读取数据 ”按钮变成 “读取完成 ”，且无效 (变灰 )，如图 60一 5所示。 注意：请在有 “?”号的地方填入正确内容，然后删除 “?”及代码前的所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹，程
6、序编写完整后执行一次操作，将结果保存到考生文件夹下的 out5 txt文件中，否则没有成绩。 VB机试模拟试卷 95答案与解析 一、基本操作题（ 30分） 1 【正确答案】 (1)根据题意，新建 “标准 EXE”工程，将一个文本框控件和一 个命令按钮添加到窗体中，将文本框的名称设为 Textl，将命令按钮的名称设为Commandl、 Caption属性为 “显示 ”。双击 Commandl，进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() 单击按钮 “显示 ”调用的函数 Print Textl Text End Sub 单击 按钮运行程序，并按要求保存
7、。 (2)本题考查按钮的摆放位置的设置，涉及对象的 Left和 Top属性。命令按钮的标题通过 Caption属性来设置，单击命令按钮触发 Click事件。 Left表示控件 与所在窗体的左边之间的距离， Top表示控件与所在窗体的顶边之间的距离。让两个按钮位置重合只需将两个按钮的 Left和 Top设置相同即可。 根据题意，新建 “标准 EXE”工程，并排放人两个命令按钮，名称分别为 Commandl和 Command2、 Caption属性分别为 “按钮 A”和 “按钮 B”，要求按下按钮 A后，按钮 B的位置发生变化，双击 Commandl，进人代码编辑区，输入以下代码： Private
8、 Sub Commandl Click() 按钮 A的事件函数 Command2 Left=Commandl Left改变按钮 B的位置 Command2 Top=Commandl Top End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题考查计时器控件 (Timer)、命令按钮控件 (CommandButton)的常用属性和事件以及编写简单事件过程。 计时器只在设计时可见，计时器是否启用由其 Enabled属性设置，值为 True或 False。启用后间隔多长时间触 发一次其Timer事件由其 Interval属性设置， Interv
9、al属性的单位为毫秒，缺省值为 0，此时计时器也不启用。 控制命令按钮向左移动可通过修改其 Left属性值实现，当 Left属性值超过窗体的 Width属性值时表示按钮已移出窗体，此时 Left属性值设为 0即可将按钮返回窗体右端。移动按钮的事件过程均在计时器的 Timer中实现。 根据题意，将一个命令按钮和一个计时器控件添加到窗体中，命令按钮的名称为Command1、 Caption属性为 “向左移动 ”， Timer的名称为 Timer1。双击 Commandl进入 代码编写窗口， Timer1将隔一个周期调用 Timer函数一次，而按下 Commandl将启动 Timer1计时器，即设置
10、其周期，补充后的具体代码如下： Private Sub Command1_Click() Timer1 Interval=300设置 Timer的周期 End Sub Private Sub Timerl_Timer() Commandl Left=Commandl Left-100 Command向左移动 If Commandl Left 按钮运行程序并按要求保存。 (2)本题主要考查复 选框(CheckBox)和单选按钮 (OptionButton)，以及用 If语句编程的综合运用。 复选框组常用于提供多重选择， Value属性值决定每个复选框的选中状态： 0表示未选； 1表示选中； 2表
11、示不可用 (即灰色 )；单选按钮组常用于提供唯一选择， Value属性值决定每个单选按钮的选中状态： False表示未选， True表示选中。 根据题意，窗体已设计好，只要考生编写相应的代码以实现其功能。双击 Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() If Optionl Value=True Then选择Optionl If Checkl Value=1 And Check2 Value=l Then Labell Caption=“我既会“+Checkl Caption+“也会 “+Check2 Caption Elself C
12、heckl Value=l Then Labell Caption=“我只会 “+Checkl.Caption显示我只会英语 Elself Check2 Value=1 Then Labell Caption=“我只会 “+Check2 Caption显示我只会德语 End If Else 选择Option2 If Checkl Value=1 And Check2 Value=1 Then Labell Caption=“我既不会“+Checkl Caption+“也不会 “+Check2 Caption Elself Checkl Value=1 Then Labell Caption=“
13、我不会 “+Checkl Caption显示我不会英语 Elself Check2 Value=1 Then Labell Caption=“我不会 “+Check2 Caption显示我不会德语 End If End If End Sub 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查文件的读取和求和计算。打开顺序文件的基本格式为： Open FileName For Mode As#FileNumber。 FileName表示要打开的文件的路径； Mode为打开模式， OutPut用于输出、 Append用于追加写入、 Input用于读取；
14、FileNumber为打开文件时指定的句柄。 本题在读文件时，用 While循环 和Input#语句读入数据，以 EOF(文件号 )=False为循环条件 EOF(文件号 )用于判断是否读到文件结尾。补充后的代码如下： Dim hum As Integer Dim arr()As Integer Private Sub Commandl_Click() Dim a As Integer num=0 Open App Path&“in5 txt“For Input As # 1 第一次读取个数以便分配数组 While EOF(1)=False 在读到文件尾前一直读取 Input#1， a num
15、=num+1 计数 Wend Close#1 关闭文件 ReDim arr(num)As Integer重新分配数组控件 Open App Path&“ in5 txt“For Input As#1 打开文件准备读取 For i=1 To nkllTl Input#1， arr(i) 利用 For循环读取 Next i Close#1 Textl Text=nLlm 在 Textl中显示个数 Commandl Enabled=FalseCommandl变为不可用 Commandl Caption=“读取完成 “ Commandl的 Caption属性变为 “读取完成 ” End Sub Private Sub Command2_Click() Dim total As Long total=0 Dim i As Integer For i=1 To nUlTIfor循环 total=total+arr(i) 求数组中所有数的和 Next i Text2 Text=total在 Text2中显示总分 Open App PathS“ out5 txt“For Output As#1 Write#1， total Close#1 End Sub 单击 按钮运行程序，并按要求保存。
