学进去

   使用Flash 软件创作“四季更替”的多媒体作品。请回答下列问题：
（1）作品的部分系统结构如图 a 所示，将“春”、“夏”、“秋”、“冬”四个模块及“主交互界面”、“片头”、“片尾”都设计成独立场景，各场景之间通过按钮实现跳转。下列说法正确的有___（多选，填字母：A. 决定用Flash 软件来创作该作品属于多媒体作品设计中的需求分析/ B.设计该结构属于多媒体作品设计中的规划设计 / C.“主交互界面”场景里至少需要 4 个按钮/ D. “退出”按钮中的命令有交互性E.这个多媒体作品具有交互性)

图a

图 b
（2）“夏”场景如图 b 所示，“白云”图层的第 1 帧到第 24 帧实现白云的形态变化，则该动画的补间类型是____。
（3）为了让“风车”实例旋转的速度越来越慢，则缓动值应设置为___（填字母 A . - 100 / B . 0 / C . 100）。
（4）要使“蜻蜓 1”动画从第 13 帧开始播放并持续 1 秒之后，才开始播放“蜻蜓 2”图层的动画补间，正确的操作是____。
（5）要想通过单击“夏”场景的“返回”按钮，使动画跳转到“主交互界面”场景的第 1 帧并停止播放，则在该按钮上添加的动作脚本是____。

大数据是当今最热门的领域之一，小王同学利用VB设计了一个模拟大数据应用的程序。有10种商品，数组a存储用户是否购买了各种商品；某个用户购买时，商品两两之间是否一起购买用另一个数组dsj来记录；各数组元素的解释如下表所示。

小王按照上述算法设计了VB程序，统计了20个用户购买10种商品之间的关联性，VB程序如下，部分界面如图所示.

Private Sub Cmd1_Click()
Dim a(1 To 200) As Integer     '各个用户原始的购买记录
Dim dsj(1 To 45) As Integer    '统计商品之间的关联次数
Dim i As Integer, t As Integer, nc As Integer, j As Integer,, max As Integer
'数组a读入数据并在列表框分行输出,代码略
For i = 1 To 20                '20个用户
t = 1  
For j = 1 To 9              '10个商品,共45种组合
For k = j + 1 To 10
m = (i - 1) * 10
If   Then dsj(t) = dsj(t) + 1
①     
Next k
Next j
Next i
max = 0
For i = 1 To 45
If ②　　  Then 
max = dsj(i)
maxi = i
EndIf
Next i
t = 9: nc = 1
Do While maxi > t
③      
t = t - 1
nc = nc + 1
Loop
Text1.Text = “关联最多的是商品” + Str(nc) + Str(maxi + nc) + “:” + Str(max) + “次”
End Sub
（1）将按钮上的文字“统计”修改为“计算”，可在Form_Load过程中使用______（单选，填字母）语句实现；
A.Cmd1.Caption=“计算”   B.Cmd1_Click=“计算”   C.Command1.Text=“计算” 
（2）加框处代码有错，请改正；
________
（3）在程序划线处填入合适代码，使程序完整。
①______________________________
②______________________________
③______________________________

赋分制是新高考改革中选考科目成绩换算的一种方式，现在有一种新的赋分制是“一分一赋”，该方法采用先划分等级再等比例赋分的方式来实现，规则如图a所示。

图a
例如，小明技术选考的考试分为72分（S₀=72），该分数在技术考生群体中排位等级为B等级，参考16图a可知，该等级内的等级分最高分为85分（T₂=85）、等级分最低分为71分（T₁=71），且该等级内的所有学生的考试分最高为82分（S₂=82）、最低为67分（S₁=67），则小明的等级赋分计算如下：
     （不进位取整）
特别需要注意的是：
（1）划分等级时从高等级（A）向低等级（E）划分，若有同分的临界学生则全部向上合并，并减少下一个等级的学生数，依次类推，直到最后一个等级为所有剩下的学生。
（2）换算等级学生人数、换算等级分时，均采用直接去掉小数的方式取整。
编写VB程序，读取学生某科目成绩并按照“一分一赋”规则换算出所有学生的等级分，显示在List1中，程序运行界面如图b所示。

