Private Sub Command1_Click()
c = Val(InputBox("Ââåäèòå çíà÷åíèå ÷èñëà c", "Ââîä çíà÷åíèé"))
Text1.Text = c
b = Val(InputBox("Ââåäèòå çíà÷åíèå ÷èñëà b", "Ââîä çíà÷åíèé"))
Text2.Text = b
If c > b Then
x = Format$(c / b, "0.0000")
Text3.Text = x
MsgBox "×èñëî à áîëüøå b, x=" & x, vbInformation, "Âû÷èñëåíèå âûðàæåíèÿ"
Else
x = Format$(b / c, "0.0000")
Text3.Text = x
MsgBox "×èñëî c ìåíüøå èëè ðàâíî b, x=" & x, vbInformation, "Âû÷èñëåíèå âûðàæåíèÿ"
End If
End Sub