Input Box und Message Box: InputBox, MsgBox | |
Sub InputBox1() | Eingabewert multiplizieren |
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() | Passwort prüfen |
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 |
Mehr Tipps: Einfache Variablen-Deklarationen
Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!
Nutzen Sie unsere Suchfunktion:
Nach oben
Sitemap
Impressum
Datenschutz