1、VB机试模拟试卷 90及答案与解析 一、基本操作题（ 30分） 1 (1)在名称为 Forml的窗体上添加一个计时器控件，名称为 Timerl。请利用 “属性 ”窗口设置适当属性，使得在运行时可以每隔 3秒，调用 Timerl_Timer过程一次。另外，请把窗体的标题设置为 “计时器 ”。设计阶段的窗体界面如图 451所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjl vbp，窗体文件名为sjl frm。 (2)在名称为 Forml的窗体上画一个文本框，名称为 Textl，无初始内容。请编写 Textl的 Change事件过程，不能使用任何变量，使得运行时，在文本框中每输入一个字
2、符，就在窗体上输出一行文本框中的完整内容。程序运行界面如图 452所示。 注意：保存时必须存放在考生文件夹下，工程文件名为 sj2 vbp，窗体文件名为sj2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sj3 vbp，相应的窗体文件为 sj3 frm。其功能是产生 30个 0 800的随机整数，放入一个数组中，然后输出这 30个整数中小于 400的所有整数的个数。程序运行后，单击名称为 Commandl的命令按钮，其标题为 “输出小于 400的整数的个数 ”，即可求出这些整数的个数，并在名称为 Textl的文本框上显示出来，如图 344所示。这个程序不完整，
3、请把它补充完整，并能正确运行。 注意：去掉程序中的注释符 “”，把程序中的 “?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sj4 vbp，相应的窗体文件为 sj4 frm，在窗体上有一个命令按钮和两个文本框。程序运行后，单击命令按钮，即可计算出20 200范围内能被 5整除的所有整数的和及个数， 并分别在文本框中显示出来，如图 345所示。在窗体的代码窗口中，已给出了部分程序，其中计算能被 5整除的整数的和及个数的操作在通用过程 Func中实现，请编写该过程的代码。注意：请勿改动程序中的任何内容，只在
4、 Function Func()和 End Function之间填入你编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm，该程序是不完整的。在名称为 Forml的窗体上有 3个 Label控件和 2个命令按钮，数据文件 sjin dat，存放工人的编号、姓名和年龄。按 “开始 ”按钮后，能从考生文件夹下的 sjin dat中读出数据并把年龄小于平均年龄的工人的所有数据写入考生文件夹下的sjout dat文件中；执行完毕， “开始 ”按钮变成 “完成 ”，且无效，如图 375所示。 注意：请在有
5、“?”的地方填入正确内容，然后删除 “?”及所有注释符 (即 “”号 )，但不能修改其他部分。存盘时不得改变文件名和文件夹，相应的 dat文件也保存到考生文件夹下，否则没有成绩。 VB机试模拟试卷 90答案与解析 一、基本操作题（ 30分） 1 【正确 答案】 (1)计时器控件的 Interval属性，表示两个计时器事件之间的时间间隔，其值以 ms(0 001s)为单位，题目要求每 3秒产生一个计时器事件，那么Interval属性应该设置为 3 000。窗体的标题由窗体的 Caption属性设置。 根据题意，新建 “标准 EXE”工程，将一个计时控件添加到窗体中，然后将其 Interval属性
6、设置为 3000(单位是毫秒 )，单击 按钮运行程序，并按要求保存。 (2)根据题意，新建 “标准 EXE”工程，将一个文本框控件添加到窗体中，其名称为 Textl、 Text属性为空，双击 Textl进入代码编写窗口，当 Textl变换时调用 Textl_Change函数，代码如下： Private Sub Textl_Change() Forml Print Textl Text End Sub 单击 按钮运行程序，并按要求保存。 二、简单应用题（ 40分） 2 【正确答案】 (1)本题要产生随机整数，需要使用 Rnd函数。 Rnd函数返回小于1，但大于或等于 0的值，其格式为： Rnd(
7、number)。其中 number参数是可选的，是 Single或任何有效的数 值表达式。 number的值决定了 Rnd函数生成随机数的方式。要生成某个范围内的随机整数，可使用公式： Int(upperbound-lowerbound+1)*Rnd+lowerbound)，其中 upperbound是随机数范围的上限，而lowerbound则是随机数范围的下限。补充后的代码如下： Private Sub Commandl_Click() Dim a(30)As Integer声明一个数组 Dim num As Integer num=0 For i=1 To 30 a(i)=Rnd()*(8
8、00-0) 将 0 800的随机数存人数组 If a(i) 按钮运行程序，并按要求保存。 (2)要判断一个数能不能被 5整除，使用求余运算符 Mod，如果余数不为 0，则表示该数不能被整除。程序提供的代码如下： Dim num As Integer Private Sub Commandl_Click() Textl Text=Func 调用 Func函数 Text2 Text=num全局变量 End Sub 补充后的 Func函数参考代码如下： Function Func()As Long返回Long型 数值 Dim i As Integer Func=0 num=0 For i=20 To
9、 200 If i Mod 5=0 Then num=hum+1 如果能被 5整除，则计数加 l Func=Func+i算人总和中 End If Next i End Function 单击 按钮运行程序，并按要求保存。 三、综合应用题（ 30分） 3 【正确答案】 本题主要考查定义结构体变量，其格式如下： Private type结构体名 参数名 as参数类型 End type 程序中在同一个过程打开两个文件，因此要用 两个文件号，一个用来读入 (文件号 #1)，一个用来输出 (文件号 #2)。利用 EOF来判断是否读取完，先对文件进行一次读取，计算出平均值，然后再根据条件进行边读取边写入的
10、操作，补充后的具体代码如下： Private Type Person声明结构体 num As String*12 Nam As String*12 Yea As Long End Type Private Sub Commandl_Click() Dim per As Person Dim arg As Long Dim num As Integer arg=0算平均值 num=0 计数 Open“App Path& sjin dat“For Input As#1 While EOF(1)=False 当没有读取完则继续读取 Input#1， per num Input#l， per Nam Input#l， per Yea arg=arg+per Yea累加年龄 num=num+1累加计数 Wend Close#l arg=arg num Open“App Pathg& sjin dat“For Input As#1 Open“App Pathg& sjout dat“For Output As#2打开输出文件 While EOF(1)=False Input#1， per num Input#1，per Nam Input#1， per Yea If per Yea 按钮运行程序，并按要求保存。
