求出100到200之间能同时满足除3余2,除5余3条件的数的个数VB怎样编程

问题描述:

求出100到200之间能同时满足除3余2,除5余3条件的数的个数VB怎样编程
1个回答 分类:综合 2014-11-26

问题解答:

我来补答
满足除3余2,除5余3条件的数符合公式15n+8(n是整数),所以可用以下代码:
Private Sub Command1_Click()
n = 0:m = 0:k = 8
Print "满足条件的数有:";
Do While k = 100 Then Print k;:m = m + 1
n = n + 1
k = 15 * n + 8
Loop
Print
Print "共计有" & m & "个."
End Sub
结果:满足条件的数有:113 128 143 158 173 188 共计有6个.
 
 
展开全文阅读
剩余:2000
上一页:示意图也请画出
下一页:拜托详细解答