学进去

阅读下列程序，写出运行结果。

m = 1 n = 0 for i in range（3）: m += 1 for j in range（5）： n += 1 print（m, n）

运行结果是：____________

小明设计了某社团积分系统，当输入用户ID和积分增值后可以更新积分和排名。具体功能如下：单击“读取”按钮Commandl后，将n个用户的ID（依次为1到n）、积分和积分排名显示在列表框List1中。在Text1中输入ID和积分增值，用逗号作为分隔符和结束符，奇数位置整数表示ID，偶数位置整数表示积分增值。如输入“2,1,3,5，”表示ID为2的用户增加1积分，ID为3的用户增加5积分。单击“更新”按钮Command2，在列表框List2中显示更新后的积分和排名。程序运行界面如图所示。

请回答下列问题：

（1）若要清空列表框 List1，下列代码正确的是______(单选，填字母：A.List1.Clear / B.List1.Caption="" / C.List1.Text="" )。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正

Const n = 12

Dim a(1 To n) As Integer, mc(1 To n) As Integer

Private Sub Command1_Click()

   ’n个用户的ID依次为1到n,读取n个用户的积分和排名数据分别存储到数组a和数组mc中，并在列表框List1中显示ID、积分、积分排名，代码略

End Sub

Private Sub Command2_Click()

     Dim i As Integer, j As Integer, k As Integer, d As Integer

     Dim s As String, flag As Boolean, x As Integer, y As Integer

     Dim p(1 To 20) As Integer   '存储输入的ID和积分增值，每次输入不超过10组

     For i = 1 To 20

          p(i) = 0

     Next i

     s = Text1.Text

     __________①          

     d = 0: k = 0

     For i = 1 To Len(s)

          If Mid(s, i, 1) = "," Then

             If flag Then

                 x = Val(Mid(s, i - d, d))

                 For j = 1 To k Step 2

                      If p(j) = x Then Exit For

                 Next j

                 If j > k Then

                      p(j) = x: k = k + 2

                 End If

             Else

                 y = Val(Mid(s, i - d, d))

                 p(j + 1) = p(j + 1) + y

             End If

             flag = Not flag:   d = 0

          Else

             ______②       

          End If

     Next i

     For i = 1 To k \ 2

             x = p(2 * i - 1): y = p(2 * i)

             mc(x) = 1

             For j = 1 To n

                 If j <> x Then

                         If a(j) < a(x) + y And a(j) >= a(x) Then___________

                 End If

                 If a(j) > a(x) + y Then mc(x) = mc(x) + 1

             Next j

             ________③       

     Next i

     '在列表框List2中显示ID，积分、排名，代码略

End Sub

学校创客社团开展机器人比赛活动,其中设置了机器人循迹项目。比赛规则如下:给出10*10规模的矩阵地图，随机设定4个循迹点，小车以蛇形路线找到循迹点后，计算最长的两点直线距离。矩阵图中以0表示非循迹点，1表示循迹点，循迹过程如图a所示：编写一个VB程序实现如下功能：单击“开始循迹”按钮Command1，呈现10*10矩阵地图，并随机生成4个循迹点，分别用数字1表示，数字0表示非循迹点；计算4点中相距最远的两点的直线距离，显示在标签Label1中。程序运行界面如图b所示。

图a                                                                                                                                                             图b
（1）若随机生成的4个循迹点如图a所示，则该4点中相距最远的两点直线距离为_________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10, m=4
Dim b(1 To 8) As Integer
Private Sub Command1_Click()
Dim f(1 To n * n) As Integer
Dim i As Integer, j As Integer, w As Integer, k As Integer
Dim length As Single, maxlen As Single, s As String
‘生成矩阵地图和随机生成4个循迹点,0表示非循迹点,1表示循迹点,存于数组f中For i = 1 To n^2 ‘显示矩阵地图和4个循迹点

s = s + Str(f(i))

If i Mod n = 0 Then

List1.AddItem s

s=""

End If

Next i
w = 1
For i = 1 To n

For j = 1 To n

k = (n + 1) * ((i-l) Mod 2)+(-1)^(i-1)*j

If_____① Then‘记录循迹点所在位置

b(2 * w - 1) = i: b(2 * w) = k

w = w + 1

End If

Next j

Next i
i=1 : maxlen = 0
Do While i<= m - 1

For j=i+1 To m

   ______②     

If length > maxlen Then maxlen = length

Next j

i = i + 1

Loop
Label1.Caption = Str(maxlen)
End Sub
Function reck(x As Integer, y As Integer) As Single
Dim c As Integer, d As Integer
Dim h As Single
c =______③      
d = Abs(b(2 * x)-b(2 * y))
h= Sqr(c^2+d^ 2)
reck = h
End Function

使用 Flash 软件制作一个展示“中国领先世界的科技”的多媒体作品。请回答下列问题：
（1）使用GoldWave软件编辑背景音乐，部分界面如图a所示：
图a

