Rabu, 05 Februari 2014

<HTLM>
<HEAD><TITLE>Progam Pertama</TITLE></HEAD>
<BODY>
<H2>Progam VBScriptku yang Pertama</H2><HR>
<CENTER><FONT SIZE=5>Berapa (8 x 5) + 5 ?</FONT><BR><BR>
<INPUT TYPE=”SUBMIT” NAME=”Btn!” VALUE=”Klik setelah menjawab”>
<INPUT TYPE=”TEXT” NAME=”Txt1”></CENTER>
<SCRIPT LANGUAGE=”VBSCRIPT”>
<!--
Sub Btn_OnClick()
Dim Massage
If Txt1.Value = “45” Then
Massage=”Anda Benar!”
Else Massage=”Coba Lagi”
End If
MsgBox Massage,0,”Kotak Pesan”
End Sub
-->
</SCRIPT>
</BODY></HTML>