decimali
esercitazione con visual basic su powerpoint per sintassi e visualizzazione
con cifre grandi, decimali, potenze del 10 positive e negative
esempio con dati codificati e dati da inserire con tastiera

Rem esempio senza dichiarazione di variabili(automatico Variant)
Rem notazione numerica come potenza del 10
Rem esponente positivo e negativo
Rem notare equivalenza 1e3 ...10e2
Rem notare diversa notazione nella visualizzazione
Rem 0.000018......oppure (per cifre molto grandi)con 1,8E-15..
rem notare # per numeri inseriti usando notazione potenziale positiva, non negativa

Private Sub CommandButton1_Click()
Rem esempio senza dichiarazione di variabili(automatico Variant)
Rem notazione numerica come potenza del 10
Rem esponente positivo e negativo
Rem notare equivalenza 1e3 ...10e2
Rem notare diversa notazione nella visualizzazione
Rem 0.000018......oppure (per cifre molto grandi)con 1,8E-15..
Const k = " = "
Const h = "------------------"
q = 1000#
p = 1000#
q1 = 0.001
p1 = 0.001
ListBox1.AddItem (q & k & " 1e3")
ListBox1.AddItem (p & k & " 10e2")
ListBox1.AddItem (q1 & k & " 1e-3")
ListBox1.AddItem (p1 & k & " 10e-4")
ListBox1.AddItem (h)
a = 1000
b = 10000
c = 100000
d = 1000000
e = 10000000
f = 100000000
a1 = "1000"
bs = "10000"
cs = "100000"
ds = "1000000"
es = "10000000"
fs = "100000000"
Rem notazione con 1en 10en
aaa = 1000# '1e3
bbb = 10000# '1e4
ccc = 100000# '1e5
ddd = 1000# '10e2
eee = 10000# '10e3
fff = 100000# '10e4
ListBox1.AddItem (h)
ListBox1.AddItem (a & k & a1)
ListBox1.AddItem (b & k & bs)
ListBox1.AddItem (c & k & cs)
ListBox1.AddItem (d & k & ds)
ListBox1.AddItem (e & k & es)
ListBox1.AddItem (f & k & fs)
ListBox1.AddItem (h)
ListBox1.AddItem (aaa & k & "1e3")
ListBox1.AddItem (bbb & k & "1e4")
ListBox1.AddItem (ccc & k & "1e5")
ListBox1.AddItem (ddd & k & "10e2")
ListBox1.AddItem (eee & k & "10e3")
ListBox1.AddItem (fff & k & "10e4")
Rem notazione con 1e-n 10e-n
aa = 0.001 '1e-3
bb = 0.0001 '1E-4
cc = 0.00001 '1e-5
dd = 0.000001 '1e-6
ee = 0.0000001 '1e-7
ff = 0.00000001 '1e-8
aas = "1e-3"
bbs = "1e-4"
ccs = "1e-5"
dds = "1e-6"
ees = "1e-7"
ffs = "1e-8"
ListBox1.AddItem (aa & k & aas)
ListBox1.AddItem (bb & k & bbs)
ListBox1.AddItem (cc & k & ccs)
ListBox1.AddItem (dd & k & dds)
ListBox1.AddItem (ee & k & ees)
ListBox1.AddItem (ff & k & ffs)
ListBox1.AddItem (h)
Rem notazione per numeri decimali molto piccoli
Rem es 1.8 * 10^-5 >>> 18*10^-6 >>> 0.000018
Rem scrittura come decimale
kk = 0.000018 '0.000018
ListBox1.AddItem (kk & k & "0.000018")
Rem scrittura come potenza del 10
k1 = 1.8 * 0.00001 '1.8*1e-5
ListBox1.AddItem (k1 & k & "1.8*1e-5")
k2 = 18 * 0.000001 '1.8*1e-6
ListBox1.AddItem (k2 & k & "18*1e-6")

End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton3_Click()
Rem inserimento numeri da tastiera
Rem usare Val per trasformare da stringa(text) in numero
x1 = Val(TextBox1.Text)
x2 = Val(TextBox2.Text)
x3 = Val(TextBox3.Text)
ListBox1.AddItem (x1)
ListBox1.AddItem (x2)
ListBox1.AddItem (x2)
End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Sub

vedi decimali.ppt