vba6

gestione vari tipi di variabili e funzioni VAL("numero in stringa"),STR$(numero)

Private Sub CommandButton1_Click()
'vari tipi di variabili
'con VARIANT si possono assegnare tutti i tipi di dati
'sia numerici che stringa che booleani

Dim a, b, c, d As Variant
Dim intero As Integer
Dim reale As Double
Dim intero2 As Single
Dim booleano As Boolean
Dim booleano2 As Boolean
Dim stringa As String
Dim intero3 As Integer
Dim stringa2 As String
Dim reale2 As Double
Dim reale3 As Double

intero = 10
reale = 12.45
intero2 = 15
booleano = True
booleano2 = False
stringa = "testo vario"
a = 12
b = 15.56
c = True
d = "testo "

MsgBox (intero)
MsgBox (intero2)
MsgBox (reale)
MsgBox (booleano)
MsgBox (booleano2)
MsgBox (stringa)
MsgBox (a)
MsgBox (b)
MsgBox (c)
MsgBox (d)

stringa2 = "100 e testo e numero"
reale2 = Val(stringa2)
MsgBox (reale2)
intero3 = Val("150 testo")
MsgBox (intero3)
reale3 = Val("123.456 testo")
MsgBox (reale3)
stringa2 = Str$(150)
MsgBox (stringa2)

End Sub

creare PULSANTE per istruzioni:visualizzazione risultati con MSGBOX

inizio