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

加入VIP,免费下载
 

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

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

下载须知

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

版权提示 | 免责声明

本文(【计算机类职业资格】江苏计算机二级考试+Visual+Basic上机真题一2013年春季及答案解析.doc)为本站会员(Iclinic170)主动上传,麦多课文库仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知麦多课文库(发送邮件至master@mydoc123.com或直接QQ联系客服),我们立即给予删除!

【计算机类职业资格】江苏计算机二级考试+Visual+Basic上机真题一2013年春季及答案解析.doc

1、江苏计算机二级考试+Visual+Basic 上机真题一 2013 年春季及答案解析(总分:2.00,做题时间:70 分钟)1.改错题 【题目】 本程序的功能是找出给定范围内因子个数最多的整数.程序界面参加下图 (本程序界面由 1 个 ListBox、1 个 Label、1 个 TextBox 和 1 个 CommandButton 组成,所有对象均采用缺省名) Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As integer,j as integer,m as integer,n as integer Di

2、m s As String, mx as integer Dim yz() as integer,c() as integer m=15: n=35 Redim c(m:n) For i=m to n s=i & “:“ Call qyz(i,yz) c(i)=Ubound(yz) For j=1 to Ubound(yz) s=s & yz(j) &“,“ next j s=Left(s,len(s)-1) List1.Additem s Next i mx=c(1) For i=m to n if c(i)mx then mx=c(i) Next i For i=m to n if c(i

3、)=mx then Text1.text=text1.text & i & “,“ Next i Text1.Text=Left(Text1.text,Len(text1.text)-1) End Sub Private Sub qyz(Byval n as integer,yz() as integer) Dim i as integer,p as integer For i=1 to n-1 if n mod i=0 then p=p+1 Redim yz(p) yz(p)=i End if next i End Sub 1.新建工程,按参考界面形式创建窗体,再从 T 盘根目录下的 err

4、.txt 文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码,改正程序中的错误。 2.改错时,不得增加或删除语句,但可适当调整语句的位置。 3.将窗体文件和工程文件分别命名为 F1 和 P1,并保存到 T 盘的根目录下。(分数:1.00)_2.编程题 【题目】 编写程序,输入一个对称数,求比该对称数大的最近的一个对称数,所以对称数是指正读与倒读都相同的整数,例如 12321 就是一个对称数 【编程要求】 1.程序界面参见下图,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见 2.运行程序,在“对称数 n:”文本框中输入一个整数,按”运行”按钮,判断输

5、入的数是否为对称数,如果是,则计算机下一个对称数,并显示结果,否则,显示如图所示(分数:1.00)_江苏计算机二级考试+Visual+Basic 上机真题一 2013 年春季答案解析(总分:2.00,做题时间:70 分钟)1.改错题 【题目】 本程序的功能是找出给定范围内因子个数最多的整数.程序界面参加下图 (本程序界面由 1 个 ListBox、1 个 Label、1 个 TextBox 和 1 个 CommandButton 组成,所有对象均采用缺省名) Option Explicit Option Base 1 Private Sub Command1_Click() Dim i As

6、integer,j as integer,m as integer,n as integer Dim s As String, mx as integer Dim yz() as integer,c() as integer m=15: n=35 Redim c(m:n) For i=m to n s=i & “:“ Call qyz(i,yz) c(i)=Ubound(yz) For j=1 to Ubound(yz) s=s & yz(j) &“,“ next j s=Left(s,len(s)-1) List1.Additem s Next i mx=c(1) For i=m to n

7、if c(i)mx then mx=c(i) Next i For i=m to n if c(i)=mx then Text1.text=text1.text & i & “,“ Next i Text1.Text=Left(Text1.text,Len(text1.text)-1) End Sub Private Sub qyz(Byval n as integer,yz() as integer) Dim i as integer,p as integer For i=1 to n-1 if n mod i=0 then p=p+1 Redim yz(p) yz(p)=i End if

8、next i End Sub 1.新建工程,按参考界面形式创建窗体,再从 T 盘根目录下的 err.txt 文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码,改正程序中的错误。 2.改错时,不得增加或删除语句,但可适当调整语句的位置。 3.将窗体文件和工程文件分别命名为 F1 和 P1,并保存到 T 盘的根目录下。(分数:1.00)_正确答案:()解析:2.编程题 【题目】 编写程序,输入一个对称数,求比该对称数大的最近的一个对称数,所以对称数是指正读与倒读都相同的整数,例如 12321 就是一个对称数 【编程要求】 1.程序界面参见下图,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见 2.运行程序,在“对称数 n:”文本框中输入一个整数,按”运行”按钮,判断输入的数是否为对称数,如果是,则计算机下一个对称数,并显示结果,否则,显示如图所示(分数:1.00)_正确答案:()解析:

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