学进去

利用欧几里得辗转相除法求两数最大公约数
def gcd（m，n）：
       if______：
               return n
       else：
               r=m%n
               return______
a=int（input（'请输入第一个正整数："））
b=int（input（'请输入第二个正整数：））
print(       )
（1）A．m//n==0                 B．m//n！=0          C．m%n==0                  D．m%n！=0
（2）A．gcd（m，n）          B．gcd（m，r）     C．Gcd（n，r）          D．gcd（n，r）

某算法的流程图如图所示，执行这部分流程，则输出c的值为（     ）

A．3

B．4

C．5

D．6

货轮在装载货物时，不相容的物品不能装在一只箱子中。比如酸类腐蚀物品不宜和碱类腐蚀物品混装，否则容易造成事故。物品不相容关系用下图所示：

每一种货物用一个整数编号表示，如第i物品和第j物品不相容，则表第i行j列和第j行i列的值均为1。如1号物品和3号物品不相容，则表中第1行第3列，第3行第1列的值均为1。小明设计了一个VB程序检查n张货物装箱清单是否合理（检查每张装箱单中是否有不相容的物品）。数组a依次存储各装箱清单中的物品编号（1~m的整数），每张清单的物品数量依次存储在数组b中。如b(1)=3，表示第1张装箱清单有3件物品。
请回答下列问题：
（1）如物品不相容关系如图所示，有3张装箱清单，b(1)=3，b(2)=3，b(3)=4，数组a的值依次是6,2,3,1,4,3,4,2,5,1 ,则不合理的清单数量是_______（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 20, m =10        '清单数量n，物品种类m
Dim a(1 To 500) As Intger   
Dim b(1 To n) As Integer
Dim c(1 To m) As Integer   'c数组中初值为0
Dim f(1 To m * m) As Integer
Private Sub Form_Load()

'读取各装箱清单中的物品编号存入a数组，每张清单的物品数量存入b数组

'按物品不相容的关系，初始化f(1)~f(m*m)，代码略
End Sub
Private Sub Command1_Click()
     Dim i As Integer, p As Integer, k As Integer
     Dim flag As Boolean
     For i = 2 To n
          b(i) = ________            '计算到第i张装箱清单的累计物品数量
     Next i
     p = 1: flag = True: k = 1
     Do While p <= b(n)
        If c(a(p)) = 0 Then
             For i = 1 To m
                    If _________ Then c(i) = 1
             Next i
        Else
             List1.AddItem "第" + Str(k) + "张清单不合理"
             flag = False
        End If
        If _______ Then
             k = k + 1
             For i = 1 To m
                 c(i) = 0
             Next i
             If Not flag Then
                 p = b(k - 1)
                 flag = True
             End If
        End If
        p = p + 1
     Loop
End Sub

RGB色彩，是通过对红(R)、绿(G)、蓝(B)三个颜色通道的变化以及它们相互之间的叠加来得到各式各样的颜色的，也即红绿蓝R,G,B，它们从0到255。小李编写了VB程序，在文本框Text1中输入十进制RGB值，如：“255，0，192”。单击“对照”Command1按钮，在文本框text2中输出相应的十六进制“FF00C0”。如图所示：

请在画线处填入合适的代码：
Private Sub Command1_Click()
   Dim s As String, ch As String, temp As String, hx As String
   Dim i As Integer, r As Integer, t As Integer
   s = Text1.Text            ‘RGB的十进制值，用“,”分开
   t = 0
   hx = ""
   For i = 1 To Len(s)
       ch = Mid(s, i, 1)
       If ch = "," Then          ‘对“，”前的十进制t转换成十六进制数
          hx = hx & D2H(t)       ‘自定义函数D2H(t),将十进制t的值转换成十六进制
          t = 0
       Else
          t =   ____________
       End If
   Next i
   Text2.Text = ___________
End Sub
‘自定义函数D2H(t),将十进制t的值转换成十六进制
Function D2H(k As Integer) As String
   If k = 0 Then
       temp = "00"
   Else
       temp = ""
   End If
   Do While k <> 0
          r = k Mod 16
          k = k \ 16
          If r > 9 Then
             temp = Chr(Asc("A") + r - 10) & temp
          Else
             temp = r & temp
          End If
   Loop
   D2H = temp
