百科知识

电脑/网络

用vb判断100,999-之间有多少个回文数,要求用过程实现一?

2008-12-02 19:48:00m***
用vb判断[100,999]之间有多少个回文数,要求用过程实现一个正整数是否为回文数用vb判断[100,999]之间有多少个回文数,要求用过程实现一个正整数是否为回文数：Dim k, i, m, n, l, number As IntegerP?

最佳回答

  • 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-04 10:55:00
  • 回文数是什么?我不太清楚,过程或许应该没问题
    2008-12-02 23:28:00
    • 很赞哦！ (166)

    相关文章