搜索
首页 电脑/网络 互联网

用vb判断[100,999]之间有多少个回文数,

用vb判断[100,999]之间有多少个回文数,要求用过程实现一个正整数是否为回文数

全部回答

2008-12-04

0 0

    Dim k, i, m, n, l, number As IntegerPrivate Sub Command1_Click()number = 0 For k = 100 To 999 Step 1 Call huiwen Next k Print "共有" & number; "个回文"End SubPrivate Function huiwen() l = Len(k) For i = 1 To l m = Mid(k, i, 1) n = Mid(k, l - i + 1, 1) If m <> n Then Exit For Next i If i > l Then number = number + 1End Function。
    。

2008-12-02

178 0

回文数是什么?我不太清楚,过程或许应该没问题

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
互联网
程序设计
电脑装机
操作系统/系统故障
硬件
笔记本电脑
百度
反病毒
软件
互联网
互联网
QQ
上网帮助
网站推荐
举报
举报原因(必选):
取消确定举报