学进去

小吴为了研究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：在列表框list1中显示排序前数据（存储在数组a中），在文本框text1中输入初始位置（即下标值），单击“排序”按钮command1后，在标签label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框list2中。程序运行界面如图所示。
实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()

a(1) = 30: a(2) = 47: a(3) = 30: a(4) = 72

a(5) = 70: a(6) = 23: a(7) = 99: a(8) = 24

n = 8

For i = 1 To 8

List1.AddItem a(i)

Next i

End Sub
Private Sub Command1_Click()

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

Dim pos As Integer

Dim s As String

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

   _____________

a(j - 1) = a(j)

a(j) = k
'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置
If pos = j Then
pos = j - 1
s = s + "→" + Str(pos)
     _________
pos = j
s = s + "→" + Str(pos)
End If
End If
Next j

Next i

Label1.Caption = "位置变化情况：" + s

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

浏览网页时，鼠标指针在“与我联系”图片上变成了如下图所示。单击该图片将发生的事件是（ ）

A．出现发送邮件的相关信息

B．当前图片变暗

C．打开www.ycedu.net网站首页

D．在新窗口中显示“与我联系”图片

小明收集了一些招聘信息数据，并用 Excel 软件进行处理，如图a所示。请回答下列问题：

图 a
（1）如图a小明使用公式计算各专业的收入排名顺序，F4:F19单元格内容通过对F3单元格公式自动填充获得，但排名产生了错误，要获得正确的收入排名号，F3单元格公式需修改为__________。（排名可使用 rank 函数，如“=rank（D3，D3:D19）”，功能是计算D3单元格的值在 D3:D19 区域中的名次）
（2）利用图a中数据制作了如图b所示的图表，则该图表的数据区域是________。

图 b
（3）将图 a 中 A2:D19 区域的数据复制到新工作表 A1:D18 区域进行排序，使得类型相同的专业按“薪酬（元）”降序排序，则下列操作正确的是（单选：填字母）（_________）
A.选择数据区域 A1：D18，以“薪酬（元）”为主要关键字，按“降序”进行排序
B.选择数据区域 A1：D18，以“薪酬（元）”为主要关键字，“类型”为次要关键字均按“降序”进行排序
C.选择数据区域 A1：D18，以“类型”为主要关键字进行“降序”排序，再以“薪酬（元）”为主要关键字进行“降序”排序。
D.选择数据区域 A1：D18，以“薪酬（元）”为主要关键字进行“降序”排序，再以“类型” 为主要关键字进行“降序”排序。
（4）将图a中B2:D19 区域的数据复制到新工作表，对“人数”和“薪酬（元）”进行筛选，条件如图 c所示，则按此条件筛选出的专业数有_________ 个。

图 c

若参与运算的数范围大大超出了标准数据类型能表示的范围的运算，就要用到高精度算法。小明编写了如下的高精度乘法程序，在文本框Text1和Text2中分别输入两个乘数（保证输入的乘数为正整数），单击命令按钮Command1，在文本框Text3中输出两个数的乘积，运行界面如图所示。
（1）请在划线处填入合适的代码。
①_________________
②_________________
③_________________
（2）程序中加框处（2）的语句有误，请改正。
改正：___________________
（3）若将加框处（3）的代码改为Mid（Str（c（i）），2，1）+ output，则在Text1中输入14，在Text2中输入19，运行程序后在Text3中显示的结果为________

Private Sub Command1_C1ick()
Dim a(1 To 100)As Integer,b(1 To 100)As Integer,c(1 To 1000)As Integer
Dim lenc As Integer,i As Integer,j As Integer
Dim sl As String,s2 As String,output As String
s1 = Text1. Text:s2 = Text2. Text:Text3. Text =""
For i = 1 To Len(s1)
a(i) =  ①  '将文本框Text1中的自然数按从低位到高位的顺序依次存放在数组a(1),a2......a(len(s1))中
Next i
'将文本框Text2中的自然数按从低位到高位的顺序依次存放在数组b(1),b(2)......
b(1en(s2))中,代码略
1enc='(2)
For i = 1 To Len(s1)
For j = 1 To Len(s2)
c(i + j -1)= c(i +j -1)+a(i)*b(j)
c(i +j) =  ②  
c(i +j -1)=c(i +j -1)Mod 10
Next j
Next i
If c(lenc +1)> 0 Then  ③  
output =""
For i =1en c To 1 Step -1
output ='(3)
Next i
Text3. Text = output
End Sub

