Çarpım Tablosu Yapmak(visual basic)

Aşağa gitmek

Çarpım Tablosu Yapmak(visual basic)

Mesaj  EYUP_CEZA Bir 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
avatar
EYUP_CEZA
SINIF BAŞKANI
SINIF BAŞKANI

Mesaj Sayısı : 309
Yaş : 25
Nerden : evden :D
Kayıt tarihi : 30/09/08

Kullanıcı profilini gör http://pckurdu.yetkinforum.com

Sayfa başına dön Aşağa gitmek

Sayfa başına dön


 
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz