Yeni Başlayanlar için Visual Basic Egzersizleri-2

GİRİLEN SAYININ FAKTÖRİYELİNİ BULAN PROGRAM

Private Sub Form_Load()
Show
Dim a As Integer
a = InputBox("sayı giriniz")
s = 1
t = 1
git:
s = s + 1
t = t * s
If s < a Then GoTo git Else Print t
End Sub

GİRİLEN METİNİ 5 KEZ EKRANA YAZAN PROGRAM

Private Sub Form_Load()
Show
Dim a As String
a = InputBox("yazıyı yazın.")
git:
s = s + 1
Print a
If s < 5 Then GoTo git
End Sub

1-10 ARASINDAKİ SAYILARI TOPLAYAN PROGRAM

Private Sub Form_Load()
Dim t As Integer, s As Integer
Show
git:
s = s + 1
t = t + s
If s < 10 Then GoTo git Else Print t
End Sub

2-20 ARASINDAKİ ÇİFT SAYILARI TOPLAYAN PROGRAM

Private Sub Form_Load()
Dim t As Integer, s As Integer
Show
s = 2
git:
t = t + s
s = s + 2
If s <= 20 Then GoTo git Else Print t
End Sub

GİRİLEN SAYI 0 DAN BÜYÜKSE SAYININ KARESİNİ ALAN PROGRAM

Private Sub Form_Load()
Show
Dim a As Integer
a = InputBox("sayı giriniz.")
If a > 0 Then
c = a ^ 2
End If
Print c
End Sub

GİRİLEN ÖĞRENCİ NOTUNA GÖRE EKRANA “GEÇTİ”,”KALDI” YAZAN PROGRAM

Private Sub Form_Load()
Show
Dim a As Integer
a = InputBox("Öğrencinin notunu giriniz:")
If a >= 50 Then Print "geçti" Else Print "kaldı"
End Sub

GİRİLEN YAŞA GÖRE GENÇ ÇOCUK İHTİYAR BEBEK ORTA YAŞLI YAZAN PROGRAM

Private Sub Form_Load()
Show
Dim a As Integer
git:
a = InputBox("yaşı giriniz:")
If a < 5 And a > 0 Then
Print "bebek"
ElseIf a < 14 And a > 6 Then
Print "çocuk"
ElseIf a < 35 And a > 15 Then
Print "genç"
ElseIf a < 45 And a > 36 Then
Print "orta yaşlı"
Else
Print "İhtiyar"
End If
End Sub

SELECT CASE KULLANILARAK GİRİLEN YAŞA GÖRE GENÇ ÇOCUK İHTİYAR BEBEK ORTA YAŞLI YAZAN PROGRAM

Private Sub Form_Load()
Show
Dim a As Integer
a = InputBox("yaşı giriniz")
Select Case a
Case 0 To 5: Print "bebek"
Case 6 To 17: Print "çocuk"
Case 18 To 35: Print "genç"
Case 36 To 55: Print "orta yaşlı"
Case Else
Print "ihtiyar"
End Select
End Sub

NOT1:Visual Basicde kodlama yaparken bir alt satırdan devam edebilmek için “_” simgesi kullanılır.

NOT2:Bir işlemi yuvarlamak için raund(İŞLEM) kodu kullanılır.

TAMAMEN KENDİ ÇALIŞMAMDIR.DEVAMI GELECEKTİR.SEVGİ VE SAYGILARIMLA