学进去

小王设计了一个利用矩阵“翻转法”实现矩阵逆序输出的程序，其功能为：运行程序时，在文本框 Text1 中输入矩阵大小n，点击“产生矩阵”按钮 Command1，在列表框 List1 中显示一个 n×n 的矩阵，该矩阵数据为随机两位正奇数。点击“翻转矩阵”按钮 Command2，该矩阵翻转(水平翻转和垂直翻转均要实现)后显示在列表框 List2 中，再点一次“翻转矩阵”按钮 Command2，列表框 List2 中显示的矩阵被还原为初始状态。程序运行界面如图所示。

实现上述功能的 VB 程序如下，请回答下列问题：
（1）在上图的程序运行界面基础上，再连续两次单击 Command2 按钮，则列表框 List2 中第一行显示的内容是____________________。
（2）实现此程序的代码如下，请完成程序填空。
Dim n As Integer
Dim L As String
Dim i as Integer
Dim j as Integer
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Private Sub Command1_Click()
n = Val(Text1.Text)
Randomize
For i = 1 To n * n
a(i) =    ①   + 1
Next i
For i = 1 To n
L = ""
For j = 1 To n
L = L + " " + Str(a((i - 1) * n + j))
Next j
List1.AddItem L
Next i
End Sub
Private Sub Command2_Click()
List2.Clear
For i = 1 To n
L = ""
For j = 1 To n
b((i - 1) * n + j) =    ②   
L = L + " " + Str(b((i - 1) * n + j))
Next j
List2.AddItem L
Next i
For i = 1 To n * n
a(i) =    ③  
Next i
End Sub

小龙同学设计了一个求四则混合运算结果的程序，用于计算不带括号的+、-、*、\的运算， \为整除运算，且此处要求*和\的优先级相同。在表达式中输入待求解的表达式，以=结尾。按下 Command1“计算”按钮后，在标签控件 Label1 中输出运算结果。程序界面如下图所示：

（1）在表达式中输入15-22\5*2+7=，则输出的结果是    。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Function calculate(x As Integer, y As Integer, op As String) As Integer If op = "+" Then calculate = x + y
If op = "-" Then calculate = x - y If op = "*" Then calculate = x * y If op = "\" Then calculate = x \ y
End Function
Function state(op As String) As Integer If op = "#" Then state = -1
If op = "=" Then state = 1
If op = "+" Then state = 1
If op = "-" Then state = 1
     '① 
If op = "*" Then state = 3
End Function
Private Sub Command1_Click()
Dim s As String, length As Integer, t As String Dim k As Integer, q As Integer
Dim opt(0 To 3) As String Dim i As Integer
Dim s1 As String
Dim a(1 To 3) As Integer s = Text1.Text
length = Len(s)
t = "": k = 0: q = 0: opt(q) = "#"
For i = 1 To length s1 = Mid(s, i, 1)
If s1 >= "0" And s1 <= "9" Then
t = t + s1

Else

k = k + 1 a(k) = Val(t) t = ""
Do While    '②
a(k - 1) = calculate(a(k - 1), a(k), opt(q))
k = k - 1
q= q - 1
Loop
q = q + 1
      '③

If s1 = "=" Then Label1.Caption = Str(a(1))

End If

Next i

End Sub

现要编写一个程序，对每个班级的同学生成考试座位号，规则如下：先按成绩从高到低排序，如果成绩相同，学号在前的学生座位号在前，最后输出每个同学的座位号。小王和小李采用不同的方法实现了上述算法。请仔细比较两位同学的代码的不同之处，并完成相关代码的填空。

Dim xm (1 To n) As String,xh(1 To n) As String
Dim cj(1 to n)As Integer
Private Sub form_load()
'读取相关数据表，把姓名、学号、成绩分别存储到数组xm、xh、cj中，并在List1中显示，代码略
End Sub
Private Sub Com1__Click()'小王编写的代码部分
Dim wz (1 To n) As Integer

For i = 1 To n-1

wz(i) = i
For j = n To i+1 Step-1
If    (1)   Then
t = cj(j):cj(j) = cj(j-1):cj(j-1) = t
t = xh(j):xh(j) = xh(j-1):xh(j-1) = t
End If

Next j

Next i
     (2)   
Fo ri = 1 To n-1

For j = n To i+1 Step-1

If_    (3)   Then
t = cj(j):cj(j) = cj(j-1):cj(j-1) = t
t = xh(j):xh(j) = xh(j-1):xh(j-1) = t
t = wz(j):wz(j) = wz(j-1):wz(j-1) = t
End If
Next j

Next i

List2.Clear

List2.AddItem "学号姓名成绩座位号"

