| Mod-Operator, WAHR, FALSCH |
| siehe auch Seite 065 |
| |
| Private Sub cmdRechnen_Click() | Ausgabemöglichkeit 1: per Klick auf CommandButton. |
| Dim j% | |
| j = Val(txtEingabe.Text) | |
| If j Mod 4 = 0 And j Mod 100 <> 0 Or j Mod 400 = 0 Then | Es wird der Wahr- oder Falschwert ermittelt und im |
| lblAusgabe.Caption = "Schaltjahr" | Label ausgegeben. |
| Else | |
| lblAusgabe.Caption = "No Leap Year" | |
| End If | |
| End Sub | |
 | |
|
|
|
|
|
| Private Sub txtEingabe_Change() | Ausgabemöglichkeit 2: per TextBox_Change. |
| Dim j%, x$ | |
| j = Val(txtEingabe.Text) | |
| x = j Mod 4 = 0 And j Mod 100 <> 0 Or j Mod 400 = 0 | Es wird der Wahr- oder Falschwert ermittelt und im |
| lblAusgabe.Caption = x | Label ausgegeben. |
| End Sub | |
 | |
|
|
|
|
| . |
| |
zurück