Const n = 20
Dim a(1 To n) As Integer
Dim lena As Integer
'数组a的实际长度
Dim s As String
Private Sub Form_Load()
'生成lena个长度的非递减序列,并输出到文本框text1中,代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = 1
Do While i < lena
If a(i) <> a(i + 1) Then
i =
Else
For j = i + 1 To lena
a(j - 1) =
Next j
End If
Loop
s = ""
For i = 1 To lena
s = s + Str(a(i))
Next i
Text2.Text = s
End Sub
校验码的计算方法如下:
①将身份证号码的前17位数字分别乘以对应的系数。对应关系如下:
|
号码位 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
|
系数 |
7 |
9 |
10 |
5 |
8 |
4 |
2 |
1 |
6 |
3 |
7 |
9 |
10 |
5 |
8 |
4 |
2 |
②将17位数字和系数相乘的结果累计求和;
③用所求的和除以11得到余数;
④用余数与身份证号码的最后一位校验码进行对应,对应关系如下:
|
余数 |
0 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
|
校验码 |
1 |
0 |
X |
9 |
8 |
7 |
6 |
5 |
4 |
3 |
2 |
ID=input("请输入十八位身份证号码: ")#输入身份证号码
sex={0:"女",1:"男",2:"女",3:"男",4:女,5:"男": 6:"女",7:"男"."8:"女",9:"男"}
ID_ birth=ID[6:14]
ID_ sex=ID[16]
ID_ check=ID[17]
#求出year,month,day
|
① |
print("出生日期: "+year+"年"+ month+"月"+day+"日")
print("性别:", ② )
ID=list(ID) #把字符串转成列表
ID=list(map(int, ID[0:17])) #把前17个元素转成整型
ID_ CHECK=["1","0'","X'","9“,"8","7”,"6“,"5”,"4","3","2"]
|
③ |
#用列表存储每一位权值 #17位数字和系数相乘的结果累计求和 #求余数 #求验证码 |
print("验证码是否正确:", check-= =ID_check)
B .
C .
D .
for i in range (1,6):
print(‘*’)
x=y
y=x
1)将原始数据按升序分成若干有序段。
2)将第1段和第2段进行合并,使得合并后的数据依旧有序,得到新的有序段。
3)将新的有序段再次和下一个有序段进行合并。
4)重复上述操作,直到全部数据变成一个有序段为止,排序结束。
如数据:1、3、9、4、5、7、2、6,第1段为1、3、9,第2段为4、5、7,将第1段和第2段合并,得到新的第1段为1、3、4、5、7、9。继续和下一段2、6进行合并,合并后段数变为1段,则排序结束。
编写VB程序,实现分段排序功能:在文本框Text1中输入数据总量,单击“数据生成”按钮Command1后,在列表框List1中显示原始数据,然后单击“分段排序”按钮Command2,在列表框List2中显示排序后的结果。程序运行界面如图所示。
请回答下列问题:
A .List1.Clear / B .List1.List="" / C .List1.Text="" / D .List1.Caption="空白" )。
Dim a(1 To 1000) As Integer
Dim n As Integer
Private Sub Command1_Click()
'输入数据总量n,随机生成n个数据保存在数组
'a(1)~a(n)中,并在List1中显示数据,代码略
End Sub
Private Sub Command2_Click()
Dim b(1 To 10000) As Integer
Dim p1 As Integer, p2 As Integer, t1 As Integer, t2 As Integer
Dim t As Integer, k As Integer, i As Integer, j As Integer
p1 = 1
t1 = leng(p1)
p2 = p1 + t1
Do While p2 <= n
i = p1: j = p2: t = 1
Do While i < p2 Or j < p2 + t2
If j >= p2 + t2 Or i < p2 And a(i) < a(j) Then
b(t) = a(i): i = i + 1
Else
b(t) = a(j): j = j + 1
End If
t = t + 1
Loop
For k = 1 To
a(k) = b(k)
Next k
t1 = t1 + t2
Loop
'在List2中输出数组a(i)的值,代码略
End Sub
Function Leng(ByVal p As Integer) As Integer
'该函数返回数组a中数组下标p开始的升序有序段的长度,代码略
End Function
s=int(input("请输入一个两位数:"))
s=s//6
print(s)
a="Doing is better than saying ."
print(r"\n"+a[ :15])
该程序运行后,输出的结果是( )
m= 153
a=m// 100
b=m//10%10
c=m%10
n=a**3+b**3+c*3
print (n)
运行该程序段,输出结果是
a=a+b:b=b+a
print a,b
这段程序的执行结果是( )
PRIVATE SUB FORM_CLICK( )
A=VAL(INPUTBOX(“请输入第一个数”))
B=VAL(INPUTBOX(“请输入第二个数”))
T=A
END SUB
def f(a,b):
result=a*b
s=a+b
return result
a=int(input("a="))
b=10
s=f(a,b)
print(s)
print(1+2==3)
a=3
b=5
s=a+b
print(s)
>>>n=4
>>>print(n)
4
>>>n=n+1
>>>print(n)
n的值为( )
n =2
s = n * n -2 * n
该程序段运行后,变量s的值是( )