| If, Then, Else, End If |
| |
| |
| Private Sub Form_Load() | |
| a = 100: b = 200: c = 300: d = 400: e = 500: f = 600 | Variablen Werte zuweisen. |
 | |
| mySum = a + b + c + d + e + f | Die Summe von a bis f ergibt normal 2100. |
| MsgBox mySum | |
| |
| If a = b Then | Prüfungen auf Gleichheit. |
| If c = d Then | |
| a = d | |
| Else | |
| a = c | |
| End If | |
| Else | Da die obigen Prüfungen Ungleichheiten ergaben, wird |
| a = b | hier der Variablen a der Wert 200 zugewiesen. |
| If f = e Then | |
| a = f | |
| Else | |
| a = e | Zuletzt wird der Variablen a der Wert 500 zugewiesen. |
| End If | |
 | |
| |
| mySum = a + b + c + d + e + f | Die neue Endsumme ist somit 2500. |
| MsgBox mySum | |
| |
| Unload Me | |
| End Sub | |
| |
zurück