图b
（1）如图b所示，若该次考试中某考生的卷面分为80分，则对应等级分为_______。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim num(1 To 5000) As String, score(1 To 5000) As Integer
Dim a(1 To 20) As Single, b(1 To 20) As Integer
Dim n As Integer, m As Integer  'n保存学生数,m保存等级数
Private Sub Form_Load()
'读取学号和成绩,分别保存在数组num和score
'数组a等级比例,数组b等级分上下限,如a(1)=15,b(1)=100,b(2)=86,依次类推
End Sub
Private Sub Command1_Click()
Dim cj(1 To 100) As Integer, dj(1 To 100) As Integer, k As Integer
Dim i As Integer, st As Integer, ed As Integer, r As Integer
Dim t1 As Integer, t2 As Integer, s1 As Integer, s2 As Integer
st = 0: ed = 100
For i = 1 To n
cj(score(i)) = ①____________
If st < score(i) Then st = score(i)
If ed > score(i) Then ed = score(i)
Next i
For i = st - 1 To ed Step -1
cj(i) = cj(i) + cj(i + 1)
Next i
r = 0
For i = 1 To m
t2 = b(2 * i - 1): t1 = b(2 * i) :  s2 = st
k = Fix(n * a(i) / 100) – r             '计算当前等级的学生数
If i = m Then
j = ed
Else
j = s2 - 1
Do While ②____________
j = j - 1
Loop
End If
s1 = j
r = cj(s1) - cj(s2 + 1) - k
For j = s2 To s1 Step -1
dj(j) = t1 + Fix((j - s1) * (t2 - t1) / (s2 - s1))
Next j
③____________
Next i
List1.Clear
List1.AddItem " 学生学号 原始分 等级分"
For i = 1 To n
s = num(i) + "  " + Str(score(i)) + "    " + Str(dj(score(i)))
List1.AddItem s
Next i
End Sub

编写 VB 程序，实现如下功能：单击对象“生成”，随机生成 n*n（n<10）个不重复的随机二位整数，并以 n 行 n 列矩阵的形式显示在列表框 List1 中，单击“排序”按钮，将矩阵中每一行中的数据按照奇数在前，偶数在后，奇数偶数分别升序排序的方式进行排序，并将排序后的结果显示在List2中，程序运行界面如下图所示。


程序代码如下，请回答如下问题：
(1) 在运行界面中，具有 Caption 属性的对象有_____________个。（填数字）
(2) 请在横线处填入合适的代码
(3) 程序加框处代码有误，请改正。
Const n = 6
Dim i, j, k As Integer Dim s As String
Dim a(1 To n * n) As Integer Private Sub Command1_Click()
For i = 1 To n * n
Randomize
a(i) = Int(Rnd * 90) + 10
For j = 1 To i - 1
If a(j) = a(i) Then
a(i) = Int(Rnd * 90) + 10
_________________________
End If
Next j
s = s + Str(a(i))
If _______________________Then
List1.AddItem s
s = ""
End If
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To n * n
k = i
For j = i + 1 To______________________
If  ______________  Then
k = j
ElseIf a(k) Mod 2 = 0 And a(j) Mod 2 = 1 Then
k = j
End If
Next j
If k <> i Then t = a(k): a(k) = a(i): a(i) = t
Next i
End Sub
‘将有序的数据输出在 List2 中，代码略

由数组a生成数组b的方法描述如下：
1)   将数组a中的n个元素依次分割出若干个数据块，每个数据块有m×m个元素，m最大值为8，最小值为2。分割时，按尽可能大的数据块进行分割；
2)   对每个分割出的数据块用“方阵转换法”进行转换，每次转换后得到的数据块依次存储在数据b中；
3)   数组a分割后的剩余元素（个数小于4），直接依序存储到数组b中。

例如n=140时，可依次分割出3个数据块，元素的个数分别为64（8×8）、64（8×8）、9（3×3），剩余元素为3个。

“方阵转换法”过程如下：将数据块中m×m个元素按行序排列成一个数字方阵，从该数字方阵中按列序得到转换后元素的次序。以3×3数据块为例，转换过程如下图所示:
         转换前元素次序

转换后元素次序      
小明依据上述描述设计了如下VB程序。请回答下列问题：
（1）当n=120时，分割出的第3个数据块元素个数为__________。
（2）请在划线处填入合适的代码。
Const n = 120
Dim a(1 To n) As Integer
Dim b(1 To n) As Integer
Private Sub Command1_Click()
Dim m As Integer, i As Integer
Dim Start As Integer   '当前未分割数据的第1个元素下标
Dim Left As Integer    '当前未分割数据的个数
Dim pa As Integer      '数组a的下标
Dim pb As Integer      '数组b的下标
'读取n个转换前的数据，依次存储到a(1)、a(2)、……a(n)中，代码略
m = 8
Start = 1
Left = n
Do While Left > 3
If Left < m * m Then
m = ___________
Else
pa = Start
pb = Start
For i = 1 To m * m
b(pb) = a(pa)
pb = pb + 1
If i Mod m = 0 Then
______________
Else
pa = pa + m
End If
Next i
______________
Start = Start + m * m
End If
Loop
For i = Start To n
b(i) = a(i)
Next i
'依次输出转换后数据b(1)、b(2)、……b(n)中，代码略
End Sub

