寻找路的方向
<html><head><title>学生信息</title>
<script language="vbscript">
<!--
sub checkvl()
dim xm,xh,xy,js
xy=myform.xy.value
xm=myform.xm.value
xh=myform.xh.value
js=myform.js.value
if xm=""then
msgbox"请输入你的姓名!",0+48
focust(0)
exit sub
else
if len(xh)<6then
msgbox"学号应大与6个字符!",0+48
focust(1)
exit sub
else
if xy="0"then
msgbox"请选择你所在学院!",0+48
focust(2)
exit sub
else
if js=""then
msgbox"请自我介绍!",0+48
focust(3)
exit sub
else
document.myform.submit()
end if
end if
end if
end if
end sub
sub focusto(x)
document.myform.element(x).focus()
end sub
-->
</script>
</head>
<body>
<center>
<form name="myform" method="post" action="user.asp">
<table width="60%" border="2">
<caption>学生信息表</caption>
<tr>
<td align="center">姓名：</td>
<td><input type="text" size="20" name="xm"></td>
<td align="center">性别：</td>
<td><input type="radio" value="1" name="xb"checked>男
<input type="radio" value="2" name="xb">女</td>
</tr>
<tr>
<td align="center">学号：</td>
<td><input type="text" size="20" name="xh"></td>
<td align="center">所在学院：</td>
<td><select name="xy">
<option value="0">请选择</option>
<option value="1">计算机</option>
<option value="2">金融</option>
<option value="3">材料</option>
</select></td>
</tr>
<tr>
<td align="center">自我介绍：</td>
<td><textarea type="text" name="js"rows="2"></textarea></td>
<td align="center">课余爱好：</td>
<td>
<input type="checkbox"name="ah" value="钢琴">钢琴
<input type="checkbox"name="ah" value="足球">足球
<input type="checkbox"name="ah" value="听歌">听歌
</td>
</tr>
<tr><td align="center" colspan="4">
<input type="button" name="btn1" value="确定" onclick="checkvl()">
<input type="reset" name="btn2" value="取消"></td>
</tr>
</table>
</form>
</center>
</body>
</html>
在线的各位前辈，小弟愚笨，给了上面的一个表单，要求对其进行验证，我已经用IF语句对表单中的姓名，学号，所在学院，自我介绍做了判断，并能对这4个元素进行验证。但是在写IF语句对课余爱好（复选框）进行验证，都出现错误，很是无赖。要求课余爱好不能我空值。请前辈用VB脚本写IF语句插入到上面的VB代码中对课余爱好进行验证。谢谢
