Duyurular: 01 Aralık 2008, 23:06:15
Merhaba, Ziyaretçi. Lütfen giriş yapın veya üye olun. *

Çarpım Tablosu
Sayfa: [1]   Aşağı git
  Yazdır  

  Çarpım Tablosu
Gönderen Mesaj
BY_DEM@N
System Root
*

KARMA: 5708
Online Online

Mesaj Sayısı: 4133



WWW
« : 18 Mayıs 2008, 18:25:53 »

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
Logged


Register or Login
Bunu okumadan Forumda Herhangi Bir Konuya cvp Yazmayınız....


Sayfa: [1]   Yukarı git
  Yazdır  

 

Gitmek istediğiniz yer: