[计算机类试卷]VB机试模拟试卷160及答案与解析.doc

1、VB机试模拟试卷 160及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个文本框，名称分别为 Tl、 T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在 Tl中输入的任何字符，立即显示在 T2中 (如图 1-176所示 )。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个文本框，名称为 Textl；再画一个命令按钮，名称为Cl，标题为 “移动

2、”(如图 l-177所示 )。请编写适当的事件过程，使得在运行时，单击 “移动 ”按钮，则文本框水平移动到窗体的最左端。程序中不得使用任何变量。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in3 dat文件中的 100个正整数读入数组 a中。 单击 “计算 ”按钮，则找出这 100个正整 数中的所有完全平方数 (一个整数若是另一个整数的平方，那么它就完全平方数。例如， 36=62，所以 36就是一个完

3、全平方数 )，并计算这些完全平方数的平均值，最后将计算所得平均值截尾取整后显示在文本框 Textl中。在给出的窗体文件中已经有了全部控件 (如图 l-233所示 )，但程序不完整，要求完善程序使其实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩，最后把修改的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件sjt4 vbp，其窗体上有两个命令按钮和一个计时器。两个命令按钮的初始标题分别是 “演示 ”和 “退出 ”；计时器 Timerl的初始状态为不可用。请画一个名称为 Labell，且能根据显

4、示内容自动调整大小的标签，其标题为 “VisualBasic程序设计 ”，显示格式为黑体小四号字。如图 1-234所示。程序功能如下： 单击 “演示 ”按钮时，则该按钮的标题自动变换为 “暂停 ”，且标签在窗体上从左向右循环滚动，当完全滚动出窗体右侧时，从窗体左侧重新进入； 单击 “暂停 ”按钮时，则该按钮的标题自动变换为 “演示 ”，并暂停标签的滚动。 单击 “退出 ”按钮时，则结束程序运行。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有

5、一个工程文件 sjt5 vbp，窗体上有两个标题分别是 “读数据 ”和“统计 ”的命令按钮。请画两个标签，名称分别为 Labell和 Label2，标题分别为 “出现次数最多的字母是 ”和 “它出现的次数为 ”；再画两个名称分别为 Textl和 Text2、初始值为空的文本框，如图 1-220所示。 程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中 (此过程已给出 )； 单击 “统计 ”按钮，则自动统计 in5 dat文件中所含各字母 (不区分大小写 )出现的次数，并将出现次数最多的字母显示在 Textl文本框内，它所出现的次数显示在 Text2

6、文本框内。 “读数据 ”按钮的 Click事件过程已经给出，请为 “统计 ”按钮编写适当的事件过程以实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最 后。程序按原文件名存盘。 VB机试模拟试卷 160答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程。 步骤2：在窗体 Forml中加入两个文本框，并分别设置它们的相关属性，属性及值如表2-99所示。 步骤 3：双击 Tl文本框，打开代码编辑窗口，在 T1的 Change事

7、件过程中输入如下代码： 参考代码： Private Sub T1_Change() T2 Text=T1 Text End Sub 步骤 4：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1新建一个 “标准 EXE”工程，如表2-100在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的 Click事件过程。 参考代码： Private Sub C1_Cl ick() Textl Left=0 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 要实现程序运行时，在 T1中输入一个字符，就能在 T2中显示的功能，可在

8、 T1的 Change事件过程中，加入让 T2显示内容始终与 Tl保持一致的语句。 第 2小题 要使文本框水平移动到窗体最左端需将其 Left属性值设置为 0。需在命令按钮的单击事件过程中，设置文本框的 Left属性值设置为 0。 二、简单应用题（ 40分） 2 【正确答案】 第 l小题 【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件sjt3 vbp，在代码编辑窗口的指定位置输入代码： 参考代码： PriVate Sub Command2_Click() 考生编写 Dim sum As Integer， Aver As Single Dim n As Integez For i=1 T

