学进去

有多人在不同楼层要乘坐同一部电梯，所有人都是去往更高楼层，电梯初始位置为第一批用户出发的楼层位置。电梯在运行时，上升一层需耗时3秒，在某一层停留时（含电梯初始位置和电梯结束位置），不论有多少人进出都算8秒。小马同学利用上述算法编写了一个VB程序，在列表框list1中显示所有人的出发与到达楼层，按照出发楼层升序（出发楼层相同按到达楼层升序）排序，在列表框list2中输出排序后结果，最后在文本框Text1中输出电梯本次运行的总时间。程序运行界面如图所示，回答下列问题：   

（1）若有5批用户出发与到达楼层分别是“10-25、5-15、15-20、15-30、5-10”，按照上述电梯运行规则，则电梯本次运行的总时间为_______秒。
（2）给划线处填上合适代码，使程序完整. 
Dim a(1 To 10) As Integer, b(1 To 10) As Integer
Private Sub Command1_Click()
Dim i As Integer, time As Integer, k As Integer
Dim c(1 To 20) As Integer, nc As Integer
c(1) = a(1): nc = 1
For i = 1 To 9                   '删除起点重复数据后添加到数组c
If a(i) <> a(i + 1) Then
nc = nc + 1
①__________
End If
Next i
For i = 1 To 10                 '删除终点重复数据后添加到数组c
k = nc
Do While b(i) < c(k)
k = k - 1
Loop
If②________ Then          '非重复数据(新停靠楼层)添加到数组c
For j = nc To k + 1Step -1
c(j + 1) = c(j)
Next j
nc = nc + 1
c(j + 1) = b(i)
End If
Next i
time =  (c(nc) - c(1)) * 3 + nc * 8
Text1.Text = “总时间--” + Str(time) + “秒”
End Sub
Private Sub Form_Load()
'生成10批人的起止楼层,分别给数组a和b,并在列表框list1输出,代码略.
For i = 1 To 9
For j = 10 To i + 1 Step -1
If a(j) < a(j - 1) Or③__________ Then
t = a(j): a(j) = a(j - 1): a(j - 1) = t
t = b(j): b(j) = b(j - 1): b(j - 1) = t
End If
Next j
Next i
For i = 1 To 10
List2.AddItem Str(a(i)) + Str(b(i))
Next i
End Sub

现需要对某班学生的物理和技术成绩进行排序,排序规则为:先按物理成绩非升序排列,物理成绩相同时按技术成绩非升序排列。

按上述要求,编写一个VB程序,功能如下:在文本框Text1中输入排序前的成绩(每个成绩之间用若干空格隔开),例如“99 98 97 92 91 93”表示三位学生的物理和技术成绩分别为{99 98},{97 92},{91 93}。单击“排序”按钮后,排序结果显示在列表框List1中,程序运行界面如图所示。

