Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Hilfe!!!
Autor: rampage
Datum: 21.06.04 11:39
Das ist mein Programm: Aber es gibt mir nicht die kleinste Zahl aus: Bitte Helft mir: Private Sub Command1_Click() Dim a(1 To 12) As Integer Dim i As Integer Dim zeile, zeile1, zeile2 As String Dim z, r As Integer List1.Clear zeile = "a:" For i = 1 To 12 a(i) = Int(Rnd * 199) - 99 If a(i) > 0 Then zeile = zeile & " + " & a(i) & " ;" Else zeile = zeile & " " & a(i) & " ;" End If Next i List1.AddItem zeile List1.AddItem "" i = 0 zeile1 = "positve Zahlen:" zeile2 = "negative Zahlen:" For i = 1 To 12 If a(i) > 0 Then zeile1 = zeile1 & a(i) & "," Else zeile2 = zeile2 & a(i) & "," End If Next i List1.AddItem zeile1 List1.AddItem "" List1.AddItem zeile2 i = 0 r = 0 For i = 1 To 12 If a(i) > 0 Then r = r + 1 End If Next i Label1.Caption = "Postive Elemente: " & r klZ = Array(0) For i = 1 To 12 If klZ > Array(i) Then klZ = Array(i) End If Next i Label2.Caption = "Kleinste Zahl : " & klZ End Sub

Hilfe!!!	371	rampage	21.06.04 00:25
Re: Hilfe!!!	234	Thoro	21.06.04 01:27
Re: Hilfe!!!	240	rampage	21.06.04 11:39
Re: Hilfe!!!	259	N00bie	21.06.04 12:12

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