学进去

小王编写了一个实现文字查找替换功能的 VB 程序，运行界面如图所示。文本框Text1 显示原文内容，Text2 中输入查找内容，Text3 中输入替换内容，单击“全部替换”按钮Command1 后，Text4 显示查找替换的结果，Text5 中显示替换的次数，Text6 显示“查找内容”在原文中的起始位置。

Private Sub Command1_Click() t
Dim s As String, result As String, pos As String
Dim count As Integer, i As Integer
i = 1: count = 0: result = "": pos = ""
Do While i <= Len(Text1.Text) ' i 是查找过程中所查找到的当前字符位置的标记
s = Mid(Text1.Text, i, Len(Text2.Text))
If s = ______Then
result = result + Text3.Text
count = count + 1
pos =_____'pos 依次显示被替换内容在原文中的起始位置
i = i + Len(Text2.Text)
Else
result=result+Mid(text1.text,i,1)
_____
End If
Loop
Text4.Text = result
Text5.Text = _____
Text6.Text = pos
End Sub

为方便习题讲解，需对某次考试中选择题得分率数据进行统计分析，找出选择题得分率最低的前m项对应的题号及考点（若有与第m项得分率相同的，并选取）。
编写VB程序，实现上述功能。运行程序时，先读取每个选择题的题号、得分率和考点，显示在列表框List 1中。在文本框Text 1中输入得分率最低的前m项值，单击“统计”按钮，按照得分率从小到大升序排序，并在列表框List 2中输出得分率最低前m项的题号、得分率及考点。程序运行界面如图所示。

请回答下列问题：
（1）“统计”按钮的事件过程名是_______。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim n As Integer
Dim th（0 To 100）As Integer，df（0 To 100）As Single，kd（1 To 100）As String
Private Sub Form Load （）
’读取题号、得分率和考点分别存入数组th、df和kd数组，在列表框List l中显示，代码略
’选择题的个数存入变量n，代码略
End Sub
Function dq（x As String，k As Integer）As String
’固定数据的位数
dq= X

Do While _______

dq=dq+""
Loop
End Function
Private Sub Select _Click（）
Dim m As Integer，i As Integer，j As Integer，p As Integer，t As Integer，mm As Integer
List 2．Clear
m=Val（Text l．Text）
i=1
Do While i<=n-1

p=i

For j=i+1 To n

If ________Then p= j

Next j

If p<i Then

t=th（i）：th（i）= th（p）：th（p）= t

End If

If  Then Exit Do’改错_______

i=i+1

Loop
For i=1 To m

List 2．AddItem dq（Str（th（i）），6）+ dq（Str（df（th（i））），8）+ dq（kd（th（i）），12）

Next i
End Sub

整理书目清单。统计某书店每天畅销书的销售清单，计算库存，并根据每本书的警戒库存进行分组处理，按库存数小于等于警戒1库存数，库存数大于警戒1库存数但小于等于警戒2库存数，大于警戒2库存数的分成三组，并按库存数降序排序。某同学编写VB程序如下：从数据库读取销售清单并显示在列表框list1中，点击按钮“书目整理”计算每本书的库存（库存=原有库存数-已经销售的数量，不存在销售数量大于库存数的情况），根据每本书的两个警戒库存，将书目分成三组，每组书目按库存数量降序显示在列表框list2中，程序运行界面如图1所示。

图1
例如某天的销售清单，库存数据如图2所示，根据每本书的警戒1和警戒2库存，分组后的数据如图3所示。

图2 图3

（1）若有140本畅销书，用两位数编码（每位数可以是0，1，2，3，4，5，6，7，8，9，A，B，C，D，E，F），则该编码对应的最小的进制数是______进制。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Dim stock(1 To 52) As Integer        '存储每本书警戒1和警戒2的库存数量
Dim num(1 To 100) As Integer          '存储每本书每次的销售数量
Dim bm(1 to 26) As String           '存储每本书的书名编码
Dim kc(1 To 26) As Integer          '存储每本书的库存数量
Dim sell(1 To 26) As Integer，q(1 To 26) As Integer
Private Sub Form_Load()
'从数据库读取书目销售清单数据，显示在list1中，分别存在数组
'stock(1)，stock(2)存书名编码A的警戒1库存，警戒2库存；stock(3)，stock(4)存书名编码B的警戒1库存，警戒2库存，依次类推，代码略
End sub
Private Sub Command1_Click()
For i = 1 To 100         '处理100条销售清单数据
k = Asc(bm(i)) - 64
 ①______ 
