Çarpım Tablosu Yapmak(visual basic)

EYUP_CEZA Cuma Ekim 24, 2008 6:01 pm

İlk Başta bir adet Command 1 adet list ekleyin

List1'in özelliklerinden Heigth(yükseklik)=2010
Width(genişlik)=6975 olarak ayarlayın sonra kod bölümüne geçip hepsini silin aşağıdaki kodları yazın.

Kod:

Dim i, j As Integer
Private Sub Command1_Click()
For i = 1 To 10
For j = 1 To 10
tp = i * j
List1.AddItem i & "x" & j & "=" & tp
Next
Next

End Sub

Private Sub Form_Load()

End Sub