本帖最后由 Xqroc 于 2011-5-15 17:21 编辑
//奇（13579）
long sj=0
For i=1 to 3
ls_ch=Mid(ls_hx , i , 1)
li_ch = integer(ls_ch)
If li_ch=1 or li_ch=3 or li_ch=5 or li_ch=7 or li_ch=9then
sj=sj + 1
end if
next
-----循环语句的使用
解释一下这段语句：通过FOR....TO.....NET语句来判断输入的数字是奇数还是偶数----end