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
遍历 n=1 到 100
判断 n/3=整数 {
判断 n/5=整数 {i=i+1}
提示=提示&N&","
}
遍历结束
输出 总共有I个数 分别是<提示>