For Döngüsü Kullanımı

[ibrahimkaya396]

Forma bir tane Command1 ekleyin ve Command1'in komut kısmına
Private Sub Command1_Click()
For i = 1 To 10
Print i
Next
End Sub
komutlarını yazın ve programı çalıştırın.

1 ile 10 arasındaki sayıları List1'e yazdırma
List1.AddItem i

Input Kullanarak Yazdırılacak Sayı miktarını belirleme
Private Sub Command1_Click()
Dim a
a = InputBox(sayı)
b = InputBox(sayı)
For c = a To b
Print c
Next
End Sub
komutlarını yazarak işlemi gerçekleştirin.


anlaşılmayan bi konu varsa yardımcı olabilirim.



Giriş İşlemi bunu form ları göstermek içinde kullanabilirsiniz Form2.show komutu ile

Private Sub Command1_Click()
If Text1 = "ali" And Text2 = "1234" Then
Label1 = "Giriş İşlemi Onaylı"
Else
Label1 = "İşlemde hata"
End If
End Sub