Next i
n = 0
For i = 1 To 26      '更新库存数据
If sell(i) > 0 Then
n = n + 1
 ②______ 
kc(i) = kc(i) - sell(i)
End If
Next i
head = 0: tail = n + 1: j = 1
Do While j < tail
r = kc(q(j))
If r <= stock(2 * q(j) - 1) Then
head = head + 1
If   ③______  Then t = q(head): q(head) = q(j): q(j) = t
j = j + 1
ElseIf r > stock(2 * q(j)) Then
tail = tail - 1
t = q(j): q(j) = q(tail): q(tail) = t
Else
j = j + 1
End If
Loop
'分组排序及排序后数据显示在列表框list2中，代码略
End Sub

AB两个篮球队进行了多场比赛，现在要统计比分并确定获胜球队。计分规则为胜场多的队伍获胜，若胜场相同，则计算累计小分（小分=本队得分-失分），小分多获胜，若还是相同则算平局。
小蓝同学根据上述算法编写了一个VB程序实现比赛结果统计。每场比分记录在文本框Text1中，单击“统计”按钮Command1，把两队各场的比分按A队小分降序显示在列表框List1输出，同时在文本框Text2输出最终结果。部分程序界面如图所示，VB代码如下，回答下列问题：

Private Sub Command1_Click()
Dim a(1 To 20)As Integer, b(1 To 20)As Integer
Dim i As Integer, j As Integer, t As Integer, p As Integer, k As Integer, xiaofen As Integer
　'从文本框读取比分,场次k,AB两队各场的得分分别记录在数组a、b,代码略
For i = 1 To k – 1　'对比分数据按A队小分降序排序
　For j = 1 To①__   _ 
　　If ②__   _ 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
p = 0: xiaofen = 0
For i = 1 To k '统计小分并输出比分
　If a(i)> b(i)Then ③______ 
　xiaofen = xiaofen + a(i)- b(i)
　List1.AddItem Str(a(i))+ ":" + Str(b(i))
Next i
If p * 2 > k Or k = p * 2 And xiaofen > 0 Then
　Text2.Text = "A队获胜"
ElseIf  Then 　
　Text2.Text = "B队获胜"
Else
　Text2.Text = "两队战平了"
End If
End Sub
（1）若希望程序在运行时列表框List1清空，则应该在代码中添加语句____（单选，填字母： A.List1.additem/B.List1.clear/C.List1.清空/D.List1.caption）。 
（2）在程序画线处填入合适代码，使程序完整。
①________________________
②________________________
③________________________
（3）加框处代码有错，请改正。
改正：________________________

IPV4 点分十进制 IP 地址可转换为十进制数字形式。编写“模拟 IP 过滤器”程序，程序功能如下: 程序运行时，在列表框 List1 中显示能通过过滤的 IP 区间（IP 区间按起始端点升序排序），在文本框 Text1 中输入需要判断的 IP 地址，单击“验证”按钮 Cmd1，若 IP 区间有重叠区间则作合并处理，并显示在列表框 List2 中，然后对输入的 IP 地址进行判断，判断结果显示在标签 Label4 中。程序运行界面如图所示：

（1）Cmd1 对象属于_____类（单选，填字母：A.Form/ B.Label/ C.TextBox /D.CommandButton）。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim a(1 To 100) As Integer, n As Integer
Private Sub Form_Load()
'本过程从数据库中读取 n 个IP 地址区间数据，并依次存入数组 a(1)、…、a(2*n)中
'对能通过过滤的 IP 区间按区间起始端点升序排序
'代码略
End Sub
Private Sub Cmd1_Click()
Dim ip As Integer, L As Integer, R As Integer
Dim i As Integer, pos As Integer, f As Boolean
ip = Val(Text1.Text)
L = a(1): R = a(2): i = 3: pos = 1    '合并重叠区间
Do While i <= 2 * n - 1
If ______________Then
If a(i + 1) > R Then R = a(i + 1)
Else
a(2 * pos - 1) = L：a(2 * pos) = R
pos = pos + 1
L = a(i)
R = a(i + 1)
End If
______________________ 
Loop
a(2 * pos - 1) = L: a(2 * pos) = R  '依次输出排序合并后的区间数据，代码略
If ____________________Then     '判断请求的 IP 地址
Label4.Caption = "IP 需过滤"
Else
i = 1: f = False
Do While i <= pos And Not f
If______________Then
i = i + 1
Else
Label4.Caption = "IP 不需过滤" f = True
End If
Loop
If f = False Then Label4.Caption = "IP 需过滤"
End If
End Sub

