457565.456575.184062.186240.哪些能被4或25整除?

[复制链接]
查看11 | 回复0 | 2007-7-4 13:21:26 | 显示全部楼层 |阅读模式
a = split("457565.456575.184062.186240",".")For i = 0 to ubound(a)If a(i)\4 = a(i)/4 Thenresponse.write "第" & i+1 & "个数能被4整除" & vbCrLfElseIf a(i)\25 = a(i)/25 Thenresponse.write "第" & i+1 & "个数能被25整除" & vbCrLfElseresponse.write "第" & i+1 & "个数既不能被4整除也不能被25整除" & vbCrLfEnd IfNext i
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行