9、o 100 If Fix(Sqr(a(i)=Sqr(a(i)Then n=n+1 sum=sum+a(i) End If Next i Aver=sum n Textl。 Text=Fix(Aver) End Sub 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按键键运行程序，单击 “读数据 ”按钮，然后单击 “计算 ”按钮，最后通过窗体右上角的关闭按钮结束程序。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，如表 2-137画出控件并设置控件的相关属性。步骤 2：打开代码编辑窗口，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确

10、的内容。 参考代码： If command1 Caption=“演示 “ Then Timerl Enabled=True Timerl Enabled=False If Labell LeftForml Width Then Label1 Left=Labell Left+100 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 l小题 Sq(N)求平方根函数，用于返回 N的算术平方根。 完全平方数的判断其实比较简单，只需要求取 a(i)的平方根，然后判断这个平方根是不是整数，一般使用将平方根取整后判断是否等于平方根即可。 求完全平方数的平均值，只需要在循环中每次找到一 个完全平

11、方数就将其累加到累加和中，同时令计数器加 l，循环结束后用累加和除以个数即得到平均值。 第 2小题 在 “演示 ”按钮的单击事件中，首先判断当前本按钮的标题值，若其为 “演示 ”，则启用计时器，并将本按钮的标题设置为 “暂停 ”；否则停用计时器，并将标题设置为 “演示 ”。 在计时器的 Timer事件中实现标签的向右滚动，若标签的左边界移出了窗体(Label1 LeftFonnl Width)，则令标签回到左边界以外 (Labell Left=-Labell Width)；否则令其左边界属性加上 100实现向右滚动。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 1：打开考

12、生文件夹下的本题工程文件sjt5 vbp，如表 2-128在窗体 Forml中画出控件，并分别设置它们的相关属性。步骤 2：在代码编辑窗口的指定位置，编写 “统计 ”按钮的单击事件过程。 参考代码： Private Sub Command2_Click() 考生编写 Dim a(26)As Integer n=Len(s) For i=1 To n c=UCase(Mid(s， i， 1) If c=“A“ And cMax Then Max=a(i) t=Chr(Asc(“A“)+i-1) End If Next i Textl Text=t Text2 Text=Max End Sub 步

13、骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，先单击 “读数据 ”按钮，接着单击 “统计 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 【试题解析】 Input函数用于读取以 Input或 Binary方式打开的文件中的字符。其语法格式为： Inpuc(number,#filenumber) 其中， number表示指定要返回的字符个数。 filenumber为打开文件的文件号。与 Input#语句不同。 Input函数返回它所读出的所有字符，包括逗号、回车符、空白列、换行符、引号和前导空格等。 LOF函数可返回一个用 Open语句打开的文件的大小，该大小以字节为单位，返

14、回值为 Long数据类型。 ,Asc()函数返回字符的 ASCII码值，该值可以进行数学运算。 Len()是求字符串长度函数。 Chr()返回 ASCII码对应的字符，可以说 Asc()函数与 Chr()函数是一对相反的函数。 Mid(字符串，起始位置 ， 个数】 )函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。 程序设计思路：通过 For循环用 Mid函数逐一取出字符串 s中的每个字符，并将其转换成大写后赋值给字符变量 (如 c)，若该字符介于 A Z之间，则该字母的记录次数增 l(用数组元素 Asc(c) Asc(”A”)+1)记录该字母出现次数，表达式 Asc(c)-Asc(“A”)+l为该字母在字母表中的序号 )。 通过 For循环，用字母表中第一个字母的出现次数 (Max=aq1)依次与字母表中其他字母 (序号为 226)的出现次数比较，将 其中的较大值存入一个变量 (如 Max，初值为 a(1)，并用另一个变量 (如 t，初值为 “A”)记录下该字母。比较结束，在文本框 Textl中显示变量 t的值，在文本框 Text2中变量 max的值。