小王使用 Flash 软件创作“年年有余”多媒体作品，创作界面如图1 所示，请回答下列问题：

图 1
(1) 在创作多媒体作品前，需要进行需求分析，下列属于创作需求分析的是__________。（多选，选字母：A.通过调查分析，了解商场的需求情况/ B.确定作品的主题思想和主要内容/C.把作品大致分为“片头”、“主交互界面”、“片尾”三部分/D.把作品定位为“演示型”/E.确定作品以 swf 的格式在网络上发布)
(2) 如图1所示，“鱼”在动画播放 1s 后开始出现在舞台并在舞台上一直游动，则“鱼”是由_________（单选，填字母：A.图形/B.影片剪辑/C.按钮）形成的实例。
(3) 添加在“声音”图层的素材时间是10s，动画播放3s 后，声音停止，声音的同步属性是________（单选，填字母：A.数据流/B.事件）。
(4) 动画播放 3s 后，开始出现文字，该动画的起始关键帧的属性面板如图2所示，下列说法正确的是__________（多选，选字母）。

图 2
A. 更改“main”场景的帧频，其他场景的帧频不变
B. “文字”图层第 31 帧到 40 帧形成的动画是动画补间动画，该动画实现了文字淡入并放大的效果
C. 在图 a 中，“竹子”图层被隐藏，测试场景时看不见竹子图层的动画效果
D. 调整第 31 帧文字的宽度，高度不会受到影响
E. 要使文字从第 50 帧开始消失，且一直持续到动画结束，可以在“文字”图层第 50 帧执行“清除帧”操作
(5) 点击“退出”按钮，关闭动画，并在浏览器中显示同一文件夹下“夜色.html”文件的内容，则按钮上的动作脚本是 on(press) {______________________}。

为了配合学校校园文化建设,小明收集了学校近一个月的图书借阅记录,并使用Excel软件进行数据处理,如图1所示。

图1
请回答下列问题:
(1)如图1所示,要统计列H中各类型书籍册数,可以在I3单元使用COUNTIF函数统计,然后通过自动填充得到I4:I10的公式。则I3单元格的统计公式为________。(提示:=COUNTIF(B2:B5,D2)可以统计单元格区域B2:B5中与单元格D2的值相等的单元格的个数) 
(2)根据第13题图a中的数据制作的图表如图2所示,创建该图表的数据区域是____。 

图2
(3)小明想找出工业技术类书籍流通次数最多的书籍名(若存在符合条件的多个书籍,则全部选取),下列方法可行的是________(多选,填字母)。 

A.选择A2:F696区域,以“类型”为主要关键字进行升序排序,“流通次数”为次要关键字进行降序排序,选取排在最前面的书籍名

B.选择A2:F696区域,以“流通次数”为主要关键字进行降序排序,“类型”为次要关键字进行升序排序,选取排在最前面的书籍名

C.选择A2:F696区域,以“类型”为主要关键字进行升序排序,再以“流通次数”为最大1项进行筛选,然后选取筛选出的全部书籍名

D.选择A2:F696区域,以“类型”为“工业技术”进行筛选,再以“流通次数”为关键字进行降序排序,选取排在最前面的书籍名

E.选择A2:F696区域,以“类型”为“工业技术”“流通次数”为最大1项进行筛选,然后选取筛选出的全部书籍名

(注:全部选对的得2分,选对但不全的得1分,不选或错选的得0分)

某打靶比赛规则如下：n 名参赛人员进行 m 轮比赛，每人每轮打靶3次，取3次中的最高分作为该轮比赛的成绩，统计每位选手 m 轮比赛的总分，再根据总分进行排名。
程序功能如下：加载窗体，程序将相关数据存储到数组 a、数组 b，并显示在列表框 List1 中，然后单击“统计”按钮Command1，在列表框List2中显示统计结果。数组 b 各元素含义如图1所示。程序运行界面如图2所示。
    
