天那,什么逻辑,它应该是False呀！

Question

If a(1, 2) > a(1, 1) And a(1, 3) > a(1, 2) And a(2, 2) > a(2, 1) And a(2, 3) > a(2, 2) Then col = True
                  
If a(2, 1) > a(1, 1) And a(2, 2) > a(1, 2) And a(2, 3) > a(1, 3) Then row = True                                    
                  
If col = True And row = True Then          '让人难以理解的是这两个变量居然是True!
    Label1.Caption = a(1, 1)
    Label2.Caption = a(1, 2)
    Label3.Caption = a(1, 3)
    Label4.Caption = a(2, 1)
    Label5.Caption = a(2, 2)
    Label6.Caption = a(2, 3)
End If         天哪，执行如上语句,六个label的caption分别显示的是1,5,5,5,5,6。为什么呀？这样的话逻辑变量col和row的值应该都是False啊!莫非显示的并不是数组的值?

Answer 1

请问else col=false 应该放在那里呀?这条语句好象没什么来由的吧?

Answer 2

你在你的第一句代码前面加入断点,看看col的默认值是不是true,或者看看row的值是不是true

Answer 3

我试过了.col的默认值是false,row的值是false.
col和row 我都定义的是窗体变量.在窗体的装载事件中就赋值为false了。

Answer 4

完整代码如下:
'/*************************************************************************************/
'把123456填入如下表格内:'----------------------
'|     |       |      |
'|     |       |      |
'----------------------
'|     |       |      |
'|     |       |      |
'----------------------'要求：1、每一列右边的数字比左边的大
'      2、每一行下面的数字比上面的大
'/*************************************************************************************/Option Base 1   ' 设定数组下限从数字1开始Option ExplicitDim a(2, 3), i, j As Integer
Dim b(4) As Integer
Dim a1, a2, a3, a4 As Integer
Dim col, row As BooleanPrivate Sub Command1_Click()
  Dim b(4), i As Integer
  Randomize
  i = 1
  j = 1
  For i = 1 To 2     '将数组清零
      For j = 1 To 3
          a(i, j) = 0
      Next j
  Next i
  b(1) = 2
  For i = 2 To 4
      b(i) = i + 1
  Next i
  
  a(1, 1) = 1
  a(2, 3) = 6
  
  For a1 = 1 To 4
      For a2 = 1 To 4
          For a3 = 1 To 4
              For a4 = 1 To 4
                  a(1, 2) = b(a1)
                  a(1, 3) = b(a2)
                  a(2, 1) = b(a3)
                  a(2, 2) = b(a4)
                  
                  If (a(1, 2) > a(1, 1)) And (a(1, 3) > a(1, 2)) And (a(2, 2) > a(2, 1)) And (a(2, 3) > a(2, 2)) Then col = True
                  
                  If (a(2, 1) > a(1, 1)) And (a(2, 2) > a(1, 2)) And (a(2, 3) > a(1, 3)) Then row = True
                                    
                  
                  If col = True And row = True Then
                     Label1.Caption = a(1, 1)
                     Label2.Caption = a(1, 2)
                     Label3.Caption = a(1, 3)
                     Label4.Caption = a(2, 1)
                     Label5.Caption = a(2, 2)
                     Label6.Caption = a(2, 3)
                     For i = 1 To 10
                         For j = 1 To 10000
                         
                         Next j
                     Next i
                     
                     
                  End If
                  
              Next a4
           Next a3
       Next a2
  Next a1
  End SubPrivate Sub Command2_Click()
  End
End SubPrivate Sub Form_Load()
   i = 1
   j = 1
   For i = 1 To 2
       For j = 1 To 3
           a(i, j) = 0
       Next j
   Next i
   col = False
   row = False
   
End Sub

Answer 5

各位前辈高手帮我看下嘛.难到说csdn上都没有高手了么?或者竟然没有一个热心帮助别人的人?
帮帮忙哈.

Answer 6

If col = True And row = True Then请注意逻辑运算的优先级问题if (col=true ) and (row=true)
if col= (true and (row=true))
if (col= (true and row)) =true
if col= ((true and row) =true)是哪一种?

Answer 7

还是你逻辑有问题!
你改成这样试试
...
If col = True And row = True Then
stop'<-----加一行
Label1.Caption = a(1, 1)
..
运行暂停时,你看看那些值是什么,我看了几个,基本正常

Answer 8

jinjazz(近身剪（充电中...）)已经解答了：
If (a(1, 2) > a(1, 1)) And (a(1, 3) > a(1, 2)) And (a(2, 2) > a(2, 1)) And (a(2, 3) > a(2, 2)) Then
  col = True
Else
  col = False
End IfIf (a(2, 1) > a(1, 1)) And (a(2, 2) > a(1, 2)) And (a(2, 3) > a(1, 3)) Then
  row = True
Else
  row = False
End If