学进去

编写一个VB程序，功能如下：单击“随机数”按钮Command1， 随机产生n个[10, 50]范围的偶数。单击“计算”按钮Command2，在这n个随机数中找出四个数a, b, c, d,满足d=a+b+c，且d为所有满足条件组合中的最大值，如果存在符合要求的d，则在Text2中显示d的值，否则显示“no solution"。
例如：42、50、14、16、22、10、34、10、12、38这10个数中，最大的d为50，50=12+16+22。
请回答下列问题：
(1)分析程序可知，生成随机数的事件处理过程名是__________。
(2)实现功能的VB程序如下，请在划线处填入合适的代码。
(3)程序中加框处代码有错，请改正。
Dim a(1 To 20) As Integer
Const n = 10
Private Sub Command1_Click()

Dim i As Integer

Randomize

For i = 1 To n

a(i) = ________________

Text 1. Text = Text 1. Text + Str(a(i))

Next i

End Sub
Private Sub Command2_Click ()

Dim i As Integer, j As Integer, t As Integer

Dim left As Integer, right As Integer

Dim ans As Integer, flag As Bool ean

flag = True

’对数组a进行升序排序，代码略

i = n

Do While i ＞ = 1 And flag

j = i - 1

Do While j ＞ = 1 And flag.

___________

left = 1

right = j - 1

Do While ______

If ans ＞ a(left) + a(right) Then

left = left + 1

ElseIf ans ＜ a(left) + a(right) Then

right = right - 1

Else

Text2. Text = Str(a(i))

flag = False

End If

Loop

j = j - 1

Loop

__________

Loop

If flag Then

Text2. Text = "no solution"

End If

End Sub

小李要为学校采购一批篮球，他收集了一些不同品牌不同价格的数据以便于挑选，并设计了VB程序。功能为：运行程序，从数据库中读取数据并存储在相关变量中，并将数据显示在列表框List1中。在文本框Text1中输入品牌名称如“李宁”，单击“查找排序”按钮，在列表框List2中输出该“品牌”价格从低到高的信息。程序运行界面如图所示。

（1）根据程序段可知，“查询排序”按钮的对象名是__________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim n As Integer
Private Sub Form_Load()
'从数据库中读取数据并存储在相关变量中，pp数组存储品牌名称，xh数组存储型号，jg数组存储价格，pj数组存储好评率，并将相关数据显示在列表框List1中，变量n存储记录个数。代码略。
End Sub
Private Sub select_Click()
Dim a(1 To 10) As String       '存储品牌名称
Dim b(1 To 10) As Integer     '存储每个品牌的开始位置
Dim c(1 To 10) As Integer     '存储每个品牌的型号个数
________
b(1) = 1:c(1) = 1:k = 1
s = Text1.Text
For i = 2 To n
       If pp(i) = a(k) Then
             ________
       Else
             k = k + 1
             a(k) = pp(i)
             b(k) = i
             c(k) = 1
       End If
Next i
For i = 1 To k
       If a(i) = s Then
             _________
             ln = c(i)
             Exit For
       End If
Next i
For i = p To p + ln - 2
       For j = p + ln - 1 To i + 1 Step -1
             If   Then_________
                    st = pp(j): pp(j) = pp(j - 1): pp(j - 1) = st
                    st = xh(j): xh(j) = xh(j - 1): xh(j - 1) = st
                    t = jg(j): jg(j) = jg(j - 1): jg(j - 1) = t
                    t = pj(j): pj(j) = pj(j - 1): pj(j - 1) = t
             End If
       Next j
Next i
'将对应品牌排序后的数据显示在列表框List2中，代码略。
End Sub

小明创作主题为“荷花”的多媒体作品，请回答下列问题。
     
（1）以下关于多媒体作品设计的一般过程中，正确的是_________（多选，填字母）
A.确定作品的主题思想属于应用需求分析
B.制作脚本是多媒体作品制作的直接依据
C.主要界面的设计，属于模块设计
D.在脚本编写阶段，应考虑各模块所需的媒体元素及获取、处理方法
E.确定选用Flash软件来合成作品，属于创作需求分析
（2）测试影片， 动画播放 4 秒后暂停，蜻蜓动画持续播放，“蜻蜓”图层第 30 帧上对象的类型是_______（选填：位图 / 图形元件 /影片剪辑）。
（3）“音乐”图层第1帧添加了音乐“采莲. wav”，测试场景时，小明__________（选填字母：A. 能/B. 不能）听见声音。
（4）为了使“诗句2”图层的补间结束后，一直呈现在舞台上，以下操作可行的是_________（多选： 填字母）。
A.在“诗句2”图层第31帧执行清除关键帧操作，并在第40帧执行插入帧
B.在“诗句2”图层第40帧执行插入关键帧，并复制“诗句2”图层第30帧到第31帧
C.在“诗句2”图层复制“诗句2”图层第30帧到第31帧，并在第40帧执行插入帧
D.在“诗句2”图层复制“诗句2”图层第30帧中舞台上的内容，粘贴到第31帧舞台上的合适位置，并在第40帧执行插入帧
（5）测试影片时，单击当前场景中的“重播”按钮，停止当前声音的播放，然后影片跳转到当前场景第1帧并开始播放，则该按钮的动作脚本为_____________。

