关于VB的回文数问题

来源：百度知道 编辑：UC知道 时间：2024/05/24 23:55:11
怎么用VB编写一程序,找出1~99999之间的所有回文数n
新手刚学VB,恳请大家不吝赐教

我来帮你：
1、先建立一个exe工程。
2、在窗体上添加两个文本框、一个按钮、一个ListBox和一个标签。
3、在按钮单机事件中写下列代码：
Private Sub Command1_Click()
Dim M, N As Long
M = Val(Trim(Text1.Text))
N = Val(Trim(Text2.Text))
If (M = 0 And Len(Text1.Text) > 1) Or (N = 0 And Len(Text2.Text) > 1) Then
MsgBox "请输入整数！"
Exit Sub
End If
If M > N Then
MsgBox "左边文本框的数字要比右边的小！"
Exit Sub
End If

'先清空
List1.Clear
'计算回文数并添加到数据库
lblM.Caption = ""
For j = M To N
If j = Val(StrReverse(j)) Then
List1.AddItem j
End If
DoEvents
lblM.Caption = j & ";" & Int((j / N) * 100 + 0.5) * 100 / 100 & "%"
Next

MsgBox "完毕！所选数字范围内回文总数N=" & List1.ListCount
End Sub

运行结果为N=1098