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

    【计算机类职业资格】二级VISUAL+BASIC机试-53及答案解析.doc

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

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

    【计算机类职业资格】二级VISUAL+BASIC机试-53及答案解析.doc

    1、二级 VISUAL+BASIC 机试-53 及答案解析(总分:100.00,做题时间:90 分钟)1.在考生文件夹下有一个工程文件 ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮,名字分别为 Command1 和 Command2,标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后,应用对话框连续输入 12 个整数,并放入数组 Array 中。单击“数据存盘”,将该数组的前 6 个元素与后6 个元素互换;即第 1 个与第 12 个,第 2 个与第 11 个元素互换,依此类推。最后互换前后的数组输出到考生文件夹下的 data.txt 文件中。程序运行界面如图 31 所

    2、示。要求实现题目给出的功能,并将文件保存在考生文件夹下,工程文件名为 ylc.vbp。(分数:100.00)_二级 VISUAL+BASIC 机试-53 答案解析(总分:100.00,做题时间:90 分钟)1.在考生文件夹下有一个工程文件 ylc.vbp。在标题为“数组转换窗口”的窗体上创建两个命令按钮,名字分别为 Command1 和 Command2,标题分别为“数据导入”和“数据存盘”。单击“数据导入”按钮后,应用对话框连续输入 12 个整数,并放入数组 Array 中。单击“数据存盘”,将该数组的前 6 个元素与后6 个元素互换;即第 1 个与第 12 个,第 2 个与第 11 个元素

    3、互换,依此类推。最后互换前后的数组输出到考生文件夹下的 data.txt 文件中。程序运行界面如图 31 所示。要求实现题目给出的功能,并将文件保存在考生文件夹下,工程文件名为 ylc.vbp。(分数:100.00)_正确答案:(1)Visual Basic 集成环境中,执行“文件”“打开工程”命令,选择 ylc.vbp 文件打开。(2)在工具箱中选择单选按钮控件,在窗体上创建两个命令按钮,名字分别为 Command1 和 Command2,标题分别为“数据导入”和“数据存盘”。(3)双击“数据导入”按钮,弹出代码窗口,在其中添加如下代码:Dim Array1(1 To 12) As Inte

    4、gerPrivate Sub Command1_Click()For i=1 To 12Array1(i)=InputBox(“请输入数据“)Next iEnd Sub(4)编写 savedata 过程,把文件中的数值读到指定的数组中保存事件。其代码如下;Sub SaveData(str As String)Open App.Path &“/“&“out.txt“For Output As #1Print countClose #1End Sub(5)双击“数据存盘”按钮,弹出代码窗口,在其中添加如下代码:Private Sub Command2_Click()Dim temp As Stri

    5、ngDim m As IntegerFor i=1 To 6temp=Array(i)Array1(i)=Array1(12-i+1)Array1(12-i+1)=tempNext iFor i=1 To 12m=m&“ “& CStr(Array1(12-i+1)Next iFor i=1 To 12m=m&“ “&CStr(Array1(i)Next iCall SaveData(“data.txt“,m)End Sub(6)按 F5 键运行程序。如图 31 所示。(7)执行“文件”“保存工程”命令,将工程文件命名为 ylc.vbp,窗体文件命名为 ylc.frm。)解析:解析 本题主要考查了数组的操作和文件输出的实现。利用 InputBox 函数弹出对话框来输入数组元素,然后交换其中的数据。题中数组有 12 个元素,因此需要交换 6 次。


    注意事项

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




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

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

    收起
    展开