Rabu, 10 Oktober 2012

fix code VB latihan for...next


Private Sub cmdhitung_Click()
bil = Val(txtbil.Text)
vproses = 1
For i = 1 To bil
vproses = i * vproses
Next i
txtfak.Text = vproses
i = bil
Do
deret = i * (i + 1) * 0.5
Loop Until i + deret
txtn.Text = deret
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Tidak ada komentar:

Posting Komentar