(1)“排序”按钮的对象名为______。 
(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。
(3)程序中加框处代码有误,请改正。
Private Sub sort_Click()

Dim a(1 To 200) As Integer '存储成绩,成绩范围为[0,99]

Dim n As Integer, t As Integer, s_len As Integer

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

Dim s As String, c As String

List1.Clear

s = Text1.Text

s_len = Len(s)

n = 0: t = 0

For i = 1 To s_len + 1

　　c = Mid(s, i, 1)

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

　　　_____

　　Else

　　　　n = n + 1

　　　　a(n) = t

　　　　t = 0

　　　　Do While i <= s_len And Not (c >= "0" And c <= "9")

　　　　　　i = i + 1

　　　　　　c = Mid(s, i, 1)

　　　　Loop

　　　　If i <= s_len Then_____

　　End If

Next i

n = n \ 2

For i = 1 To n

　　a(i * 2 - 1) = _____

Next i

For i = 1 To n - 1

　　k = i　________

　　For j = i + 1 To n

　　　　If a(k) < a(j * 2 - 1) Then k = j * 2 - 1

　　Next j

　　t = a(k)

　　a(k) = a(i * 2 - 1)

　　a(i * 2 - 1) = t

Next i

List1.AddItem "物理技术"

For i = 1 To n

　　a(i * 2) = a(i * 2 - 1) Mod 100

　　a(i * 2 - 1) = a(i * 2 - 1) \ 100

　　List1.AddItem Str(a(i * 2 - 1)) + " " + Str(a(i * 2))

Next i

End Sub

小王计划使用VB制作一个扫雷小游戏，他首先需要生成一个“雷区”：
①生成n*n的矩阵，其中计划埋雷m 个，n和m 的数据分别从text1和text2中获取（n<=10，m<=n）
②随机位置埋好地雷后（埋雷位置用X表示且埋雷位置不重复），未埋雷的位置显示该位置周围一圈地雷的数量。

程序代码如下：
Dim flag(0 To 200) As Boolean, a(0 To 200) As String
Dim n As Integer, m As Integer
Private Sub Command1_Click()

Dim s As String, x As Integer, k As Integer

Dim i As Integer, j As Integer

Randomize

n = Val(Text1.Text): m = Val(Text2.Text)

'初始化数组flag中各元素均为False，数组a中各元素值为字符"0"，代码略

For i = 1 To m

x = Int(Rnd * (n ^ 2)) + 1

If flag(x) = True Then i = i - 1 Else flag(x) = True

Next i

For k = 1 To n * n

If flag(k) = True Then

a(k) = "X"

Else

For i = (k - 1) \ n To (k - 1) \ n + 2

For j =    ①  

If i = 0 Then Exit For

If flag((i - 1) * n + j) = True And j >= 1 And j <= n Then

a(k) =    ②  

End If

Next j

Next i

End If

Next k

For i = 1 To n * n           '在列表框list1中输出矩阵

s = s + "   " + a(i)

If    ③   Then

List1.AddItem s

s = ""

End If

Next i

End Sub  
根据上述代码，完成下列问题：
（1）上图框中位置未埋雷，且数字被遮挡，请问该位置中应填写的数字是_________ 
（2）请在划线处填上合适的代码。  
___________________
__________________
__________________

现有编号为A、B、D、H四种颜色由浅到深的小花，若要在n个盆中种植n株小花，每个盆种植一株，为使颜色搭配方案更加协调，需要遵守以下原则：

图a
①颜色浅的小花株数不能少于颜色深的小花株数，即数量要求A> = B>= D>= H。
②某些编号的小花可以不种植，但颜色必须协调，若种植编号为B的小花，则必须种植编号为A的小花；若种植编号为D的小花，则必须种植编号为B的小花；若种植编号为H的小花，则必须种植编号为D的小花。例如：种植4个盆，则AABH，BBDH为不可行方案。
③相同小花不同排列也视作不同方案，如AAAB与AABA是两种不同的方案
（1）当花盆个数为3个时，方案总数为____________个。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const s = "ABDH"
Dim num(1 To 10)   As Integer
Private Sub Commandl_Click( )
Dim n As Integer, total As Integer
Dim flower(0 To 3) As Integer  'flower(0)存储编号为A的小花数量
Dim ans As String
n = Val(Text1, Text)
For i= 1 To n
ans = ans ＋ "A"
Next i
List1.AddItem ans
total = 1
For i= 1 To 4^▲n - 1
'初始化数组flower 的代码为0,代码略
ans ="":j =n
①______
Do While j > 1 And num(j) = 4
num(j - 1) = num(j - 1)+1
num(j) = 0
j=j - 1
Loop
'统计"A"、"B"、"H"每种小花出现的次数
For j =1 To n
②_______
Next j
If flower(0) >= flower(1) And flower(1) >= flower(2) And flower(2) > = flower(3) Then
ans = num2chr(n)
List1. AddItem ans
total = total＋1
End If
Next i
Label1. Caption = "共有:" + Str(total) + "种方案"
End Sub
Private Function num2chr( number As Integer) As String
For i = number To 1 Step - 1
num2chr =③______ ＋ num2chr
Next i
End Function

有60个人要组建一个聚会，每人的喜好是一个数值，为提升聚会效果，会务组要把参会人员进行分组，分组原则是：
（1）每组不超过8人
（2）组内新增人员的喜好值必须与现有组内人员的平均喜好值相差在5以内
（3）若新增人员无法加入现有小组，则被分入新组建小组
小V同学根据上述算法设计编写了VB程序，界面如图所示，单击“分组”按钮后，在列表框list1输出分组结果，每组一行，回答下列问题：
Dim a(1 To 60) As Integer '各人的喜好值
Private Sub Command1_Click()
Dim i As Integer, j As Integer, c As Integer，s as String
Dim b(1 To 480) As Integer '分组后喜好值
Dim ave(1 To 60) As Integer, num(1 To 60) As Integer
For i = 1 To 60 ‘预设60个分组
num(i) = 1
ave(i) = 0
Next i
c = 1: ave(1) = a(1): b(1) = a(1)
For i = 2 To 60
For j = 1 To c
If Abs(a(i) - ave(j)) <= 5 And num(j) < 8 Then
ave(j) = ___________
num(j) = num(j) + 1
b(j * 8 - 8 + num(j)) = a(i)
Exit For
End If
Next j
If ________Then
b(c * 8 + 1) = a(i)
ave(j) = a(i)
c = c + 1
End If
Next i
s = ""
For i = 1 To c
For j = 1 To __________
s = s + Str(b((i - 1) * 8 + j))
Next j
List1．AddItem s
s = ""
Next i
End Sub
Private Sub Form_Load()
‘生成60个原始数据，存入数组a，数组b各元素初始化为0，代码略
End Sub
（1）如图所示，当前数据已被分组,若再新增一个数“64”，会被分在第_____组。

（2）在程序划线处填入合适代码，使程序完整。

使用Flash软件创作“雍正故宫”作品，其中“load”场景的制作脚本如下表所示，部分界面如图a所示，请回答下列问题：

场景名：load	类别序号：1	进入方式：启动动画自动播放
呈现方式：			呈现顺序：
①“音乐”图层中的声音源于库中的素材 bg.wav，			①一开始时出现背景画面，音乐随即
参数如图b所示。			播放。
②“文物”从完全透明到完全显示，由左到右			②1秒后出现“文物”动画，3.5秒后音
由小变大慢慢呈现在舞台上。			乐停止播放。
③“播放”按钮位于舞台右侧位置，单击该按钮跳			③最后出现“播放”按钮，场景停止
转到“main”场景第 1 帧并开始播放。			播放。
(其他略)			(其他略)

                                 
图a
图b
（1）根据所给材料，下列说法正确的是______(多选，填字母)。
A. 该动画作品至少包含2个场景
B. “播放”按钮只能用于本场景的舞台中
C. 编写制作脚本后应进行的操作是编写文字脚本
D. “文物”图层第10帧对象的Alpha值为0%
（2）从图中可知“故宫”图层中的文字“雍正故宫”为________（选填：实例/形状）。
（3）根据制作脚本可知，背景图层第60帧处应添加动作命令为________。
（4）若要使得“音乐”图层中的音乐在“文物”图层补间动画结束后停止播放，在不改变其他动画效果情况下，以下操作可行的是_____（多选：填字母）。
A.在“音乐”图层第20帧帧插入关键帧
B.将“音乐”图层第35帧空白关键帧移至第20帧
C.在“音乐”图层第20帧添加stopAllSounds();指令
D.删除“音乐”图层第20-34帧，并将声音的同步方式设置为事件
（5）“按钮”图层的呈现方式和脚本不符，则应进行的操作是________。

有一批货物，已知每件货物的重量和货架号，机器人在可承受的载量范围内，每趟按货物顺序连续装载尽量多的货物，并将各货物送到其货架号相应的货架上。如图 a 所示，货架构成是环形结构，货架是按顺时针方向从 1 到 10 进行编号，第 10 号货架（即图中 A 处）不装货物，机器人在 A 处装载货物。每趟装载货物后，机器人按所装载货物的倒序配送货物，配送过程中尽可能走更短的路线，例如：某趟机器人所装载货物的货架号依次为：3，1，7，9，则机器人按倒序配送货物的路线如图 a 中带箭头虚线所示，配送完成后回到 A 处继续下一趟配送任务。现要求在限定配送趟数内完成任务时，计算机器人所能承受装载的最大重量至少为多少？机器人完成所有趟数的配送任务并回到 A 点的总行程是多少？
小李编写 VB 程序实现上述功能：在列表框 List1 中按货物顺序显示其重量和货架号，在文本框Text1 中输入机器人送货趟数，单击“结果”按钮 Command1 后，标签 Label3 和 Label4 中分别显示要求机器人可承受的最大载重最小值和送货总行程。程序运行界面如图 b 所示。 

图 a    

图 b
请回答下列问题：
（1）如图 b 所示，机器人最大载量达到 20 时，机器人第 3 趟配送的货物数量是____件。
（2）实现机器人送货功能的 VB 程序如下，请在划线处填入合适的代码。
Const num = 8    '货物数量
Const shelf = 10    '货架数量, 1-9 号货架可供存储货物,第 10 号货架用作机器人装货点
Dim g(1 To num) As Integer    '各货物的重量
Dim s(1 To num) As Integer    '各货物的货架号
Private Sub Form_Load()
'从数据库中读入 num 件物品的重量、货架号,分别存储在数组 g、s 中
'将各物品数据显示在list1 中,代码略.
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, max As Integer, total As Integer
Dim head As Integer, tail As Integer, dis As Integer, part As Integer
①______
total = g(1)
For i = 2 To num
If g(i) > max Then max = g(i)
total = total + g(i)
Next i
n = 0
For i = max To total
part = 0: n = 0: head = 1: dis = 0
For j = 1 To num
part = part + g(j)
If part > i Then
n = n + 1: j = j - 1: tail = j
dis = dis + tran(head, tail)
part = 0: head = tail + 1
End If
Next j
If part > 0 Then
n = n + 1
②___
dis = dis + tran(head, tail)
End If
If n <= Val(Text1.Text) Then Exit For
Next i
Label3.Caption = "机器人可承受的最大载量至少为:" + Str(i)
Label4.Caption = "机器人完成各趟任务的总行程为:" + Str(dis)
End Sub
Function tran(p As Integer, q As Integer) As Integer    '计算机器人每趟按装货倒序配送并回到A 处的行程
Dim temp As Integer, t1 As Integer, t2 As Integer, k As Integer
temp = 0: t2 = shelf
For i = q To p Step -1
t1 = t2: t2 = s(i)
k =③_____ 
If k > (shelf + 1) \ 2 Then k = shelf - k
temp = temp + k
Next i
If t2 <= shelf \ 2 Then temp = temp + t2 Else temp = temp + shelf - t2
tran = temp
End Function

要对报告厅内参加表演和观看演出的学生座位进行安排，具体学生相关数据如下表1所示。班级已经按从小到大排定，节目共4个，编号依次为1-4，不参加表演的学生的节目编号为5；已知报告厅有200个座位（10排20列），全部报名人数为150人，其中参加节目表演的学生为12人。座位：安排规则如下：①左上区域有12个座位（3排4列）为表演学生专座，用“O”表示，从左至右，从前至后，按节目顺序从小到大依次安排座位。②其他区域用“口”表示，从左至右，从前至后，按班级顺序依次安排不参加表演的学生的座位。
在Text1中输入班级，在Text2中输入姓名，单击“查询”按钮Command1，显示：①学生行列位置显示在标签label2中：②学生具体位置显示在列表框List1中。程序运行界面如图所示。
（1）根据表1显示的数据，1班的黄楠，所在的位置是_______（例填：第1排第1列）。
（2）请在划线处填入合适的代码。

Const n=150
Const row=10:Const col=20
Const acty=3:Const actx=4
Dim a(1 To n) As String, b(1 To n) As String, c(1 To n) As String
Dim e(1 To row*col) As String   ’存储学生姓名
Private Sub Commandl_Click()

num= f(Text1.Text, Text2.Text)

If num < >0 Then

l=(mum-1)\col+1

__________

’在1ist1中用实心图形标记查找到的位置，代码略

Label2. Caption="你的位置在：第"+Str(1)+"排，第"+Str(r)+"列"

Else

Label2 Caption="没有找到你的座位!"

End If

End Sub

Private sub Form_Load()

Dim lastn As Integer, m As Integer, flag As Boolean, k As Integer

’读取班级、学生姓名、参加节目编号到数组a、b、c中，代码略

flag=True: lastn=1

Do While flag

___________

For j= n To lastn+1 Step-1

If c(j)< c(j-1) Then

t=a(j):a(j)=a(j-1):a(j-1)=t

t=b(j):b(j)=b(j-1):b(j-1)=t

t=c(j):c(j)=c(j-1):c(j-1)=t

lastn=j: flag True

End If

Next j

’座位初始化，并且在1ist1中显示，代码略

m=1:k=13

For i =1 To row

For j=1 To col

If_________Then

e((i-1)*col+j)=b(m):m=m+1

ElseIf k <=n Then

e((i-1)*col+j)=b(k):k=k+1

End If

Next j

Next i

Loop

End Sub
Function f(a As String, b As String)As Integer

’函数f根据输入的班级、姓名返回在数组e中的位置，如果没有找到则返回数字0

End Function

某数据压缩方法描述如下：
1）原始数据中，某数不为0且相邻无重复，压缩数据用该数据表示；
2）原始数据中，某数为0且相邻无重复，压缩数据用两个数表示，第1个位0，第2个为0；
3）原始数据中，某数据相邻有重复，压缩数据用3个数表示：第1个位0，第2个为重复数的个数，第3个为该数本身；
根据上述压缩方法，对应的解压缩方法示例如图a所示。

图a

小明编写了一个解压送VB程序，功能如下：窗体加载时，自动读取压缩数据，依次存储在数组元素a(1)、a(2)、a(3)……中，压缩数据的个数存储在变量n中，压缩数据显示咋文本框Text1中。单击“解压缩”按钮Command1，程序对压缩数据依次进行解压缩处理，解压缩数据显示在文本框Text2中。程序运行界面如图b所示。

图b

（1）如果压缩数据为“23,0,21,66,0,0,77,0,5,0”，则解压缩数据的个数是__________。
（2）实现上述功能的VB程序如下。请在划线处填入合适代码。
Dim a(1 To 100) As Integer '存储压缩数据，最大处理个数为100
Dim b(1 To 1000) As Integer '存储解压缩数据，最大处理个数为1000
Dim n As Integer '存储压缩数据的个数
Private Sub Form_Load()
'压缩数据由上述压缩方法生成
'本过程用于读取压缩数据并存储在数组a，压缩数据个数存储在变量n中
'代码略
End Sub
Private Sub Command1_Click()

Dim pa As Integer '存储压缩数组当前处理位置

Dim pb As Integer '存储解压缩数组当前处理位置

Dim firstdata As Integer, count As Integer, i As Integer

pa = 1: pb = 1

Do While pa <= n

          firstdata = a(pa)
If firstdata <> 0 Then  '示例1情况处理
b(pb) = firstdata
pa = pa + 1: pb = pb + 1

Else

count = a(pa + 1)

If count = 0 Then   '示例2情况处理

b(pb) = 0

pa =____________: pb = pb + 1

Else               '示例3情况处理

                For i = 1 To count
______________
Next i
pa = pa + 3:  pb = pb + count
End If
End If

Loop

Text2.Text = Str(b(1))

For i = 2 To ___________

         Text2.Text = Text2.Text + "," + Str(b(i))

Next i

End Sub

有n个连续的自然数，删除首尾两端之外的其中一个数后存储在数组元素a（1）到a（n-1）中，利用对分查找算法找出这个数的某VB程序段代码如下：
Const n=10
i = 1: j = n - 1
Do While j - i >= 2
    m = (i + j) \ 2
If   (1)  Then            
i = m
Else
  (2) 
End If
Loop
Text1.Text = Str(   (3)  )        
上述程序中(1)(2)(3)划线处可选语句有：
① a(j) - a(m) =j-m               ② a(m) - a(i) = m - i 
③ j = m – 1                       ④ j = m
⑤ a(i) + 1                        ⑥ a(i)
则上述程序中(1)、(2) 、(3) 划线处的代码依次为（  ）

A．①③⑤

B．②④⑤

C．①③⑥

D．②④⑥