问答题
改错题
【题目】
本程序的功能是找出给定范围内因子个数最多的整数.程序界面参加下图
(本程序界面由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盘的根目录下。