Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a, x, c, b, y, f As Integer
        a = InputBox("Введите a", "Ввод данных")
        x = InputBox("Введите x", "Ввод данных")
        c = InputBox("Введите c", "Ввод данных")
        b = InputBox("Введите b", "Ввод данных")
        y = InputBox("Введите y", "Ввод данных")
        f = InputBox("Введите f", "Ввод данных")
        a = a / b
        x = x / y
        c = c / f
        If x = a And x = c And c = a Then
            MsgBox("Система имеет бесконечное к-во решений")
        Else
            MsgBox("Система НЕ имеет бесконечное к-во решений")
        End If
    End Sub
End Class