Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Was ist daran falsch?
Autor: milotti
Datum: 06.03.02 14:22
Ich hab hier mal den Code aufgeschrieben. Was ist daran falsch? Sobald ich das Programm starte zeigt der mir Type mismatch an und Runtime Error" 13" Private Type q_type q As String a As String b As String c As String d As String R As String End Type Private ques(1 To 200) As q_type Dim x Private Sub Form_Load() x = Fix(Rnd() * 2 + 1) Open "fragenfragen.100" For Input As #1 i = 1 While Not EOF("fragenfragen.100") Input #1, ques(i).q Input #1, ques(i).a Input #1, ques(i).b Input #1, ques(i).c Input #1, ques(i).d Input #1, ques(i).R i = i + 1 Wend Label1.Caption = ques(x).q Label2.Caption = ques(x).a Label3.Caption = ques(x).b Label4.Caption = ques(x).c Label5.Caption = ques(x).d End Sub Vielen Dank im Voraus.

Was ist daran falsch?	64	milotti	06.03.02 14:22
Re: Was ist daran falsch?	265	Dieter	06.03.02 14:32
hat sich geklärt	40	milotti	06.03.02 14:50

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen