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

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