End Function

某次大型活动需要给活动现场铺地毯，由于地毯的尺寸不够大和铺设地毯的工人经验不足，他在铺设过程中将各块地毯部分铺设区域重叠。活动现场可以看成由m*n个小方格组成的矩阵（m，n<=100），每块地毯铺设位置由左上角（x1,y1）和右下角（x2,y2）两个坐标确定。
小凯同学想了解每个小方格被多少块地毯覆盖，以便更好地调整地毯铺设位置，编写了VB程序，实现以下功能：在文本框Text1中输入行数m，在文本框Text2中输入列数n，在Text3中输入每块地毯铺设的坐标x1,y1,x2,y2……（坐标之间逗号分隔，地毯数量不超过100），单击计算按钮Commmand1，在列表框List1中显示每个小方格被多少块地毯覆盖。程序运行界面如图所示。

（1）文本框Text1中输入行数为5，在文本框Text2中输入列数5，在Text3中输入的地毯铺设的坐标为s=1,1,2,2,1,2,3,3则最后输出矩阵a(7)的值为_________。（填数字）
（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Dim m As Integer
Dim n As Integer
Dim a, b, c, d As Integer
Dim flag(0 To 10000) As Integer
Dim sum(0 To 10000) As Integer
Dim pos(0 To 100) As Integer
Private Sub Command1_Click()
List1.Clear
m = Val(Text1.Text)
n = Val(Text2.Text)
s = Text3.Text
k = 1
For i = 1 To Len(s)
       c = Mid(s, i, 1)
If c = "," Then k = k + 1 Else __________①         
Next i
For i = 1 To k \ 4
a = pos(i * 4 - 3)
b = pos(i * 4 - 2)
c = pos(i * 4 - 1)
d = pos(i * 4)
       _________②         
Next i
For i = 1 To m
       s = ""
       For j = 1 To n
             sum((i - 1) * n + j) = sum((i - 1) * n + j - 1) + flag((i - 1) * n + j)
             s = s + Str(sum((i - 1) * n + j))
       Next j
       List1.AddItem s
Next i
End Sub
Sub add(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer)
       For i = x1 To x2
             flag((i - 1) * n + y1) = flag((i - 1) * n + y1) + 1

   ______________③      

       Next i
End Sub

BMP图片能压缩的一个原因是图片本身存在空间冗余，即一幅图像像素之间往往存在着连贯性。如图a所示，假设此图为256色位图图像，第一行为16个白色像素，每个像素颜色用一个“FF”表示，存储信息用十六进制描述为“FF,FF,FF,……FF”（16个“FF” ）。压缩后可以用两个字节“10FF”来表示，第一个字节“10”表示数量，第二个字节“FF”表示颜色，存储空间为原来的1/8。
现在对256色位图图像信息进行压缩，算法描述如下：
①像素用十六进制编码；
②对像素压缩用两个字节为一个单元存储，第一个字节存储连续相同像素的个数，第二字节存储此像素的颜色编码；
③连续相同像素超过255个，用多个单元存储该连续像素。
图a
上述原始信息压缩为：
图b
小刘根据上述描述设计了如下Python程序：
f = open("图片代码.txt","r")
list1 = []
line = f.readline()
while line :
       data = line.split( )
       list1 = list1 + data
       line = f.readline()
print("原始数据信息")
print(list1)
print("-----------------------------------")
f.close()
def dtoh(n) :
       tmp = ""
       while n > 0 :
             r = n % 16
             n = n // 16
             if r > 9 :
                    tmp =_______①                
             else :
                    tmp = str(r) + tmp            
       tmp = "0" + tmp                                   #保证转换结果至少为两位十六进制数
       return tmp[-2:]
