试题详情
选择题 较易0.85 引用1 组卷64
某 Python 程序段如下：

import random

fibo = [1] * 11

for i in range(2, 11):

fibo[i] = fibo[i - 1] + fibo[i - 2]

n = random.randint(1,10)

print(fibo[n])

运行该程序段，输出结果不可能是(　　)
A．1B．21C．35D．89
21-22高二下·浙江绍兴·期中
收藏试题 下载试题 加入试题篮
知识点：典型算法 答案解析 【答案】很抱歉，登录后才可免费查看答案和解析！
类题推荐
对数组a中的n个元素进行排序，生成左右交替上升的数据序列，结果如下表所示：
a（1）a（2）a（3）……a（n-2）a（n-1）a（n）
273539……493933
小华由此设计一个VB程序，功能如下：单击“排序”按钮Command1，随机生成10个两位奇数，将随机生成的数据序列显示在文本框Text1中，在文本框Text2中显示完成排序后的数据序列，运行结果如图所示。

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Randomize
Const n = 10
For i = 1 To n
       a(i) =         ①           
       Text1.Text = Text1.Text + Str(a(i))
Next i
For i = 1 To n \ 2
       For j = n - i + 1 To i + 1 Step -1
             If a(j) < a(j - 1) Then
                    t = a(j - 1)
                            ②          
                    a(j) = t
             End If
       Next j
       For j = i + 1 To n - i

             If Then

                    t = a(j): a(j) = a(j + 1): a(j + 1) = t
             End If
       Next j
Next i
For i = 1 To n
       Text2.Text = Text2.Text + Str(a(i))
Next i
End Sub
（1）代码Command1_Click（）中的Click属于___________
（单选，填字母：A．对象名/B．事件名/C．方法名/D．事件处理过程名）。
（2）程序代码中，划线①处的代码可能是__________（单选，填字母）。
A．Int（Rnd * 88） + 11                    B．Int（Rnd * 89） + 11
C．Int（Rnd * 44） * 2 + 11                    D．Int（Rnd * 45） * 2 + 11
程序代码中，在划线②处填入合适的代码。
____________
（3）程序代码中，加框处语句有错，请改正。
改正：___________
某ASCII字符加密方法算法如下：
（1）计算出该ASCII字符的8位二进制数值
（2）将该数值分割为前4位与后4位两个二进制数
（3）分别将上述两个4位二进制数转换为十进制数
（4）将每个十进制数转换为1个加密字符，对应的“密码表”如下
值（十进制）0123456789101112131415
加密字符I1ikeCHNpostcard

根据以上加密算法来推断解密算法，下表显示了字符串中两个字符的解密过程：

小明设计了一个解密程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中输出解密结果。程序运行时界面如下图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）请在划线处填入合适的代码。
Private Sub Command1_Click()

Dim z As String, a As String, b As String

Dim i As Integer, y As Integer

z = Text1.Text

Text2.Text ="   "

For i= 1 To①______

a=Mid(z, i, 1)

b= Mid(z, i+1, 1)

②______

Text2.Text = Text2.Text + Chr(y)

Next i


End Sub
Function zn(x As String)As Integer       '得出加密字符对应密码表中的十进制数
Dim m As String, i As Integer
m ="IlikeCHNpostcard"
For i =0 To 15

If③______Then

zn=i

Exit For

End If


Next i
End Function
（2）若已知字符“a”的ASCI1码值为97（十进制），加密字符HN对应的英文字母是______________。
小李设计的一VB程序功能如下：在文本框Text1中输入随机数的个数n（个数不超过100），单击“生成”按钮Command1，生成n个随机整数，奇数位置产生奇数，偶数位置产生偶数，并将它们依次存储在数组a中。单击“排序”按钮Command2，对数组各元素中的奇数实现升序排序，偶数实现降序排序。部分运行界面如图所示。

（1）下列对象不具有 Caption 属性的是___（A．Form1 / B．Text1 /C．Label1）
（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Dim n As Integer
Dim a(1 To 100) As Integer
Private Sub create_Click()
Dim i As Integer
Randomize
n = Val(Text1．Text)
For i = 1 To n
       a(i) = Int(Rnd() * 45) * 2 + 11
       If _______ Then a(i) = a(i) - 1
       List1．AddItem Str(a(i))
Next i
End Sub
Private Sub sort_Click()
For i = 1 To n \ 2
       For j = 1 To n - 2 * i Step 2
             If __________ Then
                    t = a(j): a(j) = a(j + 2): a(j + 2) = t
             End If
       Next j
　　          
　　　k = c
       For j = k + 2 To n Step 2
             If a(j) > a(k) Then     _________
       Next j
       If k <> c Then
             t = a(k): a(k) = a(c): a(c) = t
       End If
Next i
For i = 1 To n
       List2．AddItem Str(a(i))
Next i
End Sub
（3）程序代码中的加框处代码有误，请改正___。

组卷网是一个信息分享及获取的平台，不能确保所有知识产权权属清晰，如您发现相关试题侵犯您的合法权益，请联系组卷网

组卷
试题篮
我的