小豆制作了如图1所示的家居用品分类销售统计表，数据情况如图1所示。请回答下列问题：

图1
（1）图1中的销售占比是各类销售金额占合计的比例。E4：E10的公式是从E3单元格自动填充功能得出的，可知E3单元格公式为_____________________。
（2）要对图1中的数据按“销售金额”降序排序，则选择的数据区域为___________________。

图2                                                           图3
（3）根据图1中的数据制作了如图2的图表，则图表的数据区域是____________。
（4）若在操作过程中对D6单元进行了如图3所示的操作，则E6单元格的数据___________（单选，填字母。A．变大     B．变小    C． #REF！    D． #DIV/O！）

某班级学生为毕业晚会的一个男生节目设计一个仿“V”字队形，先筛选出班级里所有男生，然后将参演的所有男生按照身高，摆出中间低两边高（先右后左）的队形，如图 1 所示。

图1
小孟同学用 VB 编写模拟“节目队形”程序，功能如下：从数据库中导入所有学生的编号、性别和身高数据；单击“筛选并排序”Command1 按钮，筛选出所有男生的身高并按照从低到高的顺序进行排序，结果显示在文本框 Text1 中；单击“设计队形”Command2 按钮，队形的编号结果显示在文本框 Text2 中。程序运行界面如图 2 所示。

图2
举例说明如下：
实现上述功能的 VB 程序如下，请回答下列问题：
（1）请在划线处填入合适的代码。
①__________________
②__________________
③__________________
（2）程序代码中，加框处有错，请改正。
改正：___________________
Const n = 8
Dim h(1 To n) As Integer, num1(1 To n) As Integer, num2(1 To n) As Integer Dim sex(1 To n) As Boolean   ' 男生 sex = True,女生 sex = False
Dim i As Integer, j As Integer, m As Integer Private Sub Form_Load()
'n 名学生(包括男生和女生)的编号、性别和身高由数据库导出,分别存储在数组 num1、h 和 sex 中,代码略! End Sub
Private Sub Command1_Click() For i = 1 To n - 1
For j = n To i + 1 Step -1
If sex(j) = True Then
If ①                Then
t = h(j): h(j) = h(j - 1): h(j - 1) = t
t = sex(j): sex(j) = sex(j - 1): sex(j - 1) = t
t = num1(j): num1(j) = num1(j - 1): num1(j - 1) = t
End If
End If
Next j Next i
For i = 1 To n
If sex(i) Then
Text1.Text = Text1.Text + " " + Str(h(i))
End If
If Not sex(i) Then : Exit For      '改错
Next i
End Sub
Private Sub Command2_Click()
Dim L, R As Integer, mid As Integer
mid = Int((1 + m) / 2) L = 0: R = 0
②         For i = 2 To m Step 2
R = R + 1
num2(mid + R) = num1(i)       
L = L + 1
③           Next i
For i = 1 To m
Text2.Text = Text2.Text + " 男" + CStr(num2(i)) + "号 " Next i
End Sub

小王使用Photoshop和Flash软件制作某多媒体文件。请回答下列问题：
 
(1)如图a所示，小王先用Photoshop处理图片，当前状态下下列说法，正确的有_______。(多选，填字母：A.不能用“文字工具”修改“亡羊补牢”字样的字体/B.先用“套索工具”选中背景图层的白色背景，然后用Delete键删除，最后将背景变为透明/C.先用“矩形选框工具”选中“亡羊补牢”图层，单击delete键可以进行“内容识别”操作/D.“亡羊补牢”图层可见的图层样式是“投影”/E.将当前状态下的图像保存为BMP格式，则其大小约为302KB)
 
(2)制作的Flash动画部分界面如图b所示，“文字”图层第1帧到第20帧实现的是“文字”实例“亡羊补牢”的淡入效果，该动画属于___________(选填字母：A.逐帧动画/B.动画补间/C.形状补间)动画。
(3)“文字”图层的30帧到50帧实现的是“亡羊补牢”逐渐过渡到“为时不晚”的动画效果，已知30帧关键帧内容是由20帧复制过来的，则在30帧需要进行的操作是________________。
(4)“声音”图层添加的声音属性如图b所示。当同步方式变为“事件”后，声音播放长度将____(选填字母：A.变长/B.变短/C.不变)。
 