某数据加密算法如下所示：在文本框Text1中随机生成8位小写字母，首先将每一个字母转换成8位二进制数，如“a”转换成8位二进制数为“01100001”，然后将8位二进制数循环左移两位，如“01100001”左移两位的结果是“10000101”，然后将左移后的结果依次显示在列表框List1中， 最后将所有的二进制数转换成十六进制显示在文本框 Text2 中，文本框 Text2 中显示的结果即是加密后的结果，程序运行的部分界面如16题图所示：

（1）明文“z”对应的密文是_________。
（2）实现上述功能的VB程序如下所示，请在划线处填入合适的代码。
Dim s As String, ch As String
Dim i As Integer, data As Integer
Const n = 8
Private Sub Form_Load()
For i = 1 To n
’随机生成n位小写字母显示在文本框Text1中
Next i
End Sub
Private Sub Command1_Click()
Dim count As Integer, j As Integer, m As Integer
Dim a(1 To 64) As Integer
Dim b(1 To 64) As Integer
Const sj = "0123456789ABCDEF"
s = Text1.Text: count = 0
For i = 1 To Len(s)
data = Asc(Mid(s, i, 1))
Do While count <> n

          ①__________

data = data \ 2
count = count + 1
Loop
count = 0
Next i
tmp = 0
For m = 1 To n * n
i = (m - 1) \ n + 1: j = (m - 1) Mod n + 1
b((i - 1) * n + j) =__________②         
s1 = s1 + Str(b((i - 1) * n + j))
If j Mod n = 0 Then List1.AddItem s1: s1 = ""
tmp =__________③         
If j = 4 Or j = 8 Then
s2 = s2 + Mid(sj, tmp + 1, 1): tmp = 0
End If
Next m
Text2.Text = s2
End Sub

小凡有好多活页本，记录了各门课的错题。然而，他淘气的弟弟把这些活页本都拆了，并且活页纸散落在房间各地。小凡在房间里捡了若干张活页纸，每张纸都有活页本编号和其对应的页码。现在他要统计每本活页本上剩余还有哪些页码，为了能快速的整理，按照以下规则存储：对于同一本活页本上的纸张，则记录连续序列的起始和结尾编号。例如第1本活页本上的纸张页码有1，3，4，5，8，9，则记录为1-1，3-5，8-9。他编写了VB程序来解决这个问题，功能如下：共有k本活页本，每本最多有n张活页纸，总共有sum张活页纸，每张纸的编号和页码显示在列表框List1中，每一行前两位数表示该页对应的活页本编号，后一个数表示其对应页码；程序运行时，点击“整理”按钮Command1，在列表框List2中显示整理后的结果。程序运行界面如图所示。

请回答下列问题：
（1）若要将按钮中显示的“整理”修改为“纸张整理”，则需修改按钮的______属性。
（2）实现上述功能的VB代码如下，请在划线处填入合适的代码。

Const n=40

Const k=5

Dim f（1 To 500）As String

Dim sum As Integer

Private Sub Form_Load（）

’读取sum张纸的信息，存入到数组f并显示在列表框List1中，代码略

End Sub

Private Sub Command1_Click（）

Dim i As Integer，j As Integer，t As Integer，tmp As Integer

Dim a（500）As Integer，b（500）As Integer

Dim c（500）As Integer，d（500）As Integer

’读取每张纸信息，将页码存入到a数组中，活页本编号存入到b数组中

For i=1 To sum

a（i）=Val（Mid（f（i），4））

b（i）=_____

Next i

For i=1Tosum-1’对每一页先按照活页本编号、再按照页码从小到大排序

t=i

For j=i+1 To sum

If Then t=j

Next j

tmp=a（i）：a（i）=a（t）：a（t）=tmp

