题库 高中信息
题干
现要求编写VB程序，界面如图1所示。程序功能如下：在文本框Text1中输入身份证号码，单击“识别”按钮Command1，在标签Label3中输出对应的性别。
具体方法为：
<1.若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；<2.若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。
⑴ 应用程序界面设计时，为添加“识别”按钮，应使用图2中“控件工具箱”中的_____________（填写相应编号），并修改图3“属性窗口”中，将_____________属性值设置为“识别”
⑵ 请根据题意将下列程序补充完整
Dim x As String, n As Integer, s As String
x = Text1.Text
n = Len(x)
If n = 15 Then
s = Mid (_____, Len(x), 1)
If Val(s) Mod 2 <> 0 Then '判断第15位数字偶数则性别“女”，否则为“男”
Text2.Text = "女"
Else
Text2.Text = "男"
End If
Else
s=Mid(x, 17, 1)
If __________ Then
Text2.Text = "男"
Else
Text2.Text = "女"
End If
End If
（3）上述程序中带框框的语句有错，应改为____________________________
具体方法为：
<1.若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；<2.若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。
⑴ 应用程序界面设计时，为添加“识别”按钮，应使用图2中“控件工具箱”中的_____________（填写相应编号），并修改图3“属性窗口”中，将_____________属性值设置为“识别”
⑵ 请根据题意将下列程序补充完整
Dim x As String, n As Integer, s As String
x = Text1.Text
n = Len(x)
If n = 15 Then
s = Mid (_____, Len(x), 1)
If Val(s) Mod 2 <> 0 Then '判断第15位数字偶数则性别“女”，否则为“男”
Text2.Text = "女"
Else
Text2.Text = "男"
End If
Else
s=Mid(x, 17, 1)
If __________ Then
Text2.Text = "男"
Else
Text2.Text = "女"
End If
End If
（3）上述程序中带框框的语句有错，应改为____________________________
答案(点此获取答案解析）
相关知识点