| Dim x As Integer, String, Long, Single, Double, Currency, LBound(), UBound() |
| |
| |
| Deklarationen | Folgende verkürzte Befehle sind möglich: |
| Dim b As Integer | Dim b% |
| Dim b As String | Dim b$ |
| Dim b As Long | Dim b& |
| Dim b As Single | Dim b! |
| Dim b As Double | Dim b# |
| Dim b As Currency | Dim b@ |
| |
| Unechte Logische Verknüpfung: | Echte Logische Verknüpfung: |
| If x = 5 Then | y = (x = 5) |
| y = True | |
| Else | |
| y = False | |
| End If | |
| |
| Null-Längen-$tring "falsch" ermitteln: | Null-Längen-$tring "richtig" ermitteln: |
| If x$ = "" | If Len(x$) = 0 |
| |
| Unechter Logischer Vergleich: | Echter Logischer Vergleich: |
| If x = True Then | If x Then |
| |
| Von Wahr auf Falsch (umständlich) schalten: | Von Wahr auf Falsch (schneller) schalten: |
| If x = True Then | x = Not x |
| x = False | |
| Else | |
| x = True | |
| End If | |
| |
| Loop mit Array falsch (Variable muss jedesmal in der | Loop mit Array richtig (Variable wird nur ein mal, also |
| Schleife neu initialisiert werden) | vor dem Loop, initialisiert) |
| Function Total(arr()) As Long | Function Total(arr()) As Long |
| Dim i% | Dim i%, LB As Long, UB As Long |
| For i = LBound(arr) To UBound(arr) | LB = LBound(arr) |
| Total = Total + arr(i) | UB = UBound(arr) |
| Next i | For i = LB To UB |
| End Function | Total = Total + arr(i) |
| LBound(var) sowie UBound(var) funktionieren nur, | Next |
| wenn die Variable var in einer Function übergeben wird! | End Function |
| |
| Datentyp Double | |
| Sub Pi_Double() | |
| Const Pi = 3.14159 | Immer wenn ein Punkt vorhanden ist, wird als Double deklariert |
| Const C1 = 2 * Pi | |
| Const C2 = Pi / 8 - 0.3 | |
| MsgBox C1 | Ergebnis 6,28318 |
| MsgBox C2 | Ergebnis 0,09269875 |
| End Sub | |
| |
zurück