| InputBox, Modul |
| |
| |
| Const pmax = 5 | Max. Anzahl Personen. |
| |
| Private Type person | Typdeklaration für Strukturvariable. |
| name As String * 20 | Max. 20 Zeichen. |
| jahr As Integer | |
| student As Boolean | Nur Wahr oder Falsch-Wert möglich. |
| End Type | |
| |
| Dim persList1(1 To pmax) As person | Array aus Strukturvariablen deklarieren. |
| Dim pos% | Datensatznummer. |
| Dim titel$ | |
| |
| Sub eingeben() | InputBox an Speicher. |
| titel = "Eingabe der " & Str$(pos) & ".ten Person!" |
| persList1(pos).name = InputBox("Namen eingeben!", titel, persList1(pos).name) |
| persList1(pos).jahr = Val(InputBox("Jahr eingeben!", titel, persList1(pos).jahr)) |
| persList1(pos).student = InputBox("Student ? (True/False)", titel, persList1(pos).student) |
| End Sub | |
| |
| |
| |
| |
| |
| |
| |
| |
| Private Sub Main() | Programmstart mit "Endlosschleife" |
| ma1: | |
| For pos = 1 To pmax | Array füllen. |
| Call eingeben | Ruft die InputBox nicht nur zur Eingabe, sondern auch |
| Next pos | zur Ausgabe auf! |
| If MsgBox("Programm beenden", 36) = 6 Then Exit Sub Else GoTo ma1 |
| End Sub | |
| |