现要求编写VB程序，界面如第2题-1图所示。程序功能如下：在文本框Text1中输入身份证号码，单击“识别”按钮Command1，在标签Label3中输出对应的性_刷题宝

题干

现要求编写VB程序，界面如第2题-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
Text2.Text = "女"
Else
Text2.Text = "男"
End If
Else
s="Mid(x," 17, 1)
If ② Then
Text2.Text = "男"
Else
Text2.Text = "女"
End If
End If

上一题下一题 0.99难度填空题更新时间:2015-08-21 03:25:57

答案(点此获取答案解析）

同类题1

查找最短26个字母字符串: 在文本框Text1中输入任意一串仅包含小写字母的字符串（长度n>=26），要求找到长度最小的一段区间，能够包含全部26个小写英文字母。小王设计了VB程序用于搜索最短字符串，单击“查找”按钮 Command1，若无解，则在标签 Label1中输出“无解！”，反之程序在标签 Labell中输出该最小区间的长度以及字符的开始位置，并在文本框Text2中输出相应的最短字符串，程序界面如图所示。
查找最短26个字母字符串的算法可描述为:
1）确定初始右边界: 从第1个字符开始，向右搜索到包含全部26个字母的子串，并因此而确定右边界，同时记录每个字母在子串中出现过的次数。
2）调整子串左边界: 若左边界有重复的字母则表明该子串可缩短，故左边界可右移1位，……直到找到一个符合条件的子串并记录，然后子串左边界再右移1位。
3）调整子串右边界: 子串右边界继续右移，在新子串符合条件后，记录并进行比较。重复2）各调整步骤，直至遍历完整个字符串，获得并输出满足条件的最小长度字符串。

实现上述功能的VB程序如下，请回答下列问题:
（1）对于字符串“ qbwcadsgeqbdatcy”，包括字母 abcde的最短字符串长度为___________（填数字）
（2）请在划线处填入合适的代码。
Const n=200
Dim i As Integer, k As Integer, length As Integer, L As Integer
Dim pos As Integer, sl As String, res As String
Dim f(1 To 26) As Integer ＇数组f记录每个小写英文字母的出现次数
Dim s(1 To n)As Integer ＇数组s记录每个输入字符在字母表中的位置
Private Sub Command1_ Click

res=" "

s1=Textl. Text

For i=1 To Len(s1)

s(i)= _____________
Next i
k=0: pos=1: length=n
For i=1 To 26
f(i)=0
Next i
For i=1 To Len(sl)
If f(s(i))=0 Then k=k+1
f(s(i))=f(s(i))+1
Do While___________
f(s(pos))=f(s(pos))-1
If______________Then
k=k-1
If i-pos+1<length Then
length=i-pos+1
res=Mid (sl, pos, length)
L=pos
End If
End If
pos=pos+1
Loop
Next i
If res<>""Then

Text2 Text=res

Labell. Caption="最短长度: "+Str( length)+"开始位置: "+Str(L)Else

Labell. Caption="无解！"

End if

同类题2

已知有一组数据2, 3, 6, 9, 10, 17, 22, 25排列，若要对分查找数值22，需要查找3次，这3次查找中依次找到的数据是（）。

同类题3

已知单调函数f(x)在0，1区间存在一个x₀，使f(x₀)＝0。现用对分查找法搜索x₀的值，开始搜索区间为0，1，若经过10次对分查找后还需继续搜索，则第11次搜索区间的长度为( )

A．1/2	B．1/10
C．1/10²	D．1/2¹⁰

同类题4

整数序列“2，3，6，11，19，23，41，47，51”用对分查找法和顺序查找法在查找23时两种方法都能访问到的是

同类题5

（加试）数组a存放n个学生的学号及成绩，a（2*i-1）存放第i个学生的学号，a（2*i）存放第i个学生的成绩，且成绩按降序排列（i=1,2,……n）。下列VB程序功能为:文本框Text1中输入成绩key，查找该成绩对应学生的学号，在文本框Tex2中显示。
Key = Val（Text1. Text）
i=1:j=( ① )
flag =False
Do While I <=j And Not flag
m=(i+j)\2
If key =a（2*m）Then
Flag = True
Elseif ( ② ) Then
j=m-1
Else
i=m+1
End If
Loop
If flag Then Text2.Text=Str（ ③ ） Else Text2.Text=“未找到！”
上述程序段3各方框处的代码分别为

A．（1）2*n （2）key>a(2*m) （3）a(2*m+1）

B．（1）2*n （2）key<a(2*m) （3）a(2*m+1)

C．（1）n （2）key>a（2*m）（3）a(2*m-1)

D．（1）n （2）key <a(2*m) （3） a(2*m-1)

相关知识点