Arkadaşlar Bu Konumda Basit Programlar Yapmayı Anlatacağım

Carpım Tablosu İle Başlayalım

9 adet command buton yerleştir ve sonra Kodu Yapıştır

Private Sub Command1_Click()
Form2.Show
Form2.Caption = "1'ler"
For i = 1 To 10

Form2.Print 1; "*"; i; "="; 1 * i
Next i
End Sub

Private Sub Command2_Click()
Form2.Show
Form2.Caption = "2'ler"

For i = 1 To 10
Form2.Print 2; "*"; i; "="; 2 * i
Next i
End Sub

Private Sub Command3_Click()
Form2.Show
Form2.Caption = "3'ler"
For i = 1 To 10
Form2.Print 3; "*"; i; "="; 3 * i
Next i
End Sub

Private Sub Command4_Click()
Form2.Show
Form2.Caption = "4'ler"
For i = 1 To 10
Form2.Print 4; "*"; i; "="; 4 * i
Next i
End Sub

Private Sub Command5_Click()
Form2.Show
Form2.Caption = "5'ler"
For i = 1 To 10
Form2.Print 5; "*"; i; "="; 5 * i
Next i
End Sub

Private Sub Command6_Click()
Form2.Show
Form2.Caption = "6'lar"
For i = 1 To 10
Form2.Print 6; "*"; i; "="; 6 * i
Next i
End Sub

Private Sub Command7_Click()
Form2.Show
Form2.Caption = "7'ler"
For i = 1 To 10
Form2.Print 7; "*"; i; "="; 7 * i
Next i
End Sub

Private Sub Command8_Click()
Form2.Show
Form2.Caption = "8'ler"
For i = 1 To 10
Form2.Print 8; "*"; i; "="; 8 * i
Next i
End Sub

Private Sub Command9_Click()
Form2.Show
Form2.Caption = "9'lar"
For i = 1 To 10
Form2.Print 9; "*"; i; "="; 9 * i
Next i
End Sub

Evet Arkadaşlar Kodları Tam Almadığınız Surece Sorunlar Cıkar
O yuzden Kopyala Yapıştır Yaparken Hızl Hızlı Yapmayın

Şimdide Asal Sayı Bulucu Yapalım

Forma 1 adet Textbox ve 1 Command Button Ekliyorz Sonra Kodlarımızı Ekliyoruz

Private Sub Command1_Click()
Dim sayı As Double
a = 2
sayı = Text1.Text
If sayı