Sub Num()
Dim i%, str$
For i = 1 To 999
If InStr(CStr(i), "5") And i Mod 3 = 0 Then str = str & " " & i
Next
MsgBox Trim(str)
End Sub
问：程序题(1)求出所有能被7整除的2位数,写出这个算法和程序 (2)编写程序找出100到300之间的所有同时可以被2和3整除的正整数,
答：（1） i=10 WHILE i<=99 IF i MOD 7 = 0 THEN PRINT i END IF i=i+1 WEND E...详情>>
答：详情>>
