Visual Basic'te Çarpım Tablosu Yapma

Bu dersimizde Visual Basic'e yeni başlayanlar için kolay bir çarpım tablosu yapalım.

Bu dersimizde Visual Basic'e yeni başlayanlar için kolay bir çarpım tablosu yapalım.

Arkadaşlar, bunun için sadece bir command button kullanıyoruz ve aşağıdaki kodları içine yazıyoruz:


Private Sub Command1_Click()

Command1.Visible = False

Dim i, j As Integer

    For i = 1 To 10

    For j = 1 To 10

Print i; "x"; j; "="; i * j

Next j

Print " "

Next i

End Sub

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

1 tane text kutusu ve ondan kopyala yapıştır ile 9 tane daha list kutusu olusturulur ve hepsinin indisi farklı olur ve bu indisle kod kısmına for i=0 to 9 for j=0 to 9 list1(i).additem i & "x" & j & "=" & i*j next j next i bu biraz daha güzel ve düzgün olur sanırım

Yukarı Git