VB用for 循环算1-100的奇数跟偶数有多少个?

来源：学生作业帮助网编辑：六六作业网时间：2024/12/27 14:27:41

VB用for循环算1-100的奇数跟偶数有多少个?VB用for循环算1-100的奇数跟偶数有多少个?VB用for循环算1-100的奇数跟偶数有多少个?q=0:e=0Fori=1To100IfiMod2

VB用for 循环算1-100的奇数跟偶数有多少个?
VB用for 循环算1-100的奇数跟偶数有多少个?

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