【计算机类职业资格】江苏计算机二级考试+Visual+Basic上机真题一2013年春季及答案解析.doc
《【计算机类职业资格】江苏计算机二级考试+Visual+Basic上机真题一2013年春季及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】江苏计算机二级考试+Visual+Basic上机真题一2013年春季及答案解析.doc(2页珍藏版)》请在麦多课文档分享上搜索。
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:”文本框中输入一个整数,按”运行”按钮,判断输
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 江苏 二级 考试 VISUALBASIC 上机 真题一 2013 春季 答案 解析 DOC
链接地址:http://www.mydoc123.com/p-1335926.html