For i = 1 To n

List2.AddItemxh(i)+ " "+xm(i)+ " "+Str(cj(i))+ " "+Str(wz(i))

Next i

End Sub
Private Sub Com2_Click()'小李编写的代码部分
Dim wz(1 To n) As Integer,t(1 To n) As Integer

For i = 1 To n

t(i)=i

Next i

For i = 1 To n

For j = n To i+1 Step-1
If    (4)    Then
temp=t(j)：t(j)=t(j-1):t(j-1)=temp
End If

Next j

    (5)    

Next i

List2.Clear
List2.AddItem "学号姓名成绩座位号"

For i = 1 To n

List2.AddItemxh(i)+ " "+xm(i)+ " "+Str(cj(i))+ " "+Str(wz(i))
Next i
End Sub

某校老师编写一个VB程序分析学生技术成绩，功能如下：在列表框List1中显示原始学生信息，单击“分析”按钮Command1，统计各班参加考试人数、高分(97及以上)人数和均分，并按班级均分从大到小显示在列表框List2中，程序运行界面如图所示。

实现上述功能的VB程序段如下，请回答下列问题：
（1）学生成绩存储在数据表中，其字段名是     
（2）请在划线处填入合适的代码。
Dim recCount As Integer            '存放学生人数
Dim sClass(1 To 1000) As Integer     '存放学生班级
Dim sName(1 To 1000) As String     '存放学生姓名
Dim sScore(1 To 1000) As Integer   '存放学生成绩
Private Sub Command1_Click()
Dim i As Integer, t As Integer, nc As Integer
Dim a(1 To 20)  As Integer, b(1 To 20) As Integer    '分别存放班级高分人数和班级参加考试人数
Dim sum(1 To 20) As Integer, ave(1 To 20) As Single  '分别存放班级总分和班级均分
Dim c(1 To 20) As Integer 
For i = 1 To recCount           
     ①    
b(t) = b(t) + 1
If b(t) = 1 Then
nc = nc + 1
     ②   
End If
If sScore(i) >= 97 Then a(t) = a(t) + 1
sum(t) = sum(t) + sScore(i) 
Next i
For i = 1 To nc
ave(c(i)) = Int(sum(c(i)) / b(c(i)) * 100 + 0．5) / 100
Next i
For i = 1 To nc - 1
For j = nc To i + 1 Step -1
If      ③     Then
t = c(j): c(j) = c(j - 1): c(j - 1) = t
End If
Next j
Next i
For i = 1 To nc
List2.AddItem Str(c(i)) + " " + Str(b(c(i))) + " " + Str(a(c(i))) + " " + Str(ave(c(i)))
Next i
End Sub
Private Sub Form_Load()
'链接数据库,代码略
recCount = 0
Do While Not rs．EOF
recCount = recCount + 1
sClass(recCount) = rs.Fields("class")
sName(recCount) = rs.Fields("name")
sScore(recCount) = rs.Fields("score")
rs.MoveNext  
Loop
'将数据显示在列表框List1中，代码略
End Sub

数组 a 存储 n 个地区的所属省份、地市及防疫物资缺口数据，其存储结构如下表所示：

1

2

3

4

5

6

7

8

9

…

3n-2

3n-1

3n

省份

地市

物资 缺口

省份

地市

物资 缺口

省份

地市

物资 缺口

…

省份

地市

物资 缺口

 
为 n 个地区调配防疫物资：湖北省全部在前面，从高到低排序；其它省份全部在后面，从高到低排（所有地区的防控物资h 为整数，单位万），排序前显示于 List1，排序后显示于 List2，如下图所示：

实现上述功能的 VB 程序如下，请回答下列问题。
Const n = 10
Dim a(1 To 3 * n) As String Private Sub Form_Load()
'读取省份、地市和防疫物资缺口数据，存储在数组a 中，并显示于列表框 List1 中'代码略
End Sub
Private Sub Comd1_Click()
Dim t As Integer,i As Integer,j As Integer,k As Integer
For i = 1 To n - 1
    ①  
For j = i + 1 To n

If a(3 * j-2 ) = "湖北" Then

If    Then k =j
Else  If
a(3 * k - 2) <> "湖北" And a(3 * j)>a(3 * k) Then k = j

End If

 Next j
If k <> i Then
t = a(3 * i):    ②     :a(3 * k) = t
t = a(3 * i - 1):a(3 * i - 1) = a(3 * k - 1):a(3 * k - 1) = t
t = a(3 * i - 2):a(3 * i - 2) = a(3 * k - 2):a(3 * k - 2) = t End If
Next i
For i = 1 To n
List2.AddItem a(3 * i - 2) + a(3 * i-1) + a(3 * i)
Next i
End Sub
（1）“排序”按钮的对象名为     。
（2）程序代码中，将下划线处语句补充完整。
（3）程序代码中，加框处有错误，请改正。

