早教吧 育儿知识 作业答案 考试题库 百科 知识分享

求出10个韩信点兵数,该数除以3余2,除以5余3,除以7余4.

题目详情
求出10个韩信点兵数,该数除以3余2,除以5余3,除以7余4.
▼优质解答
答案和解析
Private Sub Command1_Click()
js = 0: i = 0
Do
If (i Mod 3 = 2) And (i Mod 5 = 3) And (i Mod 7 = 4) Then js = js + 1: Print i
i = i + 1
Loop Until js > 10
End Sub