ImageVerifierCode 换一换
格式:DOC , 页数:6 ,大小:125.50KB ,
资源ID:493763      下载积分:2000 积分
快捷下载
登录下载
邮箱/手机:
温馨提示:
如需开发票,请勿充值!快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
如填写123,账号就是123,密码也是123。
特别说明:
请自助下载,系统不会自动发送文件的哦; 如果您已付费,想二次下载,请登录后访问:我的下载记录
支付方式: 支付宝扫码支付 微信扫码支付   
注意:如需开发票,请勿充值!
验证码:   换一换

加入VIP,免费下载
 

温馨提示:由于个人手机设置不同,如果发现不能下载,请复制以下地址【http://www.mydoc123.com/d-493763.html】到电脑端继续下载(重复下载不扣费)。

已注册用户请登录:
账号:
密码:
验证码:   换一换
  忘记密码?
三方登录: 微信登录  

下载须知

1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。
2: 试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。
3: 文件的所有权益归上传用户所有。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 本站仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

版权提示 | 免责声明

本文([计算机类试卷]VB机试模拟试卷160及答案与解析.doc)为本站会员(dealItalian200)主动上传,麦多课文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知麦多课文库(发送邮件至master@mydoc123.com或直接QQ联系客服),我们立即给予删除!

[计算机类试卷]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的值。

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1