vb basamak hesapla

[aLayıNaiSyaN]

visual basic basamak hesaplama kodları

Kodları form yazma alanına yazıp çalıştırınız.

Kod:

Private Sub form_load()
Show
Dim sayi As Integer
sayi = Val(InputBox("sayıyı giriniz"))
Select Case sayi
Case 0 To 9
Print "tek basamaklı"
Case 10 To 99
Print "iki basamaklı"
Case 100 To 999
Print "üç basamaklı"
Case 1000 To 9999
Print "dört basamaklı"
Case Else
Print "yanlış giriş"
End Select
End Sub