注册 登录
编程论坛 VB6论坛

帮忙看下呢 for循环里 执行一个函数

txjxjt 发布于 2013-05-14 09:57, 589 次点击
程序代码:

q3=1:q4=2:q5=6
For i = 0 To 7
  For j = i + 1 To 8
    For k = j + 1 To 9
        z1 = (q3 <> i And q3 <> j And q3 <> k)
        z2 = (q4 <> i And q4 <> j And q4 <> k)
        z3 = (q2 <> i And q2 <> j And q2 <> k)
        zsan = z1 And z2 And z3
        If zsan Then
           bbz(i, j, k) = bbz(i, j, k) + 1
        Else
           bbz(i, j, k) = 0
        End If
        aaz(z) = bbz(i, j, k) & Space(5) & i & j & k
        z = z + 1
        If bbz(i, j, k) >= 9 Then
                message =" 测试成功"
                send_Click (message)
        End If
    Next
  Next
Next



请问下当bbz(i,j,k)>=9后 执行 send_Click (message)函数,发现这个函数执行了13次,为什么会这样,有时候正确是执行1次。 send_Click (message)这个是短信接口函数。由接口商提供的
1 回复
#2
tglyq2013-05-19 21:50
你的行:z3 = (q2 <> i And q2 <> j And q2 <> k)   中,是q2应为q5 ?
1