学进去

表达式int(-3.3) = -3 Or 5 < 3 And Sqr(8) < 3的值是（   ）。

A．F

B．5

C．T

D．4

任取一个正整数，如果不是回文数，将该数与它的倒序数相加，若其和不是回文数，则重复上述步骤，一直到获得回文数为止。例如：68 变成154 (68+86)，再变成605 (154+451)， 最后变成1111 (605+506)，而1111是回文数，所以经过3次转化68变成回文数。于是有数学家提出一个猜想：不论开始是什么正整数，在经过有限次正序数和倒序数相加的步骤后，都会得到一个回文数。至今为止还不知道这个猜想是对还是错。下列程序的功能是输入一个整数，判断该整数能否在10次以内转化为回文数。
（1）输入一个数值：37，转成回文数是：______。
（2）请在划线处填上合适的代码。
def is_palindrome(num):       #判断num是否是回文数
       temp,total = num,0
       while temp > 0:
             _____________①             
             temp //= 10
       return total == num
def reverse(n):                    #得到n的反转数，如n为123则得到321
       return int(        )②       )
n=int(input("请输入一个数值："))
c=0
while_____________③                  :
       n=n+reverse(n)
       c+=1
if is_palindrome(n):
       print("该数经过"+str(c)+"次转化成回文数："+str(n))
else:
       print("该数在10次内无法转化为回文数！")
程序运行效果如下：
请输入一个数值：79
该数经过6次转化成回文数：44044

居民身份证号码由十七位数字和一位校验码组成。从左至右依次为：六位地址码，八位出生日期码，三位顺序码和一位校验码。校验码生成规则：把身份证前 17 位的每一个数字和一串加权因子相乘后累加求和；将求得的和与11做取余运算得到校验码序号，最后在校验码字符串中提取与序号相对应的字符作为校验码。具体步骤如下：

（1）计算校验码序号：根据公式∑(ai×Wi) Mod 11 （i=2~18）计算得到校验码的序号；

其中：i：表示号码字符的位置序号，身份证号左边开始第1位的位置序号为18，第2位为17，依次类推，……最后一位的序号为1；

ai：表示第i位置上的号码字符的值；
Wi：示第i位置上的加权因子，通过公式w(i) = 2 ^ (i - 1) Mod 11计算得到。

（2）提取校验码字符：根据步骤（1）得到的序号提取对应的校验码字符。对应关系如下表所示，如：序号0对应校验码“1”，序号1对应校验码“0”。

序号	0	1	2	3	4	5	6	7	8	9	10
校验码	1	0	X	9	8	7	6	5	4	3	2

若步骤（2）中提取到的校验码值和身份证号最后一位相同，则校验通过，否则校验失败（即身份证号有误）。
根据上述原理设计了一个身份证校验VB程序，功能如下：程序启动时从数据库student．accdb中读入学生身份证数据（共15个班级），并在列表框List1中显示，单击“校验”按钮Command1，在列表框List2中输出身份证号有误的班级、出错人数以及出错的学生信息。
实现上述功能的VB程序如下，请回答下列问题：
（1）分析程序，可知存放学生身份证信息的数据表为________。
（2）请在划线处填入合适的代码。
Const max = 1000
Dim n As Integer       '存放学生人数
Dim sfzh(1 To max) As String, xm(1 To max) As String
Dim bj(1 To max) As Integer, flag(1 To max) As Boolean, cw(1 To 15) As Integer
Function check(x As String) As Boolean

Dim jym As String

   Dim i As Integer, sum As Integer, xh As Integer
   Dim a(1 To 18) As Integer, w(1 To 18) As Integer

   jym = "10X98765432"

   For i = 18 To 2 Step -1

a(i) = Val(Mid(x, 19 - i, 1))

   Next i
   For i = 18 To 1 Step -1

w(i) = 2 ^ (i - 1) Mod 11

   Next i

   sum = 0

   For i = 2 To 18

______

   Next i

   xh = sum Mod 11

   If Mid(jym, xh + 1, 1) = Mid(x, 18, 1) Then

