徐州软件园:asp循环加判断问题

来源:百度文库 编辑:神马品牌网 时间:2024/04/29 23:01:16
程序如下
Dim temp,i,j,k
a =Request.Form("a")
b =Request.Form("b")
c =Request.Form("c")
select case request("go")
case "cha"
case "shou"
For I = 1 To Len(a)
For J = 1 To Len(b)
For K = 1 To Len(c)
temp = Mid(CStr(a),I,1) & Mid(CStr(b),J,1) & Mid(CStr(c),K,1)
a1 = Mid(temp,1,1)
a2 = Mid(temp,2,1)
a3 = Mid(temp,3,1)
hz = cINT(a1) + cINT(a2) + cINT(a3)
Call hm()
End select
Next
Next
Next
我现在想做的是 当这写数字显示出来了我要将其排除一些
我这有现成的网页 http://www.yydett.com/cpsj.htm
我的问题是 数字排出了 我分了 大小 单双 比如我要排除全是单单双的号 而其他的号码还在 我该如何去做判断
如果有点看不懂 进我上面的网页看看就明白了

if (cint(mid(cstr(a),i,1)) mod 2)=0 and (cint(mid(cstr(b),j,1)) mod 2)=0 and (cint(mid(cstr(c),k,1)) mod 2)=1 then
temp = Mid(CStr(a),I,1) & Mid(CStr(b),J,1) & Mid(CStr(c),K,1)
end if

如果要是单纯的判断单双的话判断每个数据的取余就可以了啊!说实话,你这个我还真没看懂,我QQ138366333,有兴趣可以交流下。