Rumus Uas Praktik TIK kls 9 [Versi 9C]

nih anak" programer di 9C bagi" SC(Source Code) / rumus BILA GAK JALAN ITU NASIB ! SAPA SURUH CUMAN BISA NYALIN ! PKIR PAKE OTAK ^o^

Private Sub Command1_Click()

Randomize

a = Int(Rnd * 2)

If a = 0 Then

    Image1.Visible = True

    Image2.Visible = False

    If Option1.Value = True Then MsgBox "Temakan jitu", , "pesan"

    Label4.Caption = Val(Label4.Caption) + 1

Else

    MsgBox "salah", , "salah"

    End If

if a = 0 then 

    Image1.Visible = False

    Image2.Visible = True

    If Option2.Value = True Then MsgBox "tebakan jitu", , "pesan"

    Label5.Caption = Val(Label5.Caption) + 1

Else

    MsgBox "salah", , "salah"

    End If

End Sub

ERROR? JGN PROTES ! BILA ERROR COBA PERBAIKI SENDIRI !!!