题目是求给定一定范围数的回文数。
这题很纠结,一直不知道错在那里,程序运行,输入数据范围,可是就出不来结果,而且呈没响应状态。小弟在此恳请高手指点。
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim i As Integer, x As Integer, fan1 As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
For i = a To b
x = i
Do
Text3.Text = Text3.Text & Str(x) & "=>"
Call fanxu(x, fan1)
x = x + fan1
Loop Until huiwen(x)
Text3.Text = Text3.Text & Str(x) & vbCrLf
Next i
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub fanxu(ByVal n As Integer, ByVal m As Integer)
Dim x As Integer
m = 0
Do
x = n Mod 10
m = x + m * 10
n = n \ 10
Loop While n0
End Sub
Private Function huiwen(ByVal n As Integer) As Boolean
Dim ch As String, s1 As Integer, hws As Boolean
ch = CStr(n)
s1 = Len(ch)
hws = False
For k = 1 To s1 / 2
If Mid(ch, k, 1)Mid(ch, k + 1 - k, 1) Then Exit Function
Next k
hws = True
End Function
不好意思,现在补上题目,题目如下:
【编程要求】
1.在文本框1,2中分别输入验证数据的起始值和终止值,按“验证”按钮,则将验证过程如图所示输出到多行文本框中;按“清除”按钮,将3个文本框清空,并将焦点置于文本框1上;按“退出”按钮,结束程序运行
2.程序中应定义一个求反序数的通用过程和一个验证回文数的通用过程。
3.程序参考界面如图(补充问题时是不能再插入图片了,我就说下吧)
我输入: 从351到353
文本框3出现:351=> 504=> 909
352=> 605=> 1111
353=> 706=> 1313=> 4444
|