Wednesday, November 10, 2010

guess function results

Private Sub tebakhasil(ByRef B As Integer, ByVal A As Integer, ByVal C As Integer, D As Integer)

A = 5

B = 2 * A

C = A + B

D = A + B + C

End Sub


Private Sub Form_Activate()

Dim A As Integer, B As Integer, C As Integer, D As Integer

A = 1: B = 2: C = 3: D = 4

Print " Angka Awal : "; A; B; C; D

tebakhasil A, B, C, D

Print " Angka Akhir : "; A; B; C; D

End Sub


Download Fromnya

0 comments:

Post a Comment