某灰度图像模糊处理算法描述如下：
①图像四周最外侧的像素点颜色值不变。
②图像中间各像素点的新颜色值为该像素点及其上下左右相邻四个像素点颜色值的平均值(四舍五入取整)。

例如，一幅分辨宰为5×4的图像模糊前和模糊后颜色值如图所示：
（1）一幅分辨率为800×600的图像，进行模糊处理时，有________个像素点需要重新计算其颜色值。
（2）请在划线处填入合适的代码。
Const n=10240
Dim a (1 To n) As Integer,b (1 To n) As Integer
Private Sub Commandl._Click( )

Dim r As Integer       '存储图像垂直分辨率

Dim c As Integer       '存储图像水平分辨率

Dim sum As Integer,k As Integer,i As Integer

Dim kl As Integer,k2 As Integer,k3 AsInteger,k4 AsInteger

'读取图像的原始像素值，依次存储到数组a中，代码略
'读取图像的水平分辨率和垂直分辨率分别存入c、r
i=0
Do While   ①  

For j=1 To c

        ②   

If i = 0 Or i=r-1 Then            '处理第1列和最后1列

b(k) = a(k)

Else If   ③  Then            '处理第1列和最后1列

b(k)=a(k)

Else                          '处理其他情况

k1=(i-1)*c+j
k2=(i+1)*c+j
k3=k-1
k4=k+1
sum=a(k)+a(k1)十a(k2)+a(k3)+a(k4)
b(k)=Int(sum/5+0.5)

End If

Next j
i=i+1
Loop
'依次输出模糊处理后的数据b
Labell.Caption=" "
For i=1 To r*c

Labell.Caption=Labell.Caption+Str(b(i))

Next i
End Sub

在探究冒泡排序过程中数据的“移动”情况，小明编写了一个VB程序，功能如下：在列表框Listl中显示排序前数据（存储在数组a中），在文本框Text11中输入初始位置（即下标值），单击“排序”按钮Commandl后，在标签Label4中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下：
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'排序前的8个数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
Dim pos As Integer '变量pos存储指定数据的位置（即下标值）
Dim s As String '变量s存储pos变化情况

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = n To i + 1 Step -1

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

k = a(j - 1)

a(j)=a(j-1)    '（2）改错

a(j) = k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化情况

If pos = j Then
pos = j - 1
s = s + "→" + Str(pos)
ElseIf      （3）            Then '填写代码
pos = j
s = s + "→" + Str(pos)
End If
End If

Next j

Next i
Label4.Caption = "位置变化情况:" + s
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
（1）要使程序运行后，窗体Form1标题立即自动显示为“冒泡排序程序探究”，可在_____（单选，填字母：A.Form_Load / B.Form_Click / C.Command_Click）事件过程中添加语句Form1.Caption=“冒泡排序程序探究”。
（2）程序代码中，加框处代码有误，请写出正确程序_________________________                
（3）程序代码中，ElseIf  Then 语句处代码缺失，请补充正确程序_________________________ 
（4）根据程序，若在Text1中输入的初始位置为3，则Label4中显示的内容为_________________________ 。

小董编写了一个有关“筛选操作”的VB程序，实现如下功能：在文本框Text1中显示一组随机生成个位数为“9”的两位数（原始数据），在文本框Text2中输入筛选个数，单击“操作”按钮Command1后，在文本框Text3中按降序显示所筛选个数的不重复最大数据（以逗号分隔   并以数据结尾），若在文本框Text2中输入的数大于原始数据中不相同数的个数，则在文本框Text3中显示“筛选的个数太大，请重新输入!”。程序运行界面如图所示。

（1）如图所示，该VB程序的窗体中共有         类对象（填数字）。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Const n = 10
Dim d(n) As Integer, c As Integer
Private Sub Form_Load()
Dim i As Integer, j As Integer, f As Boolean, s As String
Randomize
c = n
For i = 1 To n
f = False
d(i) =      ①           ' 随机生成个位数为“9”的两位数
For j = 1 To i - 1
If     ②      Then f = True
Next j
If f Then c = c - 1
Next i

'原始数据在文本框Text1中显示。代码略

End Sub

Private Sub Command1_Click()

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

Dim cnt As Integer，t As String, s As String

   d(0) = 100

   cnt = Val(Text2.Text)

       If cnt > c Then

       Text3.Text = "输入筛选的个数太大，请重新输入！"

          Exit Sub      'Exit Sub表示退出过程

   End If

   For i = 1 To cnt

        k = i