n = len(list1)
list1.append("OV")
ans = []
key = list1[0]
pos = 1               
while pos < len(list1) :
       count = 1
       while pos < len(list1) and key==list1[pos]:       
             count += 1
             pos += 1
       tim = count // 255
       rem = count % 255
       for i in range(tim):
             _______②          
       if rem > 0 :
             ans.append(dtoh(rem) + key)
       ___________③        
       pos += 1
print("压缩数据信息")
print(ans)
阅读上述代码，请回答下列问题：
（1）图像数据片段“AB AB AA AA AA AA AA AA AA AA AA AA D9”经过该程序压缩后的数据是___。
（2）请在划线处填入合适的代码。

某程序功能如下：数组a中存放了n*n个10到99之间的随机整数，按n行n列的形式在列表框List1中显示（即第一行依次显示a(1)～a(n)，第二行依次显示a(n+1) ～a(2*n)，依次类推）。在文本框Text1中输入某矩形区域的左上角位置(x1,y1)（注：x1表示列号，y1表示行号），在文本框Text2中输入右下角位置(x2,y2)，单击“垂直翻转”按钮Command1，对以(x1,y1)和(x2,y2)为对角顶点的矩形区域中的数据进行垂直翻转，并在列表框list2中显示。程序运行界面如图所示。

（1）依据上述描述设计如下VB程序。请在划线处填入合适的代码。
Const n = 5
Dim a(1 To n ^ 2) As Integer, b(1 To n ^ 2) As Integer
Private Sub Form_Load()
‘产生n*n个10到99之间的随机整数存数组a，并在List1中显示。代码略。
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, value As String, c As String, xy(1 To 4) As Integer
s = Text1.Text + "，" + Text2.Text
value = "": j = 0
For i = 1 To Len(s)

c = Mid(s, i, 1)

If c >= "0" And c <= "9" Then

value = value + c

Else

_________①__________

xy(j) = Val(value): value = ""

End If

Next i
xy(4) = Val(value)
For i = 1 To n

For j = 1 To n

If j >= xy(1) And j <= xy(3) And i >= xy(2) And i <= xy(4) Then

b((i - 1) * n + j) =___________②____________

Else

b((i - 1) * n + j) = a((i - 1) * n + j)

End If

Next j

Next i
List2.Clear:c=””
For i = 1 To n*n

c = c + Str(b(i))

if _______③_________ then

List2.AddItem c

c=””

end if

Next i
End Sub
（2）对于有10*10个元素构成的数组a，如果输入左上角位置是（2，3），右下角位置是（6，7），垂直翻转后，则元素a(23)在新数组中的位置是______________。

使用如图a所示的九宫格键盘输入单词，每个单词对应一个按键组合，如“tree”对应的按键组合为“8733”；而按键组合“8733”对应的单词有“tree”、“used”等。抽取n个英文单词（可重复），使用九宫格键盘输入，统计最频繁使用的按键组合。
编写VB程序，实现上述功能。运行程序，在列表框List1中显示n个英文单词（单词仅由小写字母组成且字母个数至少为1），单击“统计”按钮Command1，在列表框List2升序显示全部单词的按键组合，在文本框Text1中显示最频繁使用的按键组合，若有多个，则全部输出。程序运行界面如图b所示。

（1）下列类中生成的对象具有Text属性的是______（单选，填字母：A. Label/ B. TextBox/C. CommandButton）。
（2）实现上述功能的部分VB程序如下，请在划线处填入合适的代码。
'n为常量，代码略
Dim a(1 To n)As String                                 '数组a存储所有单词
Dim b(1 To 2 * n)As String                           '数组b存储转换后的按键组合
Private Sub Form_ Load()

'读取所有单词存入数组a，并显示在列表框List1中

'初始化数组b各元素为空字符串，代码略

End Sub
Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer, p As Integer, max As Integer

Dim m As Integer, key As String, t As String, s1 As String, s2 As String

key="2223334445556667778889999"             'key表示a-z各个字母所对应的键盘数字

max=0

'以下代码实现将数组a中的每个单词转化成按键组合，并依次存入数组b中

For i= 1 To n

            t='' ''

For j= 1 To Len(a(i))

