加密规则如下表所示:
原字 |
A |
B |
C |
… |
X |
Y |
Z |
a |
b |
c |
… |
x |
y |
z |
密字 |
z |
y |
x |
… |
c |
b |
a |
Z |
Y |
X |
… |
C |
B |
A |
注:“A”的ASCⅡ码值是65,“a”的ASCI码值是97。
程序运行界面如图所示
Private sub Cmd1- Click()
Dim i As Integer, s As String, c As String, ans As String
①
For i=1 To Len(s)
c= Mid(s, i, 1)
If c<="z “And c >=”a"Or c<=”Z” And c >=”A” Then
c=②
End If
③
Next i
TxtOut. Text =ans
End Sub
i=1
j=6
s=“”
Key=Text1. Text
Do While i <=j
m=Int((i+j) / 2+0. 5)
s=s+“ ”+a(m)
If Key > a(m) Then
i=m+1
Else
j=m-1
End If
Loop
Text1. Text=s
数组元素a(1)到a(6)的值分别为“Beijing”“Guangdong”“Jiangsu” “Jiangxi”“Shanghai” “Zhejiang”,己按字典序排序。当key的值为“Zhejiang”时,单击命令按钮Command1,文本框Text1中显示的内容为( )
s = "defghiabc"
key = Text1.Text
i = 1: j = Len(s)
Do While i <= j
m = (i + j) \ 2
c = Mid(s, m, 1)
If c = key Then Exit Do
If Mid(s, i, 1) < c Then
If key >= Mid(s, i, 1) And key < c Then j = m - 1 Else i = m + 1
Else
If key > c And key <= Mid(s, j, 1) Then i = m + 1 Else j = m - 1
End If
ans = ans + Str(m)
Loop
运行程序后,若在文本框Text1中输入字符"b",则变量ans的值是( )
i= 1:j = 9:n =0
key=Val(Text1.Text)
Do While i<= j
n=n+1
m=Fix((i +j)/2)
If key = d(m)Then Exit Do
If key<d(m)Then j= m -1 Else i=m+1
Loop
数组元素d(1)到d(9)的值依次为“7,12,18,25,39,58,61,72,86”。若该程序段运行结束后,n的值为2,则key的值是( )
Dim a(1 To 10)As Integer
Private Sub Form_Load()
a(1)=2: a(2)=3: a(3)=3: a(4)=3: a(5)=3
a(6)=6: a(7)=7: a(8)=7: a(9)=8: a(10)=9
End Sub
Private Sub Command1_Click()
Dim key As Integer, i As Integer, j As Integer
Dim m As Integer, p As Integer
key=Val(Text1.Text)
i=1: j=10
Do While i<=j
m=(i+j)\2
If a(m)= key Then
p=m
j=m-1
ElseIf key<a(m)Then
j=m-1
Else
i=m+1
End If
Loop
Text2.Text=Str(p)
End Sub
程序运行时,在文本框 Text1中输入3,单击按钮,文本框Text2中显示的内容是( )
import os #开始
def NewCaesar(m,n,t):
z='';i=0
while i<:
tmp=
if tmp in m:
if ord(t[i])<=90:
z+=n[m.find(tmp)]
else:
z+=n[m.find(tmp)].lower()
else:
z+=t[i]
i+=1
return z
m='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
n='QWERTYUIOPASDFGHJKLZXCVBNM'
a=input('请输入<明文>a=')
b=NewCaesar(m,n,a)
print('对应的密文为:',b)
c=NewCaesar(n,m,b)
print('解密后明文为:',c)
if :
print('加密解密成功!')
else:
print('加密解密失败!')
input("运行完毕,请按回车键退出...")
os._exit(0)
#结束
n1 =False #判断数字
n2=False #判断下划线
flag=False #判断首字符和长度是否满足要求
password=input('请输入密码:\n')
n= ①
ch=password[0]
if 19>n>5 and (z'>=ch>='a' or 'Z>= =ch>='A'):
flag=True
if flag:
for i in range(1, n):
ch=password[i]
if '9'>=ch>='0':
n1= ②
elif ch= '_':
n2=True
if ③
print('结果:', '合法')
else:
print('结果:', '不合法')
① ② ③
low = 1: high = 8
key = Int(Rnd * 15 + 1) * 2
Do While low <= high
m = (low + high) \ 2
If a(m) >= key Then
high = m - 1
Else
low = m + 1
End If
Loop
Text1.Text = Str(low)
若数组元素a(1)到a(8)的值依次为 1,10,11,12,15,30,32,37,执行该程序段后,文本框Text1中显示的内容可能是( )
Private Sub Command1_Click()
s = 0
For i =To
If i Mod 17 = 0 And =5 Then
s = s + i
End If
Next i
Print s
End Sub
str1 = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”
s = “”
For i = 1 To 4
t = Int(Rnd*10) + 1
If t Mod 2 = i Mod 2 Then
t = t + 1
Else
t = t + 2
End If
s = s + Mid(str1,t,1)
Next i
List1.AddItem s
执行该程序段后,列表框List1中可能显示的内容是( )
Key=Val(Text1.Text)
i=1:j=n*2:flag=False
Do While i+1<=j And Not flag
m=(i+j)\2
If Then m=m-1
If a(m)=Key or a(m+1)=Key Then
Flag=True
Elseif a(m)>key Then
Else
End if
Loop
If a(i)=Key Or a(j)=Key Then flag=True
If flag Then Label1.Caption=“yes” Else Label1.Caption=“no”
划线处的代码正确的是( )
s = "AAABBBCCCCDDEFF"
i = 1: j = Len(s): Key = "H": v = ""
Do While i <= j
m = (i + j) \ 2
c = Mid(s, m, 1)
If c = Key Then Exit Do
If c > Key Then
j = m - 1: v = v & c
ElseIf c < Key Then
i = m + 1: v = v & c
End If
Loop
执行完以上程序后,v的值为( )
key=Val(Text1. Text):i=1:j=10
Do While i <=J
m=Int(i+j)/2+0.5)
If key Mod 2+ a(m) Mod 2= 1 Then m=m-1
If a(m)= key Then
List 1. AddIton"找到了!": Exit Do
ElseIf a(m)> key Then
j=m-2
Else
i=m+2
End If
Loop
If i>j Then List1. AddItem "未找到此数"
如果数组元素a(1)到a(10)的数据依次是“1,4,5,6,11,10,23,16,25,20”,key的值为1,则执行上述程序段,变量m依次被赋值为( )
import math
h = 500
g = 9.8
t = math.sqrt(2*h/g)
hx = g*(t-1)*(-1)/2
hh = h-hx
print(“小球最后1秒下落的位移是:”, hh, "m")