欢迎来到麦多课文档分享! | 帮助中心 海量文档,免费浏览,给你所需,享你所想!
麦多课文档分享
全部分类
  • 标准规范>
  • 教学课件>
  • 考试资料>
  • 办公文档>
  • 学术论文>
  • 行业资料>
  • 易语言源码>
  • ImageVerifierCode 换一换
    首页 麦多课文档分享 > 资源分类 > DOC文档下载
    分享到微信 分享到微博 分享到QQ空间

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

    • 资源ID:493852       资源大小:80KB        全文页数:4页
    • 资源格式: DOC        下载积分:2000积分
    快捷下载 游客一键下载
    账号登录下载
    微信登录下载
    二维码
    微信扫一扫登录
    下载资源需要2000积分(如需开发票,请勿充值!)
    邮箱/手机:
    温馨提示:
    如需开发票,请勿充值!快捷下载时,用户名和密码都是您填写的邮箱或者手机号,方便查询和重复下载(系统自动生成)。
    如需开发票,请勿充值!如填写123,账号就是123,密码也是123。
    支付方式: 支付宝扫码支付    微信扫码支付   
    验证码:   换一换

    加入VIP,交流精品资源
     
    账号:
    密码:
    验证码:   换一换
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

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

    1、VB机试模拟试卷 64及答案与解析 一、基本操作题( 30分) 1 (1)在名称为 Form1的窗体上画一个命令按钮,名称为 commandl,标题为 “缩小一半 ”。编写事件过程,程序运行后,如果单击 Commandl命令按钮,则使Comrnandl按钮的长度和宽度各缩小到原来的一半。要求不得使用任何变量。程序运行时的窗体界面如图 141所示。注意:保存时必须存放在考生文件夹下,窗体文件名为 sjl frm,工程文件名为sj1 vbp。 (2)在名称为 Form1的窗体上画一个命令按钮和一个水平滚动条,其名称分别为 Commandl和 HScrolll。命令按钮的标题为 “滚动条变长 ”。编

    2、写适当的事件过程,使得程序运行后,如果单击 Commandl命令按钮,则使 HScrolll水平滚动条的 Width属性减小 1000, Min属性为 0, LargeChange的属性为 100,SmallChange的属性为 20,且 Commandl不可用,移动滚动条,在窗体上显示滚动条的位置值。不得使用任何变量。程序运行时的窗体界面如图 142所示。 注意:保存时必须存放在考生文件夹下,窗体文件名为 sj2 frm,工程文件名为sj2 vbp。 二、 简单应用题( 40分) 2 (1)在考生文件夹下有工程文件 sj3 vbp及窗体文件 sj3 frm,该程序是不完整的。本程序只有一个窗

    3、体,当把鼠标光标移到窗体上时,每双击一次鼠标,就变换一种鼠标光标的形状,依次显示鼠标光标的 15种属性。程序运行后的窗体如图594所示。 注意:请在有 “?”的地方填入正确内容,然后删除 “?”及代码前的所有注释符 (即 “”号 ),但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件 sj4 vbp,窗体文件 sj frm,该程序是不完整的。在窗体上已经域出 一个图像框,名称为 Imagel;一个水平滚动条,名称为 HScroll1。要求考生不改动 Imagel的 Height与 width属性。当运行程序时,图像框中加载考生文件夹下的图片 test bmp。滚

    4、动水平滚动条中的滚动块时,图片会随着滚动条的滚动进度逐渐显露出来,如图 595所示。注意:请在有 “?”的地方填入正确内容,然后删除 “?”及代码前的所有注释符 (即 “”号 ),但不能修改其他部分。修改后的工程及窗体文件,均以原名保存在考生文件夹下。 三、综合应用题( 30分) 3 在考生文件夹下有工程文件 sj5 vbp及窗体文件 sj5 frm,该程序是不完整的,要求将程序补充完整,但不能修改其他部分。修改后的程序文件都保存,存盘时不得改变文件夹和文件名。 在窗体上有一个名为一 rextl的文本框,两个命令按钮,名称分别为 Commandl、 Command2、标题分别是 “读取 ”和

    5、“加密保存 ”,要求程序运行后,单击 “读取 ”按钮,将考生文件夹下文本文件 in5 txt中的文本信息读入文本框 Text1中;单击 “加密保存 ”按钮,将 Text1中的英文字母加密转换,将转换后的结果显示到 Text1中并保存到考生文件夹下的 out5 txt文 件中。转换方式为转换成该字母对应字母表中前一个位置的字母。例如,转换前的字母是 “b”,则转换后的是 “a”,转换前的是 “G”,转换后的是 “F”。程序运行时的窗体界面如图 695所示。 注意:文件必须存放在考生文件夹下,窗体文件名为 sj5 frm,工程文件名 sj5 vbp,加密的结果存入 out5 txt,否则没有成绩。

    6、 VB机试模拟试卷 64答案与解析 一、基本操作题( 30分) 1 【正确答案】 (1)根据题意,新建 “标准 EXE”工程,将一个 Command添加到窗体中,其名称为 Commandl、 Caption属性为 “缩小一半 ”。双击 Commandl进入代码窗口,编写如下代码: Private Sub Commandl_Click() Commandl Width=Commandl Width 2 宽度变为原来的一半 Commandl Height=Commandl Height 2长度变为原来的一半 End Sub 单击 按钮运行程序,并按要求保存。 (2)根据题意,新建 “标准 EXE”

    7、工程,将一个水平滚动条控件和一个命令按钮添加到窗体中,水平滚动条的名称为 HScrolll,命令按钮的名称为 Commandl、 Caption属性为 “滚动条变长 ”。双击 Command,进入代码窗口编写如下代码: Private Sub Commandl_Click() HScrolll Width=Forml HScrolll Width-1000HScroll的宽度变为窗体宽度减 1000 HScrolll LargeChange=100 HScrolll SmallChange=20 HScrolll Min=0 Command1 Enabled=FalseCommandl变为不可

    8、用 End Sub Private Sub HScrolll_Change() Forml Cls清空窗体显示 Print HScrolll Value显示滚动条位置值 End Sub 单击 按钮运行程序,并按要求保存。 二、简单应用题( 40分) 2 【正确答案】 (1)本题主要考查考生对鼠标的 MousePointer属性的掌握情况。 MousePointer属性用于设置鼠标经过某对 象时光标的形状类型,既可以在属性窗口设置,也可以通过代码设置。 IVLousePointer属性值可以是 0 15之间的任一整数,不同的值代表不同的形状。 MousePointer属性值通过代码设置的一般格式

    9、为:对象名 MousePointer=n(n为 0 15间的整数 )。 根据题意,将两个标签添加到窗体中,名称分别为 Labell和 Label2、 Caption属性分别为 “当前鼠标形状为: ”和“1”,并设置 MousePointer属性为 1。双击 Forml进入代码窗口,补充后的具体代码如下: Private Sub Form_DblClick() If Me MousePointer 按钮运行程序,并按要求保存。 (2)窗体加载时触发 Form_Load事件。滚动条的事件主要有 Scroll和Change事件。当在滚动条内拖动滑块时触发 Scroll事件 (单击滚动箭头或滚动条时不

    10、发生 Scroll事件 ),而改变滑块的位置后会触发 Change事件。 Scroll事件用于跟踪滚动条中的动态变化, Change事件则用来得到滚动条最后的值。加载图片可以在属性窗口的 Picture属性中设置,也可以在代码中通过 LoadPicture(“图像 文件路径 ”)图片加载函数加入图片。 根据题意,将一个水平滚动条控件和一个图像控件添加到窗体中,水平滚动条的名称为 HScrolll、 Min属性为 400、 Max属性为 2 295, Image的名称为 Imagel,并在其 Picture属性中加载考生文件夹下的“test bmp”图片。双击 HScrolll进入代码 窗口,编

    11、写如下代码: Private Sub Form_Load() Imagel Width=HScrolll Value初始化,显示大小为水平滚动条的当前值 End Sub Private Sub HScrolll_Change() Imagel Width=HScrolll Value图像显示的大小是由水平滚动条决定的 End Sub 单击 按钮运行程序,并按要求保存。 三、综合应用题( 30分) 3 【正确答案】 根据题意,将两个命令按钮和一个文本框控件添加到窗体中,命令按钮的名称分别为 Commandl和 Command2, Caption分别为 “读取 ”和 “加密保存 ”,文本框的名称为

    12、 Textl, MultiLine属性为 True、 Scrollbars属性为 2。设计完成后编写如下代码: Dim str As String Private Sub Commandl_Click() str=“ Dim trap As String Open“App Path& in5 txt“For Input As#l While EOF(1)=False Input#1, tmp逐行读取文件 str=str+tmp将读取到的字符放入 str字符串中 Wend Close#1 Textl Text=str 在 Textl中显示字符串 End Sub Private Sub Comma

    13、nd2_Click() str=“ Dim tmp As String For i=1 To Len(Text1 Text) tmD=Mid(Textl Text, i, 1) 通过Mid函数一个一个读入字符 If Asc(tmp)=Asc(“A“)Then If Asc(tmp)=Asc(“a“)Then 当输人为小写字母时 tmp=Chr(Asc(tmp)-1-Asc(“a“)+26)Mod 26+Asc(“a“) Else当输入为大写字母时 tmp=Chr(Asc(tmp)-1-Asc(“A“)+26)Mod 26+Asc(“A“) End If End If str=str+tmp将字符串连起来 Next i Open“App Path& out5 txt“For Output As#2 Print#2, str Close#2 End Sub单击 按钮运行程序,并按要求保存。


    注意事项

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




    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

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

    收起
    展开