| Type, Array |
| |
| |
| Private Type Tspieler | Nutzerdefinierter Datentyp |
| name$ * 20 | |
| tore% | |
 | |
| End Type | |
| |
| Private Type Tmannschaft | |
| verein$ * 30 | |
| spieler(1 To 11) As Tspieler | |
| End Type | |
| |
| Private FBundesliga(1 To 18) As Tmannschaft | Definieren der Strukturvariablen |
| |
| |
| Private Sub Form_Load() | |
| FBundesliga(1).verein = "Bayern München" | Initialisierung der Daten |
| FBundesliga(1).spieler(1).name = "Toni Müller" | |
| FBundesliga(1).spieler(1).tore = 74 | |
| FBundesliga(1).spieler(2).name = "Hansi" | |
| FBundesliga(1).spieler(2).tore = 30 | |
| |
| FBundesliga(2).verein = "1860 München" | |
| FBundesliga(2).spieler(1).name = "Robert" | |
| FBundesliga(2).spieler(2).tore = 50 | |
| End Sub | |
| |
| Private Sub cmdRechne_Click() | |
| Dim i%, k%, tsumme% | |
| Me.CurrentX = 100 | |
| Me.CurrentY = 100 | |
| tsumme = 0 | |
| For i = 1 To 18 | |
| For k = 1 To 11 | |
| tsumme = tsumme + FBundesliga(i).spieler(k).tore | Berechnung der Torsumme |
| Next k | |
| Next i | |
| Me.Print "Anzahl der gesamten in der Saison 2006/2007 geschossenen Tore: "; tsumme |
| End Sub | |
| |
zurück