m=Asc(Mid(a(i),j, 1))-Asc("a")

t=

Next j

B(i)= t

Next i

'以下代码实现对数组元素b(1)~b(n)升序排序
_________
Do While i >=1

For j=1 To i

If b(j+1)< b(j)Then

t=b(j+1): b(j+l)= b(j): b(j)=t

End If

Next j

i=i-1

Loop
'将排序后数组元素b(1)~b(n)显示在列表框List2中，代码略
s1=b(1)
p=n+1
i=1: j=2
Do While j<=n       '从数組元素b(n+1)开始存储最高频次的按键组合

s2= b(j)

If s1 <> s2 Then

If____Then

max=j-i

p=n+1

b(p)=s1

ElseIf max=j-iThen   

p=p+1

b(p)=s1

End If

s1=s2

______

End If

j=j+l

Loop

t=" "

If max<j-I Then

t=sl

Else

Fork=n+1 To p

t=t+ b（k）+"     "

Next k

If max=j-I Then t=t+"   "+s1

End If

Text1.Text= "最频繁按键组合为: " &t

End Sub
（3）程序中加框处代码有错，请改正_____。

在Python语言中，可以使用列表来模拟链表节点的插入操作。以下Python程序段用二维列表来定义单向链表。如要在该链表中插入节点，可以通过程序来修改相应节点的指针达到目的。
（1）如下图所示，请根据程序补充完整未插入数据前的链表数据区域的值（依次填写）① _________、 _________、 _________、 _________。此时链表的头指针的值是② _________。

（2）实现链表插入的 Python 程序如下，请在程序划线处填入合适的代码。
data=[[8,-1],[7,4],[5,5],[6,0],[1,3],[2,1]]       # 定义单向链表
head=2 leng=len(data)
pos=int(input("请输入要插入的位置（0~%d）之间："%(leng)))
val=int(input("请输入要插入的数据值："))
data.append([val,leng])
# 插入节点：
p=head
if pos== ___________:       # 加在链表最前面，作为首节点

data[leng][1]=p

head=_________             # 更新头指针

else:

q=data[p][1]

c=0

while c < pos-1 and q!=-1:

p=q

q=data[p][1]

c+=1

__________             # 更新指针

data[p][1]=leng

# 用列表形式来显示插入后的链表：
p=head
s=[ ]
while p!=-1:

s.append(              )

p=data[p][1]

print(s)

小张使用Flash软件创作主题为“北京冬奥会”的多媒体作品，如图所示。

请回答下列问题：
（1）下列属于应用需求分析的是_____（多选，填字母：A.分析社会上对此类作品的需求程度/B.考虑创作作品需要的硬件和软件/C.分析作品的社会效益和经济效益/D.根据主题思想和内容，制定作品的脚本大纲/E. 确定作品的发布方式）。
（2）测试场景，本场景动画播放完毕后停止，声音继续播放，则声音的同步方式是_____（单选，填字母：A.事件/B.数据流）。“冰墩墩”图层的第1帧到第20帧的补间动画实现吉祥物“冰墩墩”跑动着从舞台外进入舞台内，则“冰墩墩”是由_____（单选，填字母：A.位图/B.影片剪辑元件）创建的对象。
（3）测试影片时，单击“进入”按钮，停止声音播放并跳转到“main”场景第1帧继续播放，则“进入”按钮上的动作脚本为______。
（4）要使“按钮”图层的按钮在本场景开始时就出现，并持续至本场景结束，其它动画效果保持不变，则以下操作可行的是____（多选，填字母）。
A.选中“按钮”图层第1帧执行“清除关键帧”操作
B.选中“按钮”图层第60帧执行“复制帧”操作，再选中“按钮”图层第1帧执行“粘贴帧”操作，并删除第1帧上的脚本命令
C.选中“文字”图层第1~59帧执行“删除帧”操作，再选中“按钮”图层第60帧执行“插入帧”操作
D.选中库中相应按钮添加到“按钮”图层第1帧中，并设置相同的大小和位置
E.选中“按钮”图层第60帧移动到“按钮”图层第1帧