tabulatore

uso di setfocus, if, calcoli matematici

si vede dalla immagine ( e dal codice) che si devono creare
2 pulsanti (nome automatico, inserire testo informativo)
una casella testo (nome automatico)
6 etichette (nome automatico, inserire testo informativo)
(formattazione, colore facoltativi)

codice da copiare e incollare
per vedere ppt

Private Sub CommandButton1_Click()
Dim x As Integer
x = TextBox1.Text
If x <= 0 Then
Label5 = SetFocus
Label5.Caption = " valore assoluto = " & Abs(x)
End If
If x > 0 Then
Label1.Caption = " radice =" & Sqr(x)
Label2.Caption = " x*x = " & x * x
Label3.Caption = " x + 20 = " & x + 20
Label4.Caption = " x + 10 = " & x + 10
End If
TextBox1.SetFocus
End Sub

Private Sub CommandButton2_click()
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
TextBox1 = SetFocus
End Sub

si deve inserire un numero:se questo è negativo si procede si visualizza
il risultato nella label5, altrimenti vengono visualizzati 4 risultati nelle precedenti
cancellare tutto con il pulsante