一、改错题

【题目】

  本程序的功能是找出给定范围内因子个数最多的整数.程序界面参加下图

(本程序界面由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

  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

    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

  next i

End Sub

1.新建工程,按参考界面形式创建窗体,再从T盘根目录下的err.txt文件中将有错误的程序代码复制到代码编辑器窗口中或自行输入上述代码,改正程序中的错误。

 2.改错时,不得增加或删除语句,但可适当调整语句的位置。

 3.将窗体文件和工程文件分别命名为F1和P1,并保存到T盘的根目录下。

二、编程题

【题目】

   编写程序,输入一个对称数,求比该对称数大的最近的一个对称数,所以对称数是指正读与倒读都相同的整数,例如12321就是一个对称数

【编程要求】

 1.程序界面参见下图,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见

 2.运行程序，在“对称数n:”文本框中输入一个整数，按”运行”按钮,判断输入的数是否为对称数,如果是,则计算机下一个对称数,并显示结果,否则,显示如图所示