关于数的对比问题

来源：百度知道 编辑：UC知道 时间：2024/05/17 08:06:12
我随即生成了一堆数字,分别放在text2(1)～text2(30)中。
我想来一个对比，如果text2(1)=text2(3),那么text1.text就加一，
如果text2(3)=text2(5),那么text1.text再加一。
就是单数与单数的比较，如果相同，text1就加一。
我写了程序，但好象不对的。
On Error Resume Next
For i = 1 To 30 Step 2
If Text2(i).Text = Text2(i + 2).Text Then
Text1.Text = Text1.Text + 1
End If
Next

我想应该是text2(1)与text2(5)或者其他的单数再次比较了，结果不准确的，我要的只是一次的比较，text2(1)与text2(3)比较之后，就到text2(3)与text2(5)比较，如此类推，求大虾代码！

Private Sub Command1_Click()
For i = 1 To 27 Step 2
If Text2(i).Text = Text2(i + 2).Text Then
Text1.Text = Val(Text1.Text) + 1
End If
Next
End Sub

Private Sub Form_Load()
For i = 1 To 30
Text2(i) = 1
Next i
End Sub

Text1.Text = val(Text1.Text) + 1

或者这样就可以了
For i = 1 To 30 Step 2
If Text2(i).Text = Text2(i+2).Text Then
Text1.Text = val(Text1.Text) + 1
End If
Next