k = 0: s = ""
For i = 1 To n

Next i
Text1.Text = s
方框中的代码由以下四部分组成:
①If a(i) = 0 Then k = k + 1
②If p = k Then s = s + Str(a(i - k))
③a(i - k) = a(i)
④p = k
代码顺序正确的是( )
⑴搜索关键字为“北京奥运会 赛程安排”的相关报道;
⑵将搜索结果网页保存到考生文件夹\download文件夹下,文件名、文件类型默认。
(注:如果download文件夹不存在,请考生自己新建。)
Private Sub Command1_Click()
Dim n As Single, i As Integer, c As Integer
List1.Clear
n = Val(Text1.Text)
If n - Int(n) > 0.5 Then
n = Int(n)+1 ‘n 小数部分大于 0.5 的加 1,0.5 及以下的加 0.5
Else
End If
c = n * 2 - 10
Label1.Caption = "适合你的鞋码为:" + Str(c)
For i = 22.5 To n+2 step 0.5
If Int(i) = i Then
List1.AddItem Str(i) + " " + Str(c)
Else
List1.AddItem Str(i) + " " + Str(c)
End If
Next i
End Sub
⑴从左向右将13个数字按顺序排列,最左边的是第1位,最右边的是第13位(即校验位)。将所有偶数位的数据相加,结果乘3,得到p。将除校验位以外所有奇数位的数据相加,得到q。
⑵计算p加q得到的和除以10的余数,再计算该余数以10为模的补数(如3以10位模的补数为7,8以10为模的补数为2)。
⑶若补数与校验位相等,则验证正确,否则验证错误。
小李对上述校验规则进行了加密处理,他将前12位数字分成3个一组。每组上每个数字分别循环向左移1位轮换(如第2位移到第1位,第7位移到第9位),再分别加上所处的位置后除以10 的余数,示例如下:
|
位置 |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
|
原文 |
9 |
7 |
8 |
7 |
5 |
1 |
0 |
1 |
3 |
7 |
0 |
1 |
3 |
|
轮换 |
7 |
8 |
9 |
5 |
1 |
7 |
1 |
3 |
0 |
0 |
1 |
7 |
3 |
|
密文 |
8 |
0 |
2 |
9 |
6 |
3 |
8 |
1 |
9 |
0 |
2 |
9 |
3 |
小李还编写了解密验证程序,代码如下,运行界面如图所示。
Private Sub Command1_Click()
Dim i As Integer, t As Integer, code As String, res As String
Dim p As Integer, q As Integer, x As Integer
Dim a(1 To 13) As Integer
code = Text1.Text
For i = 1 To 12
ch = Mid(code, i, 1)
t = ①
a(i + 1 - ( ② ) * 3) = t
Next i
For i = 1 To 12
If i Mod 2 = 0 Then p = p + a(i) Else q = q + a(i)
Next i
x = ③
If x = Val(Mid(code,13,1)) Then res = "验证正确" Else res = "验证错误"
Label3.Caption = res
End Sub
请回答下列问题:
① ② ③
x=16
if x< 0:
y =abs(x)
else:
y =math. sqrt(x)
print(y)
def encrypt(code,key):
code_ new = " "
for s in code:
s1= 97 +((ord(s)-97)+key) % 26
code_ new + = chr(s1)
return code_ new
c = input('code=')
b = encrypt(c, 3)
print(b)

|
图a |
请回答下列问题:
(提示:M2单元格输入公式=SUMPRODUCT((A1:A100=“2”)*(I1:I100=“优秀”)),表示同时满足A1:A100是2班和I1:I100是优秀这两个条件的情况有几个,也就是进行条件计数。)
|
图b |

空白矩形框中应该填入的是( )