还是关于用VB提交表单的问题，如何选择这样的单选按钮和下拉菜单，网页用的是Javascript

<head>
<link href="../images/font1.css" rel="stylesheet" type="text/css">
</head>
<SCRIPT language=Javascript>
function IsEmpty(s)
{  if (s.length == 0)
 return true;
}
function startSpace(value)
{
ch = value.substring(0, 1);
if(ch == " ")
return true;
}
function charOnly(fieldValue)
{
  var length = fieldValue.length;
  var ch = "";
  for (var i = 0; i < length; i++)
  {
     ch = fieldValue.substring(i, i + 1);
     if ( ((ch < "a" || "z" < ch) && (ch < "A" || "Z" < ch)) && ( ch  <"0" || "9" < ch ) )
    return false;
  }
  return true;
}
</script>
<SCRIPT language=Javascript>

function ValidateFields2(form)
{
   if(IsEmpty(form.Name.value))
   {
alert("请输入你的姓名！");
form.Name.focus();
return false;
   }
   if(IsEmpty(form.PSID.value))
   {
alert("身份证不能为空！");
form.PSID.focus();
return false;
   }
   
   if(!(form.PSID.value.length==15||form.PSID.value.length==18))
   {
alert("身份证为15位或者为18位！");
form.PSID.focus();
return false;
   }
          
       if(isNaN(form.BirdY.value))
   {
    alert("生日的年份必须为数字！");
form.BirdY.focus();
return false;
   }    if(IsEmpty(form.area.value))
   {
alert("请输入您所在的县市！");
form.area.focus();
return false;
   }    if(IsEmpty(form.GetAdr.value))
   {
alert("请输入您详细的通讯地址！");
form.GetAdr.focus();
return false;
   }
   if(IsEmpty(form.MTel.value))
   {
alert("请输入手机号！");
form.MTel.focus();
return false;
   }
   if(isNaN(form.MTel.value))
   {
    alert("手机号输入有误！");
form.MTel.focus();
return false;
   }
   
   if(IsEmpty(form.txtnote.value)||form.txtnote.value.length > 49)
   {
alert("请输入基本简介，并且长度小于50位！");
form.txtnote.focus();
return false;
   }
   
   form.submit();
   return true;
}
</script>  <TABLE border=0 cellPadding=3 cellSpacing=1 width=100% height=100%>
  <TBODY>
  <TR>    <TD vAlign=top align=center height=380 width=90%>
      <table width="100%"  border="0" cellpadding="0" cellspacing="0" >
   <tr><td></td></tr>
             <td height="20" width="100%" valign=top>
         <div align="center">
       <TABLE class=moduleTitle cellSpacing=0 cellPadding=0 width="100%" border=0 height=30>
       <tr><td><b>您现在所在的位置</b>=><b>客户管理</b>=><b>客户登记</b>
            </b>
       </td></tr>
       </TABLE>     
      
       <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height=30>
       <tr><td height=5></td></tr>      
       <tr><td height=1 bgcolor=#666666></td></tr>
