For Nex ile Çarpım Tablosu

[yunuse...@gmail.com]

Alıntıdır ......
___________________________________________>
---------------------------------------------------------------------------
Dim carpim, i, j As Integer

Private Sub Command1_Click()
For i = 1 To 10
Select Case i
Case 1:
For j = 1 To 10
carpim = i * j
List1.AddItem i & " * " & j & " = " & carpim
Next j
Case 2:
For j = 1 To 10
carpim = i * j
List2.AddItem i & " * " & j & " = " & carpim
Next j
Case 3:
For j = 1 To 10
carpim = i * j
List3.AddItem i & " * " & j & " = " & carpim
Next j
Case 4:
For j = 1 To 10
carpim = i * j
List4.AddItem i & " * " & j & " = " & carpim
Next j
Case 5:
For j = 1 To 10
carpim = i * j
List5.AddItem i & " * " & j & " = " & carpim
Next j
Case 6:
For j = 1 To 10
carpim = i * j
List6.AddItem i & " * " & j & " = " & carpim
Next j
Case 7:
For j = 1 To 10
carpim = i * j
List7.AddItem i & " * " & j & " = " & carpim
Next j
Case 8:
For j = 1 To 10
carpim = i * j
List8.AddItem i & " * " & j & " = " & carpim
Next j
Case 9:
For j = 1 To 10
carpim = i * j
List9.AddItem i & " * " & j & " = " & carpim
Next j
Case 10:
For j = 1 To 10
carpim = i * j
List10.AddItem i & " * " & j & " = " & carpim
Next j
End Select
Next i
End Sub