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

千问 · 2011-5-27 12:48:03

Dimnum
Dimstr
str=\"\"
Fornum=1000To2000
str=strCal(num)
Next
MsgBoxstr

FunctionCal(num)
IfnumMod17=0AndnumMod37=0Then
Cal=CStr(num)\"\"
EndIf
EndFunction
For循环遍历1000到2000的整数，将符合条件的数连成字符串
Cal函数是你提到的function过程，将能同时被17和37整除的数转换为字符串，并在后面加一个空格，然后返回
最后，用MsgBox输出，结果为12581887