编写VB程序将1到100自然数中同时被3和5整除的数打印出来,并统计其个数

2025年03月23日 20:04
有2个网友回答
网友(1):

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

网友(2):

遍历 n=1 到 100
判断 n/3=整数 {
判断 n/5=整数 {i=i+1}
提示=提示&N&","

}

遍历结束
输出 总共有I个数 分别是<提示>