denso

misure di densità

Option Explicit

Private Sub CommandButton1_Click()
Dim risposta, Hx, Hh, Dx As Double
TextBox3.SetFocus
risposta = TextBox3.Text
Hh = 20
Hx = 40
Dx = Hh / Hx
If risposta = Dx Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:era " & Dx
End If

End Sub


Private Sub MultiPage1_Change()

End Sub

Private Sub UserForm_Click()

End Sub

ritorna