check = True

   Else

check = False

   End If
End Function
Private Sub Form_Load()
   Dim conn As New ADODB．Connection
   Dim rs As New ADODB．Recordset

conn．ConnectionString = "provider=microsoft．ace．oledb．12．0;data source=" + App．Path + "\student．accdb"

conn．Open

   Set rs．ActiveConnection = conn

rs．Open "select * from stu_info"

'本过程其余代码实现读取学生的身份证号、姓名和班级分别存数组sfzh、xm和bj中，并在列表框List1中显示，学生人数存变量n中。代码略

End Sub
Private Sub Command1_Click()
   Dim i As Integer, j As Integer
   List2．Clear
   For i = 1 To n
       If _____ Then

flag(i) = True

       Else

flag(i) = False

       End If
   Next i

   For i = 1 To 15

cw(i) = 0

   Next i
   For i = 1 To 15
       For j = 1 To n
        If _____ Then

cw(i) = cw(i) + 1

          List2．AddItem sfzh(j) + "   " + adj(xm(j), 3)
        End If
       Next j
       If cw(i) > 0 Then
          List2．AddItem Str(i) + "班共有以上" + Str(cw(i)) + "个身份证号错误"
       End If
   Next i
End Sub

python3解释器执行 not 1 and 1的结果为（     ）。

A．True

B．False

C．0

D．1

小明需要根据订单的取件距离依次安排快递员取件。快递员出发后不能中途折返，但可以接更远距离的快递订单。当小明新接到一个取件订单，他会依次安排可以取件的快递员取件，若该订单距离小于所有已出发的快递员的最远距离，则安排新的快递员出发取件。编写VB程序，实现上述功能。程序运行时，在文本框Text1中输入订单距离（各数值之间用“，”隔开），单击“安排”按钮Command1后，在标签Label2中显示最后一件快递的收取情况。运行界面如图所示。

（1）运行窗体中，具有Caption属性的对象共有_______类。
（2）若快递订单的取件距离依次为“243，123，167，309，183，229，87，333，183”，则最后距离为183的订单由______号快递员收取。
（3）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（4）程序加框处代码有错，请改正
Dim dd(0 To 100) As Integer           '记录所有订单的取件距离
Dim fp(0 To 100) As Integer             '存储第x个快递员取件的最远距离
Dim xs(0 To 100) As String
Private Sub Command1_Click()
Dim n As Integer，i As Integer，k As Integer，s As String
Dim left As Integer，right As Integer，m As Integer
Dim x As Integer，r As Integer
Randomize
s = Text1.Text: n = 1: i = 1
Do While i <= Len(s)
k = i: ch = Mid(s， k， 1)
Do While   ①_______
k = k + 1: ch = Mid(s，k，1)
Loop
dd(n) = Val(Mid(s，i，k - i))
i = k + 1: n = n + 1
Loop
x = 1: fp(x) = dd(1)
For i = 2 To n - 1
left = 1
right = x
Do While left <= right
m = (left + right) \ 2
If   ②______  Then
right = m - 1
Else
left = m + 1
End If
Loop
_______
fp(r) = dd(i)
If r = x + 1 Then x = x + 1
Next i
Label2.Caption = "第" + Str(i - 1) + "件快递将由第" + Str(r) + "号快递员收取"
'列表框List1中显示每位快递员的收取情况，代码略
End Sub

某分段排序算法描述如下：
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中输入数据总量，单击“数据生成”按钮Commandl后，在列表框List1中显示原始数据，然后单击“分段排序”按钮Command2，在列表框List2中显示排序后的结果。程序运行界面如图所示。

请回答下列问题：
（1）若要清空列表框List1，下列代码正确的是____(单选，填字母：
A.List1.Clear / B.List1.List="" / C.List1.Text="" / D.List1.Caption="空白" )。
（2）实现分段排序功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。______
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

使用Flash软件制作“中秋佳节”多媒体作品，部分界面如图所示。

