vb 简化写法

来源：百度知道 编辑：UC知道 时间：2024/06/13 22:11:59
括号里的数字可为0到11
这么说吧定义一个dd
for dd= 0 to 11
如果dd,为10，11，9
那么b = ww(10) <> mi(10) And ww(11) <> mi(11) And ww(9) <> mi(9)
如果dd,为8，10，7，6
那么b = ww(8) <> mi(8) And ww(10) <> mi(10) And ww(7) <> mi(7)And ww(6) <> mi(6)
如果dd,为5，6
那么b = ww(5) <> mi(5) And ww(6) <> mi(6)
如果dd,为0，1，2，3，4，5，6，7，8，9，10，11
那么b = ww(0) <> mi(0) And ww(1) <> mi(1)。。。直到And ww(11) <> mi(11)
。。。。。。。
。。。。。。。
依此类推
这个b该怎么简化写
b= ww(dd) <> mi(dd)肯定是不对的
就剩5分了，还请多担待

下面的示例将过程 MyProc 重复执行 10 次。For 语句指定计数器变量 x 及其起始值与终止值。Next 语句使计数器变量每次加 1。 Sub DoMyProc10Times()
Dim x
For x = 1 To 10
MyProc
Next
End Sub

关键字 Step 用于指定计数器变量每次增加或减少的值。在下面的示例中，计数器变量 j 每次加 2。循环结束后，total 的值为 2、4、6、8 和 10 的总和。 Sub TwosTotal()
Dim j, total
For j = 2 To 10 Step 2
total = total + j
Next
MsgBox " 总和为 " & total & "。"
End Sub

要使计数器变量递减，可将 Step 设为负值。此时计数器变量的终止值必须小于起始值。在下面的示例中，计数器变量 myNum 每次减 2。循环结束后，total 的值为 16、14、12、10、8、6、4 和 2 的总和。 Sub NewTotal()

看不太懂啊楼主。你干脆详说一下想实现什么功能吧。