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

    [计算机类试卷]国家二级VB机试(上机操作)模拟试卷326及答案与解析.doc

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

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

    [计算机类试卷]国家二级VB机试(上机操作)模拟试卷326及答案与解析.doc

    1、国家二级 VB机试(上机操作)模拟试卷 326及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加一个名称为 L1的标签,标签上标题为 “请输入密码 ”,添加一个名称为 Text1的文本框,其宽、高分别为 2000和 300,设置适当的属性,使得在输入密码时,文本框中显示为 “*”字符,此外再把窗体的标题设置为 “密码窗口 ”,以上这些设置都必须在属性窗口中进行,程序运行时的窗体如图所示。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt1 vbp,窗体文件名保存为 sjt1 frm。 (2)在名 称为 Form1的窗体上添加一个名称为 P1的图片框,请编写适当

    2、的事件过程,使得程序在运行时,每单击一次图片框,就在图片框中输出 “单击图片框 ”,每单击图片框外的窗体一次,就在窗体中输出 “单击窗体 ”,运行时的窗体如图所示。要求在程序中不得使用变量,每个事件过程中只能写一条语句。 注意:存盘时必须存放在考生文件夹下,工程文件名保存为 sjt2 vbp,窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 Sjt3 vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入 一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签 Labell中;若是大写字母,则把它的小写形式显示在 Label1中,若是其

    3、他字符,则将该字符直接显示在 Labell中。输入的字母总数则显示在标签 Label2中,如图所示。 要求:去掉程序中的注释符,把程序中的 ?改为正确的内容。 注意:不得修改已经存在的程序,最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体中有一个图片框,图片框中有一个蓝色圆,名称为 Shape1,如图所示。 当程序运行时,单击 “开始 ”按 钮,圆半径逐渐变大 (圆心位置不变 ),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝色,并再次逐渐变大,如此往复。单击 “停止 ”按钮,则停止变化。文件中已经给出了所有控件和程序,但程

    4、序不完整,请去掉程序中的注释符,把程序中的 ?改为正确的内容。提示:程序中的符号常量 blue_color表示蓝色的值,red_color表示红色的值。 注意:不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。 三、综合应用题 3 考生文件夹下有一个工程文件 sjt5 vbp,窗体上有 两个文本框,名称分别为Text1、 Text2,都可以多行显示。还有三个命令按钮,名称分别为 C1、 C2、 C3,标题分别为 “取数 ”、 “排序 ”、 “存盘 ”。 “取数 ”按钮的功能是将考生文件夹下的in5 dat文件中的 50个整数读到数组中,并在 Text1中显示出来; “排序

    5、 ”按钮的功能是对这 50个数按升序排序,并显示在 Text2中; “存盘 ”按钮的功能是把排好序的 50个数存到考生目录下的 out5 dat文件中,如图所示。在窗体中已经给出了全部控件和部分程序代码,要求阅读程序并去掉程序中的注释符,把程序中的 ?改为正确的内容, 并编写 “排序 ”按钮的 Click事件过程,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后将修改后的文件按原文件名存盘。 国家二级 VB机试(上机操作)模拟试卷 326答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】步骤 1:新建一个窗体,按照要求建立控件并设置其属性,如图 3 11所

    6、示。程序中用到的控件及属性如表 3 7所示。 步骤2:调试并运行程序,效果如图 3 12所示。步骤 3:关闭程序后按题目要求保存工程和窗体文件。 (2)【操作步骤】 步骤 1:新建一个窗体,按 照题目要求建立控件并设置其属性,如图 3 13所示。步骤 2:打开代码编辑窗口,在指定位置编写如下代码。 Private Sub Form_Click() Form1 Print”单击窗体 ” End Sub Private Sub P1_Click() P1 Print”单击图片框 ” End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1)【操作

    7、步骤】 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将 问号改为正确的内容。 Dim n As Integer Private Sub Text1 Change() Dim ch As String ch=Right$(Text1,1)通过 Right函数从 Text1中取 1位 If ch =“A“ And ch =”Z”Then 判断 ch的范围是否在 AZ中 Label1 Caption=Lcase(ch)将大写的 ch转换为小写 n=n+1累加大写字符个数 E1seIf ch =”a”And ch =”z” Then 判断 ch是否为小写字母 L

    8、abel1 Caption=Ucase(ch) 将 ch转换为大写 n=n+1累加小写字符个数 Else Label1 Caption=ch当不在字母范围内。则直接赋值显示 End If Label2 Caption=nLabel2中显示满足条件的个数 End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容。 Dim left0 As Integer Const blue_color=&HFF0000, red color= HFF& Private S

    9、ub Commandl_Click() Timer1 Enabled=True 单击 ”开始 ”按钮, Timer生效 End Sub Private Sub Command2_Click() Timer1 Enabled=False单击 “结束 ”按钮 Timer失效 End Sub Private Sub Form_Load() left0=Shapel Left加裁窗体时,初始化圆心到窗体的距离 End Sub Private Sub Timerl_Timer() If Shapel FillColor=blue_color Then If Shapel Left 0 Then Shap

    10、el Height=Shape1. Height +100圆的高扩大 100 Shape1 Width=Shapel Width+100 Shapel Left=Shapel Left一 50圆心到图片框左边上边的距离 Shape1 Top=Shape1 Top一 50 Else Shape1 FillColor= red_color当充满图片框时则变色 End If End If If Shape1 FillColor=red_color Then If Shapel Left left0 Then Shape1 Height=Shape1 Height-i00 Shape1 Width=S

    11、hapel Width100 Shapel.Left=Shape1 Left+50 设置 Shapel的左边位置 Shapel.Top=Shape1 Top +50 设置 Shape1的上界位置 Else Shape1 FillColor = blue_color 当缩小到原始大小时则变色 End If End If End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1:打开本题工程文件。 步骤 2:打开代码编辑窗口,去掉程序中的注释符 “”,将问号改为正确的内容,并编写代码。 Dim a(50)As Integer P

    12、rivate Sub C1_Click() Dim k As Integer, ch As String Open”in5 dat”For Input As #1 ch=” For k=1 To 50 Input#1, s(k)将取出的数据存入数组 a中 ch=ch+Str(a(k)+”“将数据存入 ch Next k C10se #1 Text1 Text=ch在 Text1文本框中显示文件内容 End Sub Private Sub C2_Click() End Sub Private Sub C3 Click() Open”out5 dat”For Output As #1 Print#

    13、1, Text2 Text Close #1 End Sub 需编写的 “排序 ”按钮的代码 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch=” For i=50 To 2 Step1彼用冒泡算法从小 到大排序 For j=1 To 49 If a(j) a(j+1)Then两 两比较 t=a(j+1) a(j+1)=a(j) a(j)=t End If Next j Next i For j=1 To 50将排序后的数组重新赋给 ch ch=ch+Str(a(j)+” Next j Text2 Text=ch End Sub 步骤 3:调试并运行程序,关闭程序后按题目要求存盘。


    注意事项

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




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

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

    收起
    展开