<tr><td background="../images/bgGray.gif" class="fontTop">客户登记</td></tr>
       </TABLE> 
      
        <FORM name='FrmNewUser' action='regster.asp' method='post'>
          <table width=100% border=0 align="center" cellpadding=5 cellspacing=1 bordercolor="#FFFFFF" style="border-collapse: collapse">
          
            <TR > 
              <TD height=1 background=../images/dot2.gif colSpan=2 ></TD> 
            </TR>        
            <TR align=center height=1>       
              <TD height=1 colSpan=2 background=img/naBialym.gif width="680"></TD>       
            </TR>       
            <TR class="tdbg" >         
              <TD width="205"><strong>姓名：</strong>请填写真实姓名</TD>        
              <TD width="461">        
                <INPUT name=Name id="Name" size=12 maxLength=10 class=button1>        
                <font color="#FF0000">*<input type="radio" name="sex" value="0" checked></font>女士<input type="radio" name="sex" value="1">先生</TD>                                           
            </TR>         
            <TR class="tdbg" >         
              <TD width="205"><strong>身份证号码：</strong><BR>必须认真填写，做为考核依据 </TD>         
              <TD width="461">         
                <INPUT name=PSID id="PSID" size=30 maxLength=18 style="ime-mode:disabled" class=button1>         
                <font color="#FF0000">*</font></TD>                                           
            </TR>          
            <TR class="tdbg" >          
              <TD width="205"><strong>出生年月日：</strong><BR>          
                </TD>          
              <TD width="461">          
                <INPUT name=BirdY id="BirdY" size=4 maxLength=4 value=19 style="ime-mode:disabled">          
                年<SELECT name=BirdM> <OPTION selected value=1>1</OPTION> <OPTION  
                    value=2>2</OPTION> <OPTION value=3>3</OPTION> <OPTION  
                    value=4>4</OPTION> <OPTION value=5>5</OPTION> <OPTION  
                    value=6>6</OPTION> <OPTION value=7>7</OPTION> <OPTION  
                    value=8>8</OPTION> <OPTION value=9>9</OPTION> <OPTION  
                    value=10>10</OPTION> <OPTION value=11>11</OPTION> <OPTION  
                    value=12>12</OPTION></SELECT>月 <SELECT name=BirdD>  
                    <OPTION selected value=1>1</OPTION> <OPTION  
                    value=2>2</OPTION> <OPTION value=3>3</OPTION> <OPTION  
                    value=4>4</OPTION> <OPTION value=5>5</OPTION> <OPTION  
                    value=6>6</OPTION> <OPTION value=7>7</OPTION> <OPTION  
                    value=8>8</OPTION> <OPTION value=9>9</OPTION> <OPTION  
                    value=10>10</OPTION> <OPTION value=11>11</OPTION> <OPTION  
                    value=12>12</OPTION> <OPTION value=13>13</OPTION> <OPTION  
                    value=14>14</OPTION> <OPTION value=15>15</OPTION> <OPTION  
                    value=16>16</OPTION> <OPTION value=17>17</OPTION> <OPTION  
                    value=18>18</OPTION> <OPTION value=19>19</OPTION> <OPTION  
                    value=20>20</OPTION> <OPTION value=21>21</OPTION> <OPTION  
                    value=22>22</OPTION> <OPTION value=23>23</OPTION> <OPTION  
                    value=24>24</OPTION> <OPTION value=25>25</OPTION> <OPTION  
                    value=26>26</OPTION> <OPTION value=27>27</OPTION> <OPTION  
                    value=28>28</OPTION> <OPTION value=29>29</OPTION> <OPTION  
                    value=30>30</OPTION> <OPTION value=31>31</OPTION></SELECT>日</TD>                      
            </TR>          
      
            <TR height=1 align=center>          
              <TD height=1 colSpan=2 background=img/naBialym.gif width="680"></TD>          
            </TR>          
            <TR > 
              <TD height=1 background=../images/dot2.gif colSpan=2 ></TD> 
            </TR>           
            <TR align=center height=1>          
              <TD height=1 colSpan=2 background=img/naBialym.gif width="680"></TD>          
            </TR> 
            <TR class="tdbg" >          
              <TD width="205"><strong>所在省市：<br>          
              </strong></TD>          
              <TD width="461">          
                <select class=button1 size=1 name=state>        
                           <option selected>北京市</option> 
                                           
<option value="辽宁省">辽宁省</option> 
<option value="广东省">广东省</option> 
<option value="浙江省">浙江省</option> 
<option value="江苏省">江苏省</option> 
<option value="山东省">山东省</option> 
<option value="四川省">四川省</option> 
<option value="黑龙江省">黑龙江省</option> 
<option value="湖南省">湖南省</option> 
<option value="湖北省">湖北省</option> 
<option value="上海市">上海市</option> 
<option value="福建省">福建省</option> 
<option value="陕西省">陕西省</option> 
<option value="河南省">河南省</option> 
<option value="安徽省">安徽省</option> 
<option value="重庆市">重庆市</option> 
<option value="河北省">河北省</option> 
<option value="吉林省">吉林省</option> 
<option value="江西省">江西省</option> 
<option value="天津省">天津省</option> 
<option value="广西">广西</option>                                           </select>&nbsp; <input type="text" name="area" size="13" class=button1><font color="#FF0000">*</font></TD>    就是上面代码中性别的选择，出生日期的选择，省市的选择。该如何来操作

解决方案 »

  1.   

    Private Sub Command1_Click()
        Dim vDoc, vTag
        Set vDoc = WebBrowser1.Document
        vDoc.All("sex").Item(1).Checked = True
        vDoc.All("BirdY").Value = "2009"
        vDoc.All("BirdM").Value = "1"
        vDoc.All("BirdD").Value = "13"
        vDoc.All("state").Value = "上海市"
        vDoc.All("area").Value = "浦东新区"
    End Sub
    你应该给两个性别选项各分配一个 id，按序号索引总是不保险。