图a
回答下列问题：
（1）关于多媒体作品的设计，以下说法正确的是_______（多选，填字母：A.分析用户情况属于创作需求分析  /B.确定作品为演示型属于创作需求分析  /C.在应用需求分析阶段完成作品经济效益的预设  /D.在规划设计阶段应完成作品的媒体元素分解）。
（2）“嫦娥”在飞升过程中会重复做一些舞蹈动作，这说明关键帧中的“嫦娥”属于_______（单选，填字母：A.形状  /B.位图  /C.影片剪辑元件实例   /D.图形元件实例）。
（3）图a中右下角的“玉兔”是一个按钮实例，若该按钮元件的编辑界面如图b所示，则测试影片，当鼠标指针经过该按钮时，按钮______（选填：是/否）可见。

图b
（4）“孔明灯”图层的第1-12帧、第25-36帧都制作了“孔明灯”实例向左上飞行的动画，其中第12帧和第25帧的孔明灯位置、大小等属性均相同，以下说法正确的是_______（多选，填字母）。
A.孔明灯上升过程中，X和Y的坐标值都将不断变小
B.在“孔明灯”图层第13帧设置脚本“stopAllSounds（）；”，不会改变动画效果
C.将第一段动画缓动值设置为100，该段动画中“孔明灯”的上升速度将加快
D.在“孔明灯”图层第20帧设置补间属性为“动画”，不会影响动画效果
E.在“孔明灯”图层第37帧插入帧，只会影响本图层效果
（5）修复“玉兔”元件后，测试场景，该按钮一开始就出现，但只有当该场景运行4.1s后点击该按钮才能跳转到新场景。若要求“玉兔”按钮只在该场景最后出现并点击有效，则应做的修改是_______。

某加密算法的明文和密钥均由英文字母组成，且密钥循环使用，其加密规则如下：
①明文字符与对应密钥的 ASCII 码转化为二进制后求异或（对应位相同时结果为 0，对应位不同时结果为 1，如二进制 1001 与二进制 1100 的异或值为 0101），并将异或结果转换为十进制p；
②如果处在奇数位，则将明文字符循环后移 p 个位置，否则将明文前移 p 个位置。移动过程中保持大小写不变。
最后把所得到的字符连接起来就是密文。
例如，密钥是“abc”，明   文“d”的加密过程是：字符“d”的 ASCII 码表示为二进制是 1100100，密钥“a”的 ASCII 码表示为二进制是 1100001，两数进行异或结果是：0000101，转化为十进制为 5，因为是第 1 个位置，所以把明文后移 5 个位置，则密文是“i”。
该加密过程使用 VB 来实现。具体功能设计如下：在 Text1 中输入明文，Text2 中输入密钥，单击“开始加密”按钮Command1 后将密文显示在 Text3 中，界面设计如图所示。


请回答以下问题：
（1）如果密钥为“bc”，字符“d”加密后的密文为：_____（字母“a”的 ASCII 码为 97）
（2）请完善以下程序代码。
Private Sub Command1_Click()
Dim s As String, sn As String
Dim i As Integer, t As Integer, u As Integer
Dim p As Integer, g As Integer
sn = ""
For i = 1 To Len(Text1.Text)
t = Asc(Mid(Text1.Text, i, 1))
If t >= Asc("a") Then
g = Asc("a")
Else
g = Asc("A")
End If
u = Asc(Mid(Text2.Text, (i - 1) Mod Len(Text2.Text) + 1, 1))
p =_________ 
t = t - g
If i Mod 2 = 1 Then
t = (t + p) Mod 26
Else
t =__________ 
End If
sn = sn + Chr(t + g)
Next i
Text3.Text = sn
End Sub
Function txor(x As Integer, y As Integer) As Integer 'x、y 求异或并返回十进制
Dim a As Integer, b As Integer, r As Integer, i As Integer
a = x: b = y
r = 1
For i = 1 To 7
If a Mod 2 <> b Mod 2 Then________ 
a = a \ 2
b = b \ 2
r = r * 2
Next   i
End Function