For j = i + 1 To n

       If d(j) < d(i - 1) And()Then k = j

   Next j

      If k <> i Then

            t = d(i): d(i) = d(k): d(k) = t

      End If

Next i

For i = 1 To cnt

      s = s + Str(d(i)) + "，"

Next i

Text3.Text =     ③    

End Sub

小明使用Flash软件创作“一盔一带”作品，其中“文明行车”场景的制作脚本如下表所示，部分界面如图a所示。请回答下列问题：

场景名：文明行车	类别序号：2	进入方式：来自“片头”场景，通过“进入”按钮进入
呈现方式： ①“骑行安全从头”文字变为“一盔一带安全守护行动”文字，时长5秒。 ②电动车从舞台外从右到左移动，移动效果约3.6秒。 ③“结束”按钮位于舞台右侧，单击该按钮，声音停止并跳转到“片尾”场景第1帧并开始播放		呈现顺序： ①一开始出现背景，文字动画，音乐响起。 ②1.5秒时开始出现电动车动画。 ③最后出现“结束”按钮，该场景动画停止在最后一帧。

 

图 a
（1）分析制作脚本，下列说法正确的有_______（多选，填字母）。
A.“文明行车”场景至少需要2个按钮   
B.制作脚本编写之前需要编写对应的文字脚本
C.若动画的帧频为10fps，则电动车动画在第18帧开始出现
D.该场景动画停止在最后一帧后，电动车动画中的车轮还在转动，说明车轮实例的元件类型为影片剪辑
（2）根据制作脚本，在制作“文字”图层的补间动画时，补间类型应选择______（选填：动画补间/形状补间）。动画创建失败是第60帧中文字还未彻底分离为形状，为使动画创建成功，应该对第60帧上的文字再进行______次分离操作。
（3）测试场景时发现“按钮”图层的按钮从开始就出现，为了使按钮在最后出现，可以进行的操作是___________________。

图 b
（4）已知声音图层上的声音的同步方式如图b，根据制作脚本，“结束”按钮上的动作脚本正确的有______（多选，填字母）。
A.on(press){stopAllSounds();gotoAndPlay("片尾",1);}
B.on(release){stopAllSounds();gotoAndPlay(1);}
C.on(press){stopAllSounds();play();}
D. on(release){stop();gotoAndPlay("片尾",1);}
（5）小明将该动画制作了一半后，由于中途有事，需要关闭计算机，为使下次能继续编辑该动画，他应保存为_______格式（单选，填字母）。
A.Flash 影片(*.swf)       B.GIF 动画(*.gif)       C.Flash CS3文档(*.fla)

用Flash软件制作主题为“南湖菱”的作品，其“main”场景的制作脚本如下：

场景名：main	类别序号：2	进入方式：来自begin场景，通过“开始”按钮进入
呈现方式： 1.“logo”图层的动画位于舞台左下角，从透明变化到完全显示，并同时由快至慢顺时针旋转3圈 2.单击“结束”按钮，动画跳转到“end”场景第1帧并播放 （其他略）		呈现顺序说明： 1.一开始出现背景图片、背景音乐和“标题”动画 2.1秒后出现“简介”和“logo”动画 3.最后出现“结束”按钮 4.本场景动画播放到最后停止，背景音乐随之停止 （其他略）

 
编辑界面如图a所示。

图a

图b
请回答下列问题：
（1）根据制作脚本、图a和图b，以下说法正确的是________（多选，填字母）。
A.当前场景至少需要添加2个按钮
B.若背景音乐的时长90秒，则同步方式应设为“数据流”
C.本场景制作脚本完成后还需进一步编写相应的文字脚本
D.实现“本场景动画播放到最后停止”的动作命令可直接添加在“按钮”图层上
E.图b为矢量图素材，是真实物体模型化、抽象化和线条化后得到的图形
（2）根据制作脚本，在制作“logo”图层的补间动画时，补间类型应选择______（选填：动画补间 / 形状补间），其“缓动”值设置为_____（选填：0 / 正 / 负）。
（3）测试场景时发现“logo”图层第13帧～18帧的动画播放速度太快。在不改变其他动画播放速度的前提下，使其速度变为原来的一半，则在“logo”图层中应进行的操作是___________。
（4）根据制作脚本，“结束”按钮上的动作脚本正确的有______（多选，填字母）。
A. on(press){gotoAndPlay("end",1);}  
B. on(release){gotoAndStop("end",1);}
C. on(release){play();}                
D. on(press){gotoAndPlay(1);}