tmp=b（i）：b（i）=b（t）：b（t）=tmp

Next i

c（1）=a（1）’对于每个奇数位i，c（i）与c（i+1）分别存储连续页码的起始编号和结尾编号

d（1）=b（1）

s=1

t=a（1）

For i=2 To sum

If b（i）=b（i-1）And t+1=a（i）Then

_____

Else

c（s*2）=t

s=s+1

_____=a（i）

d（s）=b（i）

t=a（i）

End   If

Next i

c（s*2）=t

List2．AddItem "第1本书："

List2．AddItem Str（c（1））+"-"+Str（c（2））

For i=2Tos

If d（i）<>d（i-1）ThenList2．AddItem"第"+Str（d（i））+"本书："

List2．AddItem Str（c（2*i-1））+"-"+Str（c（2*i））

Next i

End Sub

（3）程序中加框处代码有误，请改正____。

有n件重量各不相同的物品，从中挑选2件物品使其重量和等于k。编写了一个VB程序实现上述功能，运行程序，从数据库中读取n件物品的编号和重量并在列表框List1中显示，在文本框Text1中输入重量k后，单击“挑选”按钮Command1，在列表框List2中按重量从小到大显示各物品的编号和重量，在列表框List3中显示所有符合条件的物品编号；若未找到，则输出“未找到这样的组合”。程序运行界面如图所示。
（1）程序运行时，按钮Command1上显示“挑选”，是通过设置该对象的___________属性实现的（单选，填字母：A．Text / B．Caption / C．Font）。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
（3）程序加框处的代码有误，请改正。
Const n = 10
Dim num(1 To n) As Integer, w(1 To n) As Integer

Private Sub Form_Load()

'本过程从数据库中读入n件物品的编号和重量分别存数组num，w中，并在List1中显示，代码略。

End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim t As Integer, f As Boolean
Dim p As Integer, q As Integer
Dim k As Integer, flag As Boolean
f = False
i = 1
Do While ___________
       f = True
   For j = n To i + 1 Step -1
       If        ①        ___________Then
          t = num(j): num(j) = num(j - 1): num(j - 1) = t
          t = w(j): w(j) = w(j - 1): w(j - 1) = t
          f = False
       End If
   Next j
          ②     ___________
Loop
For i = 1 To n
   List2．AddItem Str(num(i)) + "        " + Str(w(i))
Next i
k = Val(Text1．Text)
flag = False
p = 1: q = n
Do While        ③     ___________
   If w(p) + w(q) < k Then
       p = p + 1
   ElseIf w(p) + w(q) > k Then
       q = q - 1
   Else
       List3．AddItem Str(num(p)) + "和" + Str(num(q))
       flag = True
       p = p + 1: q = q - 1
   End If
Loop
If Not flag Then
     List3．AddItem "未找到这样的组合"
End If
End Sub

为了迎接五校联考的到来，TBY创作主题为“将卓越进行到底”的多媒体作品，部分编辑页面如图所示。
请回答下列问题：
（1）在创作之前，TBY进行了作品设计，下列说法正确的是________（多选，填字母）
A．为迎接五校联考的到来，考虑该作品的受众为五校联考的考生，属于作品的应用需求分析
B．考虑背景图片从杭州第二中学官网下载，属于脚本编写
C．为让五校联考的考生能看到这一作品，考虑把这一作品以模拟试题的方式发布，属于应用需求分析
D．为丰富画面效果，考虑用Photoshop和Flash软件制作，属于规划设计
E．考虑背景音乐和文字的来源，属于创作需求分析
（2）在测试影片过程中，发现背景图层的画面会在播放到一半时消失，怎样才能使得背景图层的画面始终显示？______________
（3）为实现点击按钮后停止播放背景音乐，该按钮实例上添加的动作脚本应该为___________。
（4）关于当前作品，下列说法正确的是________（多选，填字母）
A．可以直接移动“右蔡”图层的内容
B．可以将“左蔡”图层的第20帧复制到“右蔡”图层的第25帧
C．在不点击按钮的情况下，观看者听不到背景音乐
D．隐藏“图层6”后发布作品，观看者可以看到图层6
E．“测试影片”操作执行后，会在同一目录下生成“T14．flv”文件

小张收集了某地部分市场菜篮子价格数据，并使用Excel软件进行数据处理，如图所示。
请回答下列问题：

