源代码:
<!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>
运行结果：