在线运行代码 - 菜鸟教程

<!DOCTYPE html>
<html>
<head>
<script type="text/vbscript">

sub mySub()
x=MsgBox("Are you a programmer?",4,"Please answer")
end sub

</script>
</head>
<body>

<button onclick="mySub()">Survey</button>

</body>
</html>

源代码

动行结果