pmate1
esci con testvbax.htm
tabelle per calcolo quadrato,
cubo, radice quadrata di interi positivi e negativi
assegnando inizio e modulo
Private Sub CommandButton1_Click()
Dim k As Integer
Dim s1, inizio, modulo, fine As Integer
inizio = Val(TextBox1)
modulo = Val(TextBox2)
fine = Val(TextBox3)
s1 = inizio
Dim radiceq As Single
For k = 1 To fine
If s1 > 0 Then
radiceq = Sqr(s1)
Else
radiceq = Sqr(s1 * (-1))
End If
ListBox1.AddItem (s1)
ListBox2.AddItem (s1 ^ 2)
ListBox3.AddItem (s1 ^ 3)
ListBox4.AddItem (radiceq)
s1 = s1 + modulo
Next k
ListBox1.AddItem ("......")
ListBox2.AddItem ("......")
ListBox3.AddItem ("......")
ListBox4.AddItem ("......")
End Sub
Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
End Sub