<body>
<script type="text/vbscript">
bil= "angka = 12517"
text= "cetak :"
Dim cetak(5)
cetak(0)=" 10000 = nilai puluhan ribu "
cetak(1)=" 2000 = nilai ribuan "
cetak(2)=" 500 = nilai ratusan "
cetak(3)=" 10 = nilai puluhan "
cetak(4)=" 7 = nilai satuan "
document.write bil &"<p />"
document.write text &"<br />"
For i=0 To 4
document.write(cetak(i) & "<br />")
Next
</script>
</body>
</html>
<HTML>
<BODY>
<script language="vbscript">
i= inputbox("masukan bilangan:a")
j= inputbox("masukan bilangan:b")
k= inputbox("masukan bilangan:c")
for i=1 to 3
document.write a1 (i) = i
next
for j=i+1 to 3
document.write a2 (j) = i + j
next
if a1 (i) > a2(j) then
temp = a1(i)
a1(i) = a2(j)
a2(j) = temp
end if
document.write ("Asc= " & "<br />")
</script>
</BODY>
</HTML>
<HTML>
<BODY>
<script language="vbscript">
dim bil
for bil = 100 to -150 step -5
document.write bil & " "
next
</script>
</BODY>
</HTML>
<HTML>
<BODY>
<script language="vbscript">
a= inputbox("masukan bilangan:")
for n=1 to a
document.write ("<br />")
if (n mod 2=0) then
document.write ("bilangan = " & n & " = genap" & "<br />")
else
document.write ("bilangan = " & n & " = ganjil" & "<br />")
end if
next
</script>
</BODY>
</HTML>
<HTML>
<BODY>
<script language="vbscript">
n = inputbox("masukan bilangan:")
dim validasi
if n<> 0 then
validasi = "input ulang (nilai " & n & " <> 0)"
else
validasi = " akses di terima"
end if
document.write validasi
</script>
</BODY>
</HTML>
Tidak ada komentar:
Posting Komentar