比如我想判断一个控件数组是否相等
If Command1(0).Caption=1 And Command1(1).Caption=1 And Command1(2).Caption=1 Then
Print "A"
End If

如果Command1 控件有100个呢？？？怎么判断？？ 难道要写100个 判断试？
我想有其他方法吧
请高手指点

用循環啊

循环吧？

For i = 0 to 100
If Command1(i).Caption=1 Then
Print "A"
End If
Next i
这样？这样不就输出100个A了吗？我想判断他100个=1才输出一个A

If Command1(For i=0 to 100).Caption=1 Then
Print "A"
End If
Next i
这样好似 不行的吧？？

？？？

你的意思是不是必須全部是caption為1才輸出A 要是這樣的話..可以像下面這樣做


for i=0 to 100
if command1(i).caption <> "1" then exit for
next i
if i=100 and command1(100)="1" then print "A"

看了好久 看不懂 在VB环境下做了个实验 好试不行哟

[此贴子已经被作者于2007-1-21 19:37:02编辑过]

for i=0 to 100
if command1(i).caption <> "1" then exit for ' 判斷每個command的caption值,如果遇到有一個是不
next i 等於"1" 那麼就出循環,表示不符合條件

if i=100 and command1(100)="1" then print "A" ' 如果i=100表示上面循環執行到了最後,且
command1(100)="1" 表示最後一個也是"1" (至於為什麼要
判斷最後一個,是因為上面循環若只是最後一個不滿足條件,
i 也會等於100) 如果滿足這兩個條件,表示全部的caption都
為"1"

for i=0 to 99
if command1(i).caption <> "1" then exit for
next i
if i=100 then print "A"

刚刚打快了

[此贴子已经被作者于2007-1-21 19:43:03编辑过]