一、改錯題

【題目】

  本程序的功能是找出給定范圍內因子個數最多的整數.程序界面參加下圖

(本程序界面由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:”文本框中輸入一個整數，按”運行”按鈕,判斷輸入的數是否為對稱數,如果是,則計算機下一個對稱數,并顯示結果,否則,顯示如圖所示