ECUACIÓN DE PRIMER GRADO EN VISUAL BASIC 6.0 ECUACIÓN DE PRIMER GRADO EN VISUAL BASIC 6.0 Aplicación que resuelve una ecuación de primer grado: Código completo: Dim a, b, num As Double ---------------------------------------------- Private Sub cmdborrar_Click() txta.Text = "" txtnum.Text = "" txtb.Text = "" lblr1.Caption = "" lblr2.Caption = "" txta.SetFocus End Sub ---------------------------------------------- Private Sub cmdnegativo_Click() If (txta.Text = "") Or (txtb.Text = "") Or (txtnum.Text = "") Then MsgBox "Sin datos no hay cálculos", vbCritical, "Prohibido" txta.Text = 0 txtb.Text = 0 txtnum.Text = 0 End If If (txta.Text = 0) Or (txtb.Text = 0) Or (txtnum.Text = 0) Then MsgBox "Por favor ingrese un valor diferente de cero", vbCritical, "Prohibido" End If a = txta.Text b = txtb.Text num = txtnum.Text txta.Text = "...