Formelsammlung für Klassenarbeit Nr. 2

                                Formelsammlung

Option Explicit                         ' Erzwingt die explizite Deklaration aller
                                        ' Variablen in einer Datei
Option Base 1                           ' Setzt Array Start Index von 0 auf 1
_____________________________________________________________________________________________
Sub KA2()                               ' Programmanfang
_____________________________________________________________________________________________
Dim VarX(2), VarY,..    As Double       ' Dimensionierung der Variablen
                                        ' (2)= höchster Index
                        As Double       ' Dezimalzahl mit insg. 16 Stellen
                        As Integer      ' Ganze Zahlen -32.768...32.767
                        As Variant      ' wie Double oder Text
_____________________________________________________________________________________________
VarX = 0.19                             ' Der Variablen VarX wird Wert 0.19 zugewiesen
VarY = InputBox("Text")                 ' Text + Eingabe der VarY Variablen
VarZ = VarY * (Zahl + VarX)             ' Rechnung mit Var untereinander
VarV = VarV & VarW & "Text" & vbNewLine ' VarV wird nicht gelöscht sondern erweitert

VarW = Array(0, 0.07, 0.19)             ' VarW werden verschiedene Werte oder Text zugewiesen
VarW(0) = 7                             ' VarW mit Index 0 wird der Wert 7 zugewiesen
VarW(1) = 9                             ' VarW mit Index 1 wird der Wert 9 zugewiesen
VarZ = VarY * (1 + VarW(VarX))          ' Verwendung von VarW(VarX) mit Index
_____________________________________________________________________________________________
Cells(2, 3) = VarV                      ' 2 = Zeile(2)  3 = Spalte(C)
                                        ' VarV wird in die Zelle geschrieben
Cells(2, 3) .Font.Name = "timesroman"   ' Schriftart
Cells(2, 3) .Font.Size = 30             ' Schriftgröße
_____________________________________________________________________________________________
MsgBox "Text"                           ' MsgBox mit Text
MsgBox (Cells(2, 3) + 5) * 12           ' MsgBox mit Ergebnis
MsgBox "Ergebnis:" & vbNewLine & _      ' MsgBox mit Text + Var
        vbNewLine & "0 für Wert" & _   ' vbNewLine -> Zeilenumbruch
        vbNewLine & ...
                                        ' _ Code wir in der nächsten Zeile vortgeführt
_____________________________________________________________________________________________
GoTo Z                                  ' Spring zur Sprungadresse Z
Z:                                      ' Sprungadresse Z:
_____________________________________________________________________________________________
If VarW < 2 Then                        ' True oder False Abfrage oder
If VarW < 2 Then or VarW > 2 Then       ' Erweiterung einer Abfrage
                                        ' Vergleichsoperatoren (=/</>/<=/>=/<>)

    ElseIF                              ' Zweite True oder False Abfrage

End If                                  ' Ende der If Abfrage
_____________________________________________________________________________________________
Do Until eingabe >= 1 And eingabe <= 6  ' Schleife wird verlassen wenn der Ausdruck
                                        ' True ergibt    1----6
Loop                                    ' Ende der Do Schleife

Do While eingabe < 1 Or eingabe > 6     ' Schleife wird verlassen wenn der Ausdruck
                                        ' False ergibt   ---<1 6>---
Loop                                    ' Ende der Do Schleife
_____________________________________________________________________________________________
For VarX = 1 To 2                       ' Vorgang wird 2x durchgeführt
    VarY = 3 - VarX                     ' Berechnung der Durchläufe
    MsgBox "Noch" & VarY & "Durchläufe" ' VarY zeigt die Anzahl der Durchläufe an
Next VarX                               ' Ende der For-Next Schleife
_____________________________________________________________________________________________
End Sub                                 ' Programmende