（1） 若将C3：H3单元格的数值小数位数设置为0，则I3单元格中显示的值______（填字母：A.变大/ B.不变/ C.变小）。
（2）表中“最大差价”数据是用函数MAX和函数MIN计算得到的：选择J3单元格输入公式，然后用自动填充功能完成其他单元格的计算。则J3单元格中的公式为______（提示：“最大差价”是各市场中同一商品的最高价格与最低价格之差。函数MAX（数据区域）的功能为求该数据区域中的最大值，函数MIN（数据区域）的功能为求该数据区域中的最小值）。
（3）小张要找出在六个市场中“最大差价”最小的水产类商品（若存在符合条件的多个商品，则全部选取）。下列方法可行的是______（多选，填字母）。（注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
A.以“类别”为水产、“最大差价”为最小1项进行筛选，然后选取筛选出的全部商品
B.以“类别”为水产进行筛选，再以“最大差价”为关键字升序排序，选取排在最前面的商品
C.以“最大差价”为主要关键字、“类别”为次要关键字，均按升序排序，选取排在最前面 的商品
D.以“最大差价”为关键字升序排序，再以“类别”为水产进行筛选，选取排在最前面的 商品

小红编写了一个将5位以内的十六进制正整数转换成十进制数的VB程序，功能如下：在文本框Text1中输入一个十六进制正整数，单击“转换”按钮Command1，在标签Label3中显示结果。程序运行界面如图所示。

（1）要使窗体Form1标题显示“数制转换”，则需修改窗体的________（单击，填字母：A.Font/B.Caption/C.BackColor）属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim x As String, ch As String
Dim flag As Boolean, i As Integer, result As Long
x=_________
i=1
result=0
flag=True
ch=Mid(x,1,1)
Do While i <=Len(x) And flag=True
     If ch>= “0” And ch<= “9” Then
         result=result * 16+Val(ch)
     ElseIf ch>= “A” And ch <= “F” Then
         result=result * 16+(Asc(ch)-Asc (“A”)+10)
     ElseIf ch>= “a” And ch <= “f” Then
         result=result * 16+(Asc(ch)-Asc (“a”)+10)
     Else
         flag=False
     End If
     i=i+1
     ch=_________

Loop

If flag=True Then

      Label3.Caption=Str(result)

Else

      Label3.Caption= “输入错误”

End If

End Sub
（3）若在文本框Text1中输入5+9，单击“转换”按钮后，标签Label3中显示的内容是______（单选，填字母：A.14/B.E/C.输入错误）。

当前，我国正在开展新型冠状病毒疫苗接种，自今年 2 月份以来，许多学校的教职员工积极利用空余时间，到当地卫健部门指定的接种点去接种，为了帮助政教员小叶排摸全校教职员工接种情况，根据每天汇总的接种登记表（包含全校教职员工的姓名、组别、年龄、是否接种等信息，已转换为 txt 格式，见图 b”），小徐利用 Python 编写了一个统计程序，方便小叶向校领导汇报各教研组接种情况及全校接种比例等。该程序运行的
部分界面如图 a所示，请在程序划线处填入合适的代码。

图 a

图b
f = open("疫苗接种.txt","r") #打开文件
Vac_T={"语文组":0,"数学组":0,"英语组":0,"物理组":0,"化学组":0,"生物组":0,"政治组
":0,"历史组":0,"地理组":0,"技术组":0,"体音美组":0,"后勤组":0,"政教组":0}
Vac_F={"语文组":0,"数学组":0,"英语组":0,"物理组":0,"化学组":0,"生物组":0,"政治组":0,"
历史组":0,"地理组":0,"技术组":0,"体音美组":0,"后勤组":0,"政教组":0}
_________①           #初始化 list
zrs=0        #接种人数初始化
zu_max=0
line=f.readline()               #从文件中读取一行
while line:                      #当 line 非空

data=line.split()        #以空格分隔转换成列表

________②       #将 data 追加到 list

line=f.readline()

print(list[:5])

print("--------------------------------------------")
f.close()                            #关闭文件
num=len(list)
for i in range(num):

line_list=list[i] #遍历每一个列表元素                                        

if line_list[3]=="是":

________③         

else:

Vac_F[line_list[1]]+=1

for i in Vac_T:

zu_per=Vac_T[i]/(Vac_T[i]+Vac_F[i]) #各组接种比例

if zu_per>zu_max:

zu_max=zu_per

zu=i

________④         

tot_per=int(zrs/num*10000+0.5)/100 #全校接种比例，结果四舍五入
print("各组接种人数：",Vac_T)
print("各组未接种人数：",Vac_F)
print("全校接种比例：",tot_per)
print("接种疫苗比例最高的组：",zu)