Başlangıç > Kodlar > Visual Basic 6 ile çarpım tablosu

Visual Basic 6 ile çarpım tablosu


List Kutusunun İçerisine Çarpım Tablosu


İ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.

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

kolay gelsin...
Ahmetcyl


TD Software


Reklamlar
  1. Selahattin
    22/03/2012, 13:40

    arkadaşım dim ile yer ayırtığımızda hata veriyor yer ayırtmadığımızda normal olarak butona listeleyince çalışıyor yer ayırtmaya gerek yok…
    Dim’e gerek yok..!
    örnek buton için kod:
    For i = 1 To 10
    For j = 1 To 10
    ListBox1.Items.Add(i & ” x ” & j & ” = ” & i * j)
    Next
    ListBox1.Items.Add(“”)
    Next

    Beğen

  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: