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）_正确答案：()解析：