以下说法正确的是______（多选，填字母）

A．可以使用GoldWave的淡入功能实现音乐音量逐渐变大

B．把音乐另存为WAV格式的文件，音质会比原来的好

C．当前状态下执行“删除”命令，则该音乐变成单声道格式

D．在媒体元素分解表中需要记录该背景音乐文件的名称和处理工具

E．该音乐每秒播放的数据量为128kb

图 b
（2）制作动画的部分界面如图 b 所示。每项科技的动画播完后暂停，单击“下一项”按钮后播放下一项科技的动画，则“下一项”按钮上添加的动作脚本是______。
（3）为了使每项科技的补间动画持续时间变为1秒，在不改变各项科技补间动画开始时间和帧数的情况下，应进行的操作是______。
（4）根据图b所示的信息，以下说法正确的是______（多选，填字母）

A．测试场景时，一直能听到背景音乐，则声音同步方式可能为“事件”

B．为实现“激光技术”图层第11帧到20帧的淡入动画效果，可把该图层第11帧中的图形实例Alpha值设为100%

C．“高铁”图层展示的是高铁位图实例向右移动的动画，则其动画类型是动画补间

D．“量子技术”图层第10帧上有动作脚本“stop();”，把该作品导出为AVI格式的影片，该影片播放到第10帧会自动停止

以下VB程序利用选择排序思想对数组a进行升序排序。
For i = 1 To n \ 2
   iMax = i: iMin = i
     For j = i + 1 To n - i + 1
        If a(j) > a(iMax) Then iMax = j
        If a(j) < a(iMin) Then iMin = j
     Next j
   
     If iMax = i Then
       
     Else
        
     End If
Next i

上述程序段中方框处可选语句为：

①temp = a(i): a(i) = a(iMin): a(iMin) = temp
②temp = a(iMin): a(iMin) = a(n - i + 1): a(n - i + 1) = temp
③temp = a(iMax): a(iMax) = a(n - i + 1): a(n - i + 1) = temp

则（1）（2）（3）处的语句依次为（     ）

A．①②③

B．①③②

C．②①③

D．③②①

某加密算法为：从明文第一个字符开始，每间隔k个字符，将长度为k的字符串进行逆序换位加密,若剩余字符长度不满k则不进行位置变换。如:明文为“IVeryLikeVB6.0”，k的值为3，则加密结果为“IVeLyrike6BV.0”。编写如下VB程序段实现该加密算法,则程序段中3个方框处的代码分别为：（       ）
s = Textl.Text
k = Val( Text2.Text): i = 1: count = 0: flag = False
Do While i<= Len(s)

count = count + 1

If i+k-1 <= Len(s) And flag Then

                       

Else

ns= ns + Mid(s，i，1)

i = i + 1

End If

If count = k Then

count = 0

If flag = True Then

End If

Loop
Lable1.Caption = ns

A．①ns = ns + Mid(s,i+k–count,1) ②i=i+k ③flag = Not flag

B．①ns = ns + Mid(s,i+k–count,1) ②i=i+1 ③flag = False

C．①ns = ns + Mid(s,i+k-1,1) ②i=i+k ③flag = Not flag

D．①ns = ns + Mid(s,i+k-1，1) ②i=i+1 ③flag = False

小球由5米高度自由落体运动,不考虑空气阻力，每次落地后反弹回原高度的一半,重复这个过程，理论上永远不会停止。求它在第10次落地时，共经过多少米?
程序代码如下：

请补全程序:______________

阅读下列程序，写出运行结果。

程序运行后，输入：8        运行输出结果是：_________

有如下VB程序段：
key = 2 * Int(Rnd * 25) + 1
For i = 1 To 9
   low = i + 1: high = 10: flag = False
   Do While low <= high And Not flag
       m = (low + high) \ 2
       If key - a(i) < a(m) Then
          high = m - 1
       ElseIf key - a(i) > a(m) Then
          low = m + 1
       Else
          flag = True
       End If
   Loop
   If flag Then Exit For   ' Exit For 表示退出循环
Next i

数组元素a(1)到a(10)的值依次为“7,9,12,12,19,28,32,34,34,40 ”，执行该程序段后，变量i和m的值可能的是（     ）

A．1   4

B．2   8

C．3   6

D．5   7

有如下对分查找VB程序段：
Key = Val(Textl.Text)
i = l: j = 10:c= 0: flag = True
Do While i<= j And flag

m= (i+ j)\ 2

cnt = cnt + l

If a(m) = Key Then flag = False

If a(m) < Key Then

i = m ＋ l

Elself flag Then

j = m – l

End If

Loop
Text2.Text = Str(cnt)
若数组元素a（l）～a（10）的值依次为“5,9,13,18,22,27,31,39,40,44”，运行程序后，文本框Text2中显示的内容为3，则输入的key值不可能为（       ）

A．5

B．13

C．39

D．40