Çarpım Tablosu

Bu program 1 - 10 a kadar olan sayıların çarpım tablosunu ekranda gösteriyor.
form kısmına yazılacak kısım:
Dim sayi As Byte
Dim i As Byte

Dim carpim As Integer

Private Sub Command1_Click()
carpim = 0
Cls
For i = 1 To 10
us carpim, sayi, i
Print sayi; "*"; i; "="; carpim
Next i
End Sub



Private Sub Command2_Click()
cevap = MsgBox("eminmisiniz", 4 + 32 + 0, "çıkış")
If cevap = 6 Then
zc = MsgBox("programdan çıkıyorsunuz", 0 + 64 + 0, "TEBRİKLER")
End
End If
End Sub

Private Sub List1_Click()
sayi = List1.Text

End Sub


modül kısmına yazılması gereken kısım:

Sub carp(a, b, i)
a = b * i

End Sub