| InputBox, MsgBox |
| |
 | |
| Sub InputBox1() | |
| Dim a As Integer | |
| Dim B% | |
| Dim c% | |
| a = 10 | |
| B = InputBox("Geben Sie den Wert ein") | |
| c = a * B | Multipliziert den Eingabewert mal 10. |
| MsgBox c | Ergebnis steht in einer Messagebox. |
| End Sub | |
| |
| Sub InputBox2() | |
| Dim a As String, B As String | |
| a = "guttag" | |
 | B = InputBox("Bitte geben Sie das Passwort ein") | | |
| If B = a Then | |
| MsgBox "Richtig" | |
| Else | |
| MsgBox "Falsch" | |
| End If | |
| End Sub | |
| |
| |
| |
| |
| |
| |
| |
zurück