s1 = Text1.Text
s2 = ""
For i = 1 To Len(s1)
c = Mid(s1, i, 1)
If c >= "0" And c <= "9" Then
c = Chr((Asc(c) - Asc("0") + 1) Mod 10 + Asc("0"))
s2 = s2 + c
ElseIf c >= "A" And c <= "Z" Then
c = Chr(Asc(c) + 32)
s2 = c + s2
End If
Next i
Text2.Text = s2
执行该程序段,在文本框Text1中输入“GoLand,19”,则文本框Text2中显示的内容为( )
实现该功能的 VB 程序段如下:
s = Text1.Text: c = 1
For i = 2 To Len(s)
If
Then
c = c + 1
Else
s1 = s1 + Trim(Str(c)) + Mid(s, i - 1, 1) ‘Trim函数用于移除字符串两侧的空字符
End If
Next i
s1 = s1 + Trim(Str(c)) + Mid(s, i - 1, 1)
上述程序段两个方框处的语句分别为:( )
1)将明文中的字母E替换为A,F替换为B,G替换为C,…A替换为W,B替换为X,C替换为Y,…,小写字符的替换方法同理。
如:明文:I Love China 加密为:E Hkra Ydejw
2)将加密后的英文字母,按顺序依次放入每个字符串段落中,第1个加密字母E放在第1个段落,第2个字母H放在第2个段落,依次类推(如下图),段落间用逗号分隔并以逗号结尾。当遇到空格,在段落末尾“,”前,插入“+”号作为标记。
| 第1段 | 第2段 | 第3段 | 第4段 | 第5段 | 第6段 | 第7段 | 第8段 | 第9段 | 第10段 |
| E+, | H, | k, | r, | a+, | Y, | d, | e, | j, | w+, |
3)每个段落中,随机插入字母形成新的字母序列段,当段号小于8时加密字母在字母序列
中存放位置刚好是该段落号,位置以8为周期,第9段时,加密字母存放位置回到字母序列的第1位,第10段加密字母存放位置回到第2位,依次类推。(位置号<=8)
| 第1段 | 第2段 | 第3段 | 第4段 | 第5段 |
| Etc+, | mHfryh, | oTkrestf, | rfir, | Ccfta+, |
| 第6段 | 第7段 | 第8段 | 第9段 | 第10段 |
| iynhyYf, | tqswjyd, | nrtesiueh, | jnytq, | Uwccdb+, |
4)在每一段中随机插入除英文字母之外的ASCII字符码,形成一串密文。如图所示:
则根据加密算法,解密后的明文为
Private Sub Command1_Click()
Dim i As Integer, k As Integer
Dim s As String, c As String, ch As String
Dim letter As String, ret As String 'letter 用于存放字母序列s = Text1.Text
k = 1
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "A" And c <= "Z" Or c >= "a" And c <= "z" Then letter = letter + c
ElseIf
c = ","
Then
ch = Chr(Asc(ch) + 4)
If Not (ch >= "A" And ch <= "Z" Or ch >= "a" And ch <= "z") Then ch = Chr(Asc(ch) - 26)
End If
IfThen ret = ret + ch + " "
Else
ret = ret + ch
End If
k = k + 1
End If
Next i
Text 2.Text = ret
End Sub
明文∶a b c……x y z
密文∶C D E……Z A B
已知变量ym是明文中的一个小写字母,则生成对应密文字母的表达式为( )
| a=5: b=10 m=(a+b)/2+Abs(a-b)/2 Print“m=”; m |
s=Text1.Text
ans=0
Text2.Text=Str(ans)
若在Text1中输入110,则Text2中输出内容是6,划线处代码不正确是( )
t = Val(Mid(s, i, 1)) ans = ans * 2 + t
Next i
B . For i = 1 To Len(s)t = Val(Mid(s, i, 1))
ans = ans + t * 2 ^ (Len(s) - i)
Next i
C . i = Len(s)Do While i > 0
t = Val(Mid(s, Len(s) - i + 1, 1)) ans = ans + t * 2 ^ (i - 1)
i = i - 1 Loop
D . i = Len(s)Do While i >= 1
If Val(Mid(s, i, 1)) = 0 Then
ans = ans * 2 Else
ans = ans * 2 + 1
End If
i = i - 1
Loop
s="Hello, Kitty!"
n=Len (s)
Text1. text= Mid (s,7,n-7)
例:使用凯撒密码对明文“yza”进行加密的过程:“yza”→121 122 97→…→ 98 99 100 →“bcd”
要求:如果明文是大写字母则需要转小写。如果明文是其它字符则不作任何处理。例如:明文为“ABc,z”密钥为3,则结果密文为“def,c”
def change(code,key):
#change函数功能:实现要进行加密的字符code由大写字母转小写字母
#判断转换后的字符code是否为小写字母,若是则进行加密
m=ord(code)
return chr(m)
code=input(“请输入要加密的明文”)
key=int(input(“请输入密钥”))
code_new=“”
for i in code:
code_new+=change(i,key)
print(code_new)
list1=[1,2,3,4]
del list1[1:3]
print(list1)
题目描述:输入一个小写字母,输出其对应的大写字母。例如输入q[回车]时,会输出Q。
输入输出样例:
输入
q
输出
Q