求奇偶数:
For i = 1 to 100
If i/2 i\2 Then
msg =msg & i & "是奇数"
Else
msg =msg & i & "是偶数"
Next i
Print msg
能被3和5同时整除:
For i = 1 to 100
If i/3 = i\3 And i/5 = i\5 Then
msg =msg & i & "能被3和5同时整除"
Else
msg =msg & i & "不能被3和5同时整除"
End If
Next i
Print msg