现要求编写VB程序，界面如第1图所示．程序功能如下：在文本框Text1中输入身份证号码，单击“识别”按钮Command1，在标签Label3中输出对应的性别．
具体方法为：
（1）若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；（2）若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”．

1应用程序界面设计时，为添加“识别”按钮，应使用第2图中“控件工具箱”中的

3

3

  （填写相应编号），并修改3图“属性窗口”中，将

caption

caption

属性值设置为“识别”
2请根据题意将下列程序补充完整
Dim x As String,n As Integer,s As String
x=Text1．Text
n=Len（x）
If n=15Then
s=Mid（  ①，Len（x），1）
If Val（s） Mod 2=0Then
Text2．Text=“女“
Else
Text2．Text=“男“
End If
Else
s=Mid（x,17，1）
If     ② Then
Text2．Text=“男“
Else
Text2．Text=“女“
End If
End If.