Найти цифры близнецы в одномерном массиве - VB

Формулировка задачи:

Нужно найти цифры близнецы в одномерном массиве. Близнецами являются цифры, разность которых ровна 2. Например, 7 и 5, 2 и 0, 3 и 1. Вот написал программу, но она иногда выводит неверно, где ошибка, подскажите:
Private Sub CommandButton1_Click()
Dim A(1 To 10) As Integer
Dim X As Integer
Dim B As String
Dim G As Integer
Dim J As Integer
X = Val(TextBox1)
B = TextBox2
Randomize
For I = 1 To 10
A(I) = Fix(Rnd * 10)
B = B & A(I) & "  "
Next I
TextBox2 = B
For G = 1 To N
For J = 1 To N
X = 2
If A(G) - A(J) = X Then X = X + 1
Next J
Next G
TextBox1 = X
End Sub

Код к задаче: «Найти цифры близнецы в одномерном массиве - VB»

textual
Private Sub Command1_Click()
Dim A() As Integer
Dim i As Integer, j As Integer, n As Integer, x As Integer, k As Integer
Cls
k = 0: x = 2: n = 10: ReDim A(1 To n)
Randomize
 
For i = 1 To n
    A(i) = Fix(Rnd * 10)
   Print Str(A(i)) & "  ";
Next i
 
 Print
 
For i = 1 To n
    For j = 1 To n
        If (A(i) - A(j)) = x Then
           Print Str(A(i)) & "-" & A(j)
            k = k + 1
        End If
    Next j
Next i
Print "Число близнецов = " & k
 
End Sub

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