想找出数组中两数相差在15以内的数，这些数为不合格数，但是运行不出来
请指教，程序如下，谢谢
Private Sub Command2_Click()
Dim bjh() As Variant
Dim tmax As Variant
bjh = Array(130, 120, 110, 100, 90, 80, 70, 60, 50, 40, 30, 20, 10)
tmax = 0
For i = LBound(bjh) To UBound(bjh) - 1
For j = i + 1 To UBound(bjh)
If (bjh(i) - bjh(j) >= 15) And (bjh(i) - bjh(j - 1) < 15) Then
If i - j > tmax Then
tmax = i - j
Print "不合格的有1--" & i & "," & j & "--" & UBound(bjh)
End If
End If
Print "tmax=" & tmax;
Next j
Next i
End Sub

麻烦你给程序写个注释。

tmax是干什么的？

重发一下吧（数组给改了一下，那个不太好），说的可能不是很清楚，就是要求i-j的最大值，tmax就是这个最大值，要求(bjh(i) - bjh(j) >= 15) And (bjh(i) - bjh(j - 1) < 15)，i-j以外的就算不合格了，这样应该明白了吧

Private Sub Command2_Click()
Dim bjh() As Variant
Dim tmax As Variant
bjh = Array(130, 125, 123, 120, 115, 80, 78, 72, 60, 40, 30, 20, 10)
tmax = 0
For i = LBound(bjh) To UBound(bjh) - 1
For j = i + 1 To UBound(bjh)
If (bjh(i) - bjh(j) >= 15) And (bjh(i) - bjh(j - 1) < 15) Then
If i - j > tmax Then
tmax = i - j
Print "不合格的有1--" & i & "," & j & "--" & UBound(bjh)
End If
End If
Print "tmax=" & tmax;
Next j
Next i
End Sub

需求分析失败

不懂你要怎么做

我想想吧，谢谢了

做出来了，不管你们看不看的懂，还是发上来吧，呵呵
Private Sub Command2_Click() '相差15最多的刀
Dim bjh() As Variant
Dim tmax As Variant
bjh = Array(130, 125, 124, 123, 115, 80, 70, 60, 50, 40, 30, 20, 10)
tmax = 0
For i = LBound(bjh) To UBound(bjh) - 1
For j = i + 1 To UBound(bjh)
If (bjh(i) - bjh(j) <= 15) Then
If j - i > tmax Then
tmax = j - i

End If
End If
Next j
Next i
Print "tmax=" & tmax
Print "不合格刀有" & UBound(bjh) - tmax & "个"
For i = LBound(bjh) To UBound(bjh) - 1
For j = i + 1 To UBound(bjh)
If (bjh(i) - bjh(j) <= 15) And j - i = tmax Then
Print "i=" & i, "j=" & j
If i = 1 Then
Print ; "不合格刀有" & j + 1 & "--" & UBound(bjh)
End If
If i = 2 Then
Print ; "不合格刀有1" & "," & j + 1 & "--" & UBound(bjh)
End If
If i >= 3 Then
Print ; "不合格刀有1--" & i - 1 & "," & j + 1 & "--" & UBound(bjh)
End If
End If
Next j
Next i
End Sub

不管怎么样 恭喜一下