(5)测试影片时，单击“退出”按钮后将关闭动画窗口，则该按钮上的动作脚本是__________。

凯凯学习了桶排序和冒泡排序，他发现桶排序占空间比较多而冒泡排序的效率又较低，于是他想到综合两个算法来对数据进行排序。凯凯对 n 个由二位数组成的数据进行排序，排序步骤如下：
（1）以每个数的十位数来区分，放置到各个桶里(如图①)；
（2）分别对每个桶中的数据进行冒泡排序(如图②)；
（3）最后依次输出各个桶中的数据即可(如图③)

Dim a(1 To 100) As Integer, b(1 To 100) As Integer
Dim c(0 To 10) As Integer Dim n As Integer
Private Sub Form_Load()
'读取若干个二位数到 a(i)中，并保存个数到 n

End Sub
Private Sub Command1_Click()
Dim i As Integer, t As Integer
For i = 1 To n
c(a(i) \ 10) = c(a(i) \ 10) + 1
Next i
c(0) = 1 : c(10) =     ______
For i = 1 To 9
c(i) = c(i) + c(i - 1)
Next i
For i = 1 To n
t = a(i) \ 10
c(t) = c(t) - 1
________
Next i
For i = 1 To 9
Call px(c(i), c(i + 1) – 1)
Next i
For i = 1 To n
List2.AddItem b(i)
Next i
End Sub
Sub px(x As Integer, y As Integer)
Dim t As Integer, i As Integer, j As Integer
For i =  ______
For j = x To y - i
If b(j) > b(j + 1) Then
t = b(j): b(j) = b(j + 1): b(j + 1) = t
End If
Next j
Next i
End Sub
(1)若要修改“桶排”按钮上显示的文字，应修改的属性名是______。
(2)加框处代码有错，请改正。
(3)请在划线处填入合适的代码。

有如下VB程序段：
temp = a(1)
For i=2 To 10

next i
数组元素a(1)到a(10)的值依次为“36，48，25，32，28，20，30，52，15，8”。程序段中加框处语句执行5次后，变量temp的值为（  ）

A．25

B．28

C．20

D．8

在一条宽度度为L的直线小河中，一只青蛙想沿着直线从河的左侧跳到右侧。小河中有n片位置互不相同的荷叶，青蛙必须跳到荷叶上过河，否则会掉入水中。开始时青蛙站在河的左侧（坐标为0)，接着不停地向右侧跳跃，每次跳跃的距离不超过W，当青蛙跳到或跳过河的右侧(坐标为L)时，青蛙完成过河。例如当L=20,n=4,W=5，开始时4片荷叶的坐标为3，9，11，17，则至少需要增加2片荷叶，即在坐标8和16分别增加一个荷叶，得到过河的可行方案是0→3→8→9→11→16→17→20。

图a

图b
编写程序找出青蛙成功过河至少需要增加的荷叶数，界面如图b。请回答以下问题：
(1)若要将列表框List1顶端与窗体顶端的距离设置为100，能实现该功能的语句是____（A.List1.Height = 100 / B.List1.Top = 100 / C.List1.Width = 100）。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Form_Load()
'读取荷叶的位置，并保存到数组a中
'荷叶的数量保存在n中
'荷叶坐标和数量分别显示在list1和Text2中
End Sub
Private Sub Command1_Click()
Dim a(0 To 100) As Integer
Dim n As Integer, L As Integer, W As Integer, tot As Integer
Dim i As Integer, j As Integer, p As Integer, d As Integer
L = Val(Text1.Text)  :  n = Val(Text2.Text)  :  W = Val(Text3.Text)
a(0) = 0  :  a(n + 1) = ______
For i = 1 To n - 1
k = i
For j = i + 1 To n
If a(k) > a(j) Then
Next j
If k <> i Then
tmp = a(k): a(k) = a(i): a(i) = tmp
End If
Next i
For i = 1 To n
List1.AddItem a(i)
Next i
p = 1: d = 0
Do While d < L
If p <= n + 1 And ______ Then
d = a(p)
p = p + 1
Else
tot = tot + 1
_______
End If
Loop
Label4.Caption = "至少需要增加的荷叶数为：" + Str(tot)
End Sub
(3)程序中加框处代码有错，请改正______。