信息科代表楠楠想给美丽的信息老师写一段心里话，又怕被人发现，于是想了一个两全其美的方法。楠楠有两张n*n大小的纸，一张是透明的，一张是有字的。楠楠在透明的纸上涂黑了一些格子，然后把两张纸一起给信息老师，并告诉老师阅读方法：首先把透明的纸盖在另一张纸上，然后把露出来的字母从上到下从左到右写下来并将每个字母向左循环移一位(如取出是D，则左移为C)，然后将透明的纸顺时针旋转90度，再读一遍，这样子一共读四遍，就得到情书内容。
（1）若透明纸上的涂黑处（“O”没有涂黑的地方，“#”代表被涂黑的地方）如图a所示，有字纸张内容如图b所示，则获取的情书内容的前八位内容________

（2）楠楠根据上述阅读规则，结合学科特点，发挥自己特长，设计了一科个获取心里话的小程序。其VB代码和运行界面如图所示，请在划线处填入合适的代码。

Dim a(1 To 1000) As String
Const n = 4
Private Sub Form_Load()
Dim x As Integer, s As String
Dim b(1 To n * n) As Boolean
Randomize
For i = 1 To n‘随机产生n个位置，使得这些位置表示未被涂黑
_______
If b(x) = False Then
a(x) = "0"
b(x) = True
Else
i = i - 1
End If Next i
‘将其余位置赋值为“#”，存入数组a相应的位置中，并将结果按n行n列的方式显示在列表框list1上，代码略
End Sub
Private Sub Command1_Click()
Dim s As String, jg As String, ch As String
s = "HAOXUEXIHAODUSHU"
For i = 1 To n * n Step n
List2.AddItem Mid(s, i, n)
Next i
For i = 1 To n
For j = 1 To n * n
If a(j) = "0" Then
ch = Mid(s, j, 1)
ch = _______
jg = jg + ch
End If
Next j
Call turn(n)‘调用过程turn，完成矩阵顺时针旋转90度
Next i
Label1.Caption = jg End Sub
Sub turn(x As Integer)
Dim i As Integer, j As Integer
Dim c(1 To n * n) As String
For i = 1 To x
For j = 1 To x
c((i - 1) * x + j) = _______
Next j
Next i
For i = 1 To n * n
a(i) = c(i)
Next i End Sub

小李使用Flash软件创作“花中君子”多媒体作品。请回答下列问题：
（1）作品的模块设计框架图图a所示，将各功能模块和主交互界面都设计成独立场景。各功能模块的场景播放完成后自动停止，单击“返回”按钮，返回主交互界面。下列说法正确的是______（多选，填字母）。

A.主交互界面中包含5个功能模块
B.主交互界面中按钮的应用体现了多媒体技术的交互性
C.各功能模块场景的最后一帧可添加帧动作脚本stop();
D.各功能模块场景中“返回”按钮上可添加动作脚本on( release){gotoAndStop(1);}
（2）“竹之韵”场景的编辑界面如图b所示，“轻舟”图层中的小船是“舟”元件的实例。“舟”元件是在当前场景中通过绘制船形状并转换为图形元件后生成的，“舟”元件中的船是_____（选填：位图/矢量图）。若调整小船实例的大小，则“舟”元件_____（选填：会/不会）同步变化。

（3）“轻舟”图层中实现了小船从起始位置1移动到终止位置2的动画，位置1、2及其坐标（X，Y）值如上图所示。下列关于小船动画的描述正确的是______（多选，填字母）。
A.测试场景时，小船沿水平方向匀速移动
B.小船动画的补间类型为“动画”，移动时间约为4.5秒
C.若将小船动画的缓动值调整为100，测试场景时，小船移动总时长将增加
D.若在当前图层第15帧插入关键帧，测试场景时，小船从第1帧到第15帧没有移动
E.若将小船起始坐标改为（150,200），测试场景时，小船移动将变快
（4）“文字”图层的第30帧和第36帧均为关键帧。测试场景时，为了使“文字”图层第31帧到第35帧中的内容完全消失，其他动画效果保持不变，应进行的操作是__________。