Türkiyenin En Yeni Hack Sitesi


 
AnasayfaSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 çarpım taplosu

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
KaranlıK
System Root
System Root
avatar

Mesaj Sayısı : 64
Yaş : 50
Kayıt tarihi : 24/05/08

MesajKonu: çarpım taplosu   Çarş. Haz. 04, 2008 7:31 pm

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
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://sanal-hayalet.forumr.net
 
çarpım taplosu
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Türkiyenin En Yeni Hack Sitesi :: Nesne ve programcılıgı :: Web tasarımcılığı-
Buraya geçin: