VBNET

VB.Net Örnek Uygulamalar
2 Kasım 2011
sayilar(1) = TxtSayi2.Text
sayilar(2) = TxtSayi3.Text
sayilar(3) = TxtSayi4.Text
‘Sıralama algoritması kullanılarak sayilar dizisi küçükten büyüğe
doğru sıralanıyor:
Do
For Loop1 = 0 To 3
Pos = Loop1
For Loop2 = Loop1 + 1 To 3
If sayilar(Loop2) < sayilar(Pos) Then
Pos = Loop2
End If
Next Loop2
If Pos Loop1 Then
Tmp = sayilar(Pos)
sayilar(Pos) = sayilar(Loop1)
sayilar(Loop1) = Tmp
End If
Next Loop1
enkucuksayi = 1000 * sayilar(0) + 100 * sayilar(1) + 10 *
sayilar(2) + sayilar(3)
enbuyuksayi = 1000 * sayilar(3) + 100 * sayilar(2) + 10 *
sayilar(1) + sayilar(0)
fark = enbuyuksayi - enkucuksayi
LstBuyukKucuk.Items.Add(enbuyuksayi.ToString + "-" +
enkucuksayi.ToString + "=" + fark.ToString)
End Sub
End Class
sayilar(0) = Strings.Mid(fark.ToString, 1, 1)
sayilar(1) = Strings.Mid(fark.ToString, 2, 1)
sayilar(2) = Strings.Mid(fark.ToString, 3, 1)
sayilar(3) = Strings.Mid(fark.ToString, 4, 1)
Loop Until fark = 6174
Tolga GÜYER Sayfa 38