[VisualBasic] Größte Zahl in einem Array finden

Tilux · 5. August 2007

Größte Zahl in einem Array finden

Ich hab folgende Frage.

Wie kann ich die größte/kleinste Zahl innerhalb eines eindimensionalen Arrays finden. Es handelt sich hierbei um ganze Zahlen. Programmiersprache ist VB 2005

Anzeige

Knusperkeks · 5. August 2007

AW: Größte Zahl in einem Array finden

Jetzt mal aus dem kopf:

Code:

dim groesstezahl as integer
groesstezahl = 0
for i = 0 to ubound(array)
 if array(i) > groesstezahl then groesstezahl = array(i)
Next i
msgbox(groesstezahl)

Knusperkeks

Gibbon · 5. August 2007

AW: Größte Zahl in einem Array finden

Dafür gibt es "LBound" und "UBound". LBound(Array()) gibt dir den kleinsten Index des Arrays, UBound(Array()) den größten. Hier ein Beispiel (VB6):

Code:

Private Sub Form_Load()
 Dim Test(0 To 1) As Integer
 
 Test(0) = 1
 Test(1) = 2
 
 MsgBox Test(LBound(Test())) 'Da kommt '1' raus
 MsgBox Test(UBound(Test())) 'Da kommt '2' raus
End Sub

Falls du nicht den kleinsten Index, sondern die kleinste Zahl im Array suchst (ich weiß nicht genau, ob du den Index oder die Zahl suchst^^), mach das doch mit einer For-Schleife:

Code:

Private Sub Form_Load()
 Dim GrößteZahl As Integer
 
 For i = 0 To UBound(Array())
 If Array(i) > GrößteZahl Then GrößteZahl = Array(i)
 Next
 
 MsgBox "Die größte Zahl ist " & GrößteZahl
End Sub

Natürlich muss das Array "Array" vorher deklariert werden.

Tilux · 5. August 2007

AW: Größte Zahl in einem Array finden

Danke für eure Mühe. Die BW an Gibbon geht raus wenn ich dich wieder bewerten kann. Ich habs mitterweile selbst herausgefunden, aber die Lösungsmöglichkeiten schaue ich mir nochmal an.

Knusperkeks · 5. August 2007

AW: Größte Zahl in einem Array finden

[X] Erledigt

Knusperkeks

Nützliche Suchen

[VisualBasic] Größte Zahl in einem Array finden

Videos zum Themenbereich