accetta solo positivi
richiesta di due numeri interi positivi:se non lo sono appare messaggio
per ripetere inserimento:se positivo si esegue istruzione(prodotto e radice)

solopositivi.ppt

creare due pulsanti(attivare,cancellare) due textbox,una listbox (giallo)
tre label(inserire testo informativo)

Private Sub commandbutton1_Click()

Rem accetta solo numeri positivi
Rem fornisce prodotto e radice quadrata
Dim a, b, x, y, prodotto As Integer
Dim radice As Long
a = TextBox1
b = TextBox2
If a < 0 Then
MsgBox ("deve essere positivo:riprova")
TextBox1 = ""
TextBox1.SetFocus
Else
x = a
End If
If b < 0 Then
MsgBox ("deve essere positivo:riprova")
TextBox2 = ""
TextBox2.SetFocus
Else
y = b
End If
If x > 0 And y > 0 Then
prodotto = x * y
radice = Sqr(prodotto)
MsgBox ("prodotto = " & prodotto & " radiceq= " & Sqr(prodotto))
ListBox1.AddItem (prodotto & "...." & radice)
End If
End Sub

Private Sub commandbutton2_Click()
TextBox1 = ""
TextBox2 = ""
End Sub