酒店房间管理问题：某酒店房间（房间数小于1000）编号按1、2、3……连续编号，客房经理对没有入住的房间使用如下方法来登记管理。连续的空房间，登记第一个房间的编号和连续的空房间数，比如空房间1，2，6，7，8，10，则登记3条记录，分别为1_2，6_3，10_1。某旅客如果退房，需要把这个房间号也登记进去，共有4中情况需要处理：
（1）上靠：若退的房间号为3，则原来登记的记录变为1_3，6_3，10_1；
（2）下靠：若退的房间号为5，则原来登记的记录变为1_2，5_4，10_1；
（3）上下靠：若退的房间号为9，则原来登记的记录变为1_2，6_5；
（4）上下都不靠：若退的房间号为4，则原来登记的记录变为1_2，4_1，6_3，10_1
根据上述规则，小明编写了相应的VB程序，程序启动时读入空房间数据，并在列表框List1中显示，在文本框Text1中输入退房号，单击“退房”按钮后更新列表框List1中的数据。
程序界面如下图所示，请回答下列问题：

（1）当前登记的记录有3条，分别为2_3，6_2，9_4。某旅客退掉8号房间，则登记的记录将变为________。
第二部分通用技术（共50分）
（2）实现上述功能的VB程序如下，请将划线处的代码补充完整。
Const n=1000
Dim a（0 To n）As Integer a(i)保存第i条记录的开始房间号
Dim b（0 To n）As Integer b(i)保存第i条记录的房间数
Dim c As Integer, k As Integer, sp As Integer k为原始记录数
Private Sub Form_Load()
程序启动时从数据库中读取原始k条记录，依次存入a（1），b（1），a（2），b（2），…，a（k），b（k），代码略
为了程序处理方便，虚设下面两条记录
A(0)=0:b(0)=0:sp=k+1:a(sp )=1000:b(sp)=0
End Sub
Private Sub Command1_Click()

Dim i As Integer, j As Integer

c=Val(Text1.Text)

i=1

Do While a(i)<c

i=i+1

Loop

i=i-1

以下处理退房登记问题
Ifa(i)+b(i)=c Then
If a(i+1)=c+1Then   处理第3种情况

           ①__________

For j=i+1 To sp-1

a(j)=a(j+1):b(j)=b(j+1)
Next j
sp = sp-1

Else 处理第1种情况

b(i)=b(i)+1

End If

ElseIfc+1=a(i+1)Then 处理第2种情况

a(i+1)=c:b(i+1)=b(i+1)+1

Else 处理第4种情况

For j=      ②________

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

Next j

a(i+1)=c:b(i+1)=1:     ③______

End If
List1.Clear
For i=1To sp-1

List1.Addltem"第"& CStr(i) &"条记录"&CStr(a(i))&"_"&CStr(b(i))

CStr函数的作用是将数字转成字符串

Next i

End Sub

约翰·沃利斯（John Wallis，1616-1703，英国数学家）给出计算公式：

我们用S来代替π/2，,公式就变成了：

项数 1   2   3   4   5   6   7   8  ……
请观察公式中每一项，，……的变化规律，
1）如果用x/y表示每一项的分子和分母，请写出x和Y的变化规律。
2）如果要递推n项求π的值（n从外部输入），请写出VB代码。

某对分查找算法的VB程序段如下：
’数组元素f（1）到f（8）赋初值为0，代码略
Key=2*Int（Rnd*45）+1
i=1：j=9：c=0：s=0

Do While i<j

c=c+1
m=（i+j）\2
f（m）=1
If Key<a（m）Then j=m Else i=m+1
Loop
For k=1 To 8
s=s+f（k）
Next k
数组元素a（1）到a（8）中的值为：4，20，32，42，58，60，90，91．执行该程序段后，下列说法正确的是（   ）

A．变量c的值可能为5	B．变量s的值一定为奇数
C．变量i的值可能为9	D．变量j的值可能为7

有如下VB程序段：
n = 6
For i = 1 To n - 1
For j = n - 1 To i Step -1
If a(j) > a(j + 1) Or a(j) = a(j + 1) And b(j) < b(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
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为3，6，7，1，8，1；b(1)到b(6)的值依次为5，3，7，7，7，4。执行上述程序段后，a(2)与b(2)的值分别是（  ）

A．1，4

B．1，7

C．7，5

D．7，7

有如下VB程序段：
For i=1 to 6

a(i)=int(rnd*10)+1

if a(i) mod 2= i mod 2 then

i=i-1

elseifi mod 2=0 then

a(i)=a(i)+a(i-1)

end if

next i
执行该程序段后，数组a（1）~a（6）中存储的数据不可能是：（   ）

A．4，9，8，15，6，9	B．2，7，8，11，6，9
C．4，8，2，7，6，7	D．6，9，4，7，8，13