编写判断一个数是否同时被17与37整除的 function过程,输出1000-2000之间所有能被17与37整除的数.
人气：182 ℃ 时间：2020-03-25 19:29:15
解答
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的整数...
推荐
猜你喜欢
