vb

[burcutemir]

10 elemanli bir diziye kullanici veri girisi yapsin dizinin en buyuk elemanini bulsun??
visual basic 2005

Kodları calıştırabildim istedigim buydu ;


Public Class Form1
Dim i As Integer
Dim sayi(9) As Integer
Dim buyuk As Integer
Dim kucuk As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To 9
sayi(i) = InputBox("sayı giriniz")
Next i
kucuk = sayi(0)
For i = 1 To 9
If sayi(i) < kucuk Then
kucuk = sayi(i)
End If
Next i
MsgBox(" en k&#252;&#231;&#252;k say&#305; " & kucuk)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For i = 0 To 9
sayi(i) = InputBox("say&#305; giriniz")
If sayi(i) > buyuk Then
buyuk = sayi(i)
End If
Next i
MsgBox("en b&#252;y&#252;k say&#305; " & buyuk)
End Sub
End Class

 

[Orion1]

Excelde böyle bir şey yapardım.Vb'yede uyar sanırım.Size bir fikir verebilir sanırım.

Dim buyuk As Double, i As Byte, k As Long
redim myarr(1 to 10,1 to 100)
    For i = 1 To 10
        For k = 1 To UBound(myarr, 2)
            If myarr(i, k) > buyuk Then
                buyuk = myarr(i, k)
            End If
        Next k
    Next i
    MsgBox "En büyük değer..: " & buyuk