VB用for 循环算1-100的奇数跟偶数有多少个?
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/13 08:40:42
VB用for 循环算1-100的奇数跟偶数有多少个?
q = 0: e = 0
For i = 1 To 100
If i Mod 2 = 0 Then
e = e + 1
Else
q = q + 1
End If
Next
Print "奇数个数=";q, "偶数个数=";e
收录互联网各类作业题目,免费共享学生作业习题
慧海网手机作业共收录了 千万级 学生作业题目
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/13 08:40:42
VB用for 循环算1-100的奇数跟偶数有多少个?
q = 0: e = 0
For i = 1 To 100
If i Mod 2 = 0 Then
e = e + 1
Else
q = q + 1
End If
Next
Print "奇数个数=";q, "偶数个数=";e