TORNILLOS DEFECTUOSOS

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACIÓN

Option Explicit
Dim Td, Tp As Integer


Private Sub btnCalcular_Click()
Td = Val(Me.txttd.Text)
Tp = Val(Me.txttp.Text)
If Td < 200 Then
Me.txtgrad.Text = "grado 6"
End If
If Tp > 10000 Then
Me.txtgrad.Text = "grado 7"
End If
If Td < 200 And Tp > 10000 Then
Me.txtgrad.Text = "grado 8"
Else
Me.txtgrad.Text = "grado 5"
End If
End Sub