图 1                                 图 2
请回答下列问题：
（1）下列对象中，没有 Caption 属性的是________单选，填字母：A.Command1 / B.Form1 / C.List1
/ D.Label1）。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Dim n As Integer, m As Integer
Dim a(1 To 1000) As String
Dim b(1 To 3000) As Single
Private Sub Form_Load()
'将参赛人数存入变量 n，比赛轮数存入变量 m 中
'将选手序号存储到数组 a 中、打靶成绩存储到数组 b 中，并显示在列表框 List1 中，代码略End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim max As Single, s1 As String, s2 As Single
Dim sum(1 To n) As Single
'对数组 sum 中各元素赋初值 0，代码略
For i = 1 To m
t =_______ 
For j = 1 To n
max = fm(b(t + (j - 1) * 3 + 1), b(t + (j - 1) * 3 + 2))
max =_______ 
sum(j) = sum(j) + max
Next j
Next i
For i = 2 To n '按总分对参赛人员进行排序
j = i - 1
s1 = a(i)
s2 = sum(i)
Do While_________ 
a(j + 1) = a(j)
sum(j + 1) = sum(j)
j = j - 1
Loop
a(j + 1) = s1
sum(j + 1) = s2
Next i
For i = 1 To n
List2.AddItem "第" + Str(i) + "名" + a(i) + " " + Str(sum(i))
Next i End Sub
Function fm(x As Single, y As Single) As Single
'返回 x、y 中的较大值，代码略End Function

编写一个VB抽奖程序，功能如下：从数据库读取相关数据并显示在列表框List1中，在文本框Text1中输入中奖人数，单击“抽奖”按钮Command1，在列表框List2中输出   结果。
抽奖规则：中奖人数为1人，男女不限；
中奖人数超1人，男女对半（奇数时女性多1人）。
程序运行界面如图所示。

实现上述功能的VB程序如下：
Dim xm(1 To 500) As String, xh(1 To 500) As String, xb(1 To 500) As String
Dim n As Integer     '学生总人数
Dim a(1 To 100) As Integer  '抽中序号
Private Sub Form_Load()
'本过程读取n位同学的序号、姓名和性别,
'分别存储在数组xh、xm、xb中
'并在List1中显示,代码略
End Sub
Private Sub Command1_Click()
Dim rs As Integer, m As Integer, x As Integer, girl As Integer, i As Integer
Dim xbs(1 To 500) As Integer
Randomize
List2.Clear
List2.AddItem "姓名" & "  " & "性别"
rs = _________
For i = 1 To n
If xb(i) = "女" Then  xbs(i) = 1  Else  xbs(i) = 0
Next i
m = 0
girl = 0
If rs = 1 Then
x = Int(Rnd * n) + 1
List2.AddItem xm(x) & "  " & xb(x)
Else
Do While m < rs
x = Int(Rnd * n) + 1
If checkf(x) Then
m = m + 1 : a(m) = x
girl = girl + xbs(a(m))
If _______ Then
a(m) = 0: m = m - 1
ElseIf girl > (rs + 1) \ 2 Then
a(m) = 0: m = m – 1
_________
End If       
End If
Loop
For i = 1 To m
List2.AddItem
Next i
End If
End Sub
Function checkf(p As Integer) As Boolean
'核对重复中奖,未中过奖返回True
'代码略
End Function
（1）请在划线处填入合适的代码。
（2）程序中加框代码有错，请改正。
________

某垃圾分类 VB 程序功能如下：在文本框 Text1 中输入一串字符（数据用逗号分隔，以逗号结尾），单击“统计”按钮 Cmd1 后，程序实现计算干、湿垃圾的重量及总重量（单位：斤）。输入字符串中的前后两个数字字符为一组，第一个数字字符代表垃圾种类，1 表示干垃圾，2 表示湿垃圾，第二个数字字符代表该垃圾的重量。例如：输入字符串“2，1，1，12，”，程序统计结果为干垃圾 12 斤，湿垃圾 1 斤，总重量 13 斤。程序运行界面如图所示。

（1）Cmd1 对象属于___________ 类（单选，填字母：A.Form / B.Label / C. TextBox D.CommandButton）
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Private Sub Cmd1_Click()
Dim s As String, s1 As String, t As Integer, i As Integer
Dim k As Integer, bh As Integer, w As Integer
Dim w1 As Integer, w2 As Integer

s = Text1.Text: k = 1: t = 0: bh = 0 'bh 存储当前垃圾的垃圾编号

w1 = 0: w2 = 0
For i = 1 To Len(s)

s1 = Mid(s, i, 1)

If ______Then

t = t * 10 + Val(s1)

Else

If ______Then

bh = t

Else

If bh = 1 Then

w1 = w1 + t

Else
w2 = w2 + t
End If
   ________

End If

k = k + 1

________

End If

Next i

List1.AddItem "干垃圾共" + Str(w1) + "斤"

List1.AddItem "湿垃圾共" + Str(w2) + "斤"

Label3.Caption = "总重量共有" + Str(w) + "斤"

End Sub