本人新手，求高手解答一下 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 本人新手，求高手解答一下

标题：本人新手，求高手解答一下

取消只看楼主

jh5269319lxh

等　级：新手上路
帖　子：2
专家分：0
注　册：2011-6-9

楼主

问题点数：0 回复次数：1

本人新手，求高手解答一下

输出100~999之间的回文数，怎么用VB实现啊。

搜索更多相关主题的帖子: 100　999　

2011-06-09 15:52

jh5269319lxh

等　级：新手上路
帖　子：2
专家分：0
注　册：2011-6-9

第 2 楼

得分:0

Private Sub Command1_Click()
Dim n!, i!, m!, w!
w = 0
For i = 100 To 999
m = i - i \ 100
n = m Mod 10
If n = 0 Then Print i;: w = w + 1
If w = 10 Then Print: w = 0
Next i
End Sub

刚刚想出来~贼高兴了~

2011-06-09 16:26

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-342308-1-1.html