Question

编写判断一个数是否同时被17与37整除的 function过程,输出1000-2000之间所有能被17与37整除的数.

Answer 1

Dim num

Dim str

str = ""

For num=1000 To 2000

str = str + Cal(num)

Next

MsgBox str

Function Cal(num)

If num Mod 17 = 0 And num Mod 37 = 0 Then

Cal = CStr(num) + " "

End If

End Function

For循环遍历1000到2000的整数,将符合条件的数连成字符串

Cal函数是你提到的function过程,将能同时被17和37整除的数转换为字符串,并在后面加一个空格,然后返回

最后,用MsgBox输出,结果为1258 1887