sintassi per funzioni varie con visual basic

scrivere 100 e cliccare quadrato

scrivere padovano e cercare lunghezza LEN

cliccare su tempo per avere ora

 

 

Private Sub anno_Click()
Label1.Caption = Year(Date)
End Sub
Private Sub datagiorno_Click()
Label1.Caption = Date
End Sub
Private Sub esponenziale_Click()
Label1.Caption = Exp(cifra)
End Sub
Private Sub finaleparola_Click()
Label1.Caption = Right$(parola, 3)
End Sub
Private Sub giorno_Click()
Label1.Caption = Day(Date)
End Sub
Private Sub inizioparola_Click()
Label1.Caption = Left$(parola, 3)
End Sub
Private Sub logaritmodec_Click()
Label1.Caption = Log(cifra) / Log(10)
End Sub
Private Sub logaritmonat_Click()
Label1.Caption = Log(cifra)
End Sub
Private Sub OptionButton1_Click()
End Sub
Private Sub lunghezza_Click()
Label1.Caption = Len(parola)
End Sub
Private Sub mese_Click()
Label1.Caption = Month(Date)
End Sub
Private Sub minuti_Click()
Label1.Caption = Minute(Time)
End Sub
Private Sub Ora_Click()
Label1.Caption = Hour(Time)
End Sub
Private Sub partemedia_Click()
Label1.Caption = Mid$(parola, 2, 3)
End Sub
Private Sub quadrato_Click()
Label1.Caption = cifra ^ 2
End Sub
Private Sub radice_Click()
Label1.Caption = Sqr(cifra)
End Sub
Private Sub assoluto_Click()
Label1.Caption = Abs(cifra)
End Sub
Private Sub secondi_Click()
Label1.Caption = Second(Time)
End Sub
Private Sub segno_Click()
Label1.Caption = Sgn(cifra)
End Sub
Private Sub seno_Click()
Label1.Caption = Sin(cifra * 3.14 / 180)
End Sub
Private Sub spazids_Click()
Label1.Caption = Trim(parola)
End Sub
Private Sub spaziodestra_Click()
Label1.Caption = RTrim(parola)
End Sub
Private Sub spazisinistra_Click()
Label1.Caption = LTrim(parola)
End Sub
Private Sub tempo_Click()
Label1.Caption = Time()
End Sub
Private Sub unione_Click()
Label1.Caption = parola & " e " & parola
End Sub
Private Sub UserForm_Click()
End Sub