random

Sub Equation()
    Dim nums, q, answer
    ReDim nums(4)
    answer = 0
    While answer = 0

        For i = 1 To 4
            nums(i) = RandomNumber(-20, 20)
            If nums(i) < 0 Then
                q = q & "(" & nums(i) & ")"
            Else
                q = q & nums(i)
            End If
            If i = 1 Or i = 3 Then
                q = q & "X"
            End If
            If i <> 4 Then
                q = q & " + "
            Else
                q = q & " = 0"
            End If
        Next i
        answer = Round(-(nums(2) + nums(4)) / (nums(1) + (nums(3))), 1)
    Wend
    CheckAnswer answer, "X ümardatult kümnendikeni on? " & vbCrLf & q
End Sub