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

问题描述:

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

Dim numDim strstr = ""For num=1000 To 2000str = str + Cal(num)NextMsgBox strFunction Cal(num)If num Mod 17 = 0 And num Mod 37 = 0 ThenCal = CStr(num) + " "End IfEnd FunctionFor循环遍历1000到2000的整数...