学进去

孟德尔遗传定律：假设一株植物的父代基因为a，基因分离后产生配子，雄配子和雌配子的基因是比例相等的A和a，再随机结合，形成子代基因为AA、aa、Aa三种，概率约为1∶1∶2，如下表所示：

父代基因	雄配子	雌配子	子代基因
			表现	比例
Aa	A	A	AA	1
	a	a	aa	1
	A	a	Aa	2
	a	A

编写VB程序，使用随机函数模拟雄配子和雌配子的随机结合，统计并计算子代基因的次数和概率。程序运行界面如下图所示。

请回答下列问题：
（1）单击“模拟验证”按钮，触发的事件处理过程名是____________
（2）实现上述功能的VB程序代码如下，请在划线处填入合适的代码。
Private Sub Commandl _Click ()
Dim zl As Long， z2 As Long， z3 As Long
Dim a As Integer， b As Integer
Dim i As Integer， n As Integer
Dim xpz As String， cpz As String
n= Val（Text1. Text）
Randomize
For i=l To n
a=Int (Rnd()*2）
b=Int (Rnd()*2）
If______Then xpz=〞A〞Else xpz=〞a〞
If b =1 Then cpz =〞A〞Else cpz =〞a〞
Listl. Addltem xpz+cpz
If a * b =1 Then
zl=zl+1
Elself_______then
z2=z2+1
Else
z3=z3+1
End If
Next i
Text2.Text =Str(z1) ∶Text3.Text=Str(z2) ∶Text4.Text=Str(z3)
Label1. Caption =〞1：〞+ Str（+〞∶〞 +Str（Int （z3/z1+0.5））
Eed Sub
（3）加框处语句的功能是将结果四舍五入保留整数部分，若要更改为四舍五入保留两位小数，则加框处代码应改为___________________

寻找受潮药瓶：现有5瓶药，每瓶中有20粒药丸，每粒药丸重10克，其中有几瓶药受潮了，受潮的每粒药丸重11克，如何用天平只称一次找出受潮的那几瓶药？解决此问题的方法：将5瓶药编号为1～5号，从中分别取出1、2、4、8、16粒药丸进行称重。在不受潮时应是（1+2+4+8+16）×10=310（克）。假如称出的重量是315克，那么超出的重量是5克，说明有5粒超重，（5）₁₀=（00101）₂，因此受潮的是第1瓶和第3瓶。编写程序模拟此过程，程序运行时，单击“模拟”按钮Command1，在文本框Text1中输出超重克数，在列表框List1中输出药瓶编号，运行界面如图所示。实现上述功能的VB程序如下。
                         
Private Sub Commandl_Click()

Dim s As Integer, cz As Integer         'cz存储超重克数

Dim k As Integer

'依次从1～5号瓶中取出1、2、4、8、16粒药，并计算总重量，存储在变量s中，代码略

cz=s-310

Text1.Text=__①__

k=0

Do While cz<>0

k=k+1
If ___②__Then List 1.Addltem"第"+Str(k)+"瓶"
cz=cz\2

Loop

End Sub
（1）代码 List1.AddItem 中的 AddItem 是______（单选，填字母：A.属性名/B.方法名/C.事件名）
（2）请在划线处填入合适代码。
①_______________________________
②_______________________________
（3）假如超重为 10 克，则受潮的药瓶编号是_____（填数字，若有多瓶，用“，”隔开）。

医疗物资打包。抗疫志愿队接到一项任务要将N份医疗物资打包成1个大包裹，每份物资的重量为D（1）、D（2）、…、D（n）。由于设备原因，每次只能将2个包裹分装成1份。由于每次打包都需要移动物资，需要消耗体力。消耗的体力值为打包的医疗物资的重量之和。
例如将9、9、6的三份物资打包时，先将9和6的两份打包，消耗体力15，冉将15和9两个包裹打包为1个消耗体力24，于是总的体力消耗值为39
经过志愿队众人分析，每次将现存包裹中最轻的两个合并，消耗的总体力会最小。
小风同学根据这一算法策略，编写VB程序用于计算n份包裹分装需要的最少体力值
（1）要使得程序的标题栏中显示”医疗物资打包，可修改窗体的__________属性（单选，填字母：A. Text/B. Form /C. Caption）.
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
①_____________
②_____________
③_____________
（3）程序中加框处代码有错，请改正。
________________
Dim（1 To 100） As Integer
Dim n As Integer
Private Sub Form_Load（）
’读入n的值和n个包裹的重量依次存入d（1）.d（n）
End Sub
Private Sub Command1 _Click（）
For i =1 To n
Call px（i）
Next i
ans =0
Do While_____①____
d（n-1）=d（n）+d（n-1）
n=n-1

_________②________
Loop
Text1.text=ans
End Sub
Sub px（ByVal n As Integer）
For i = n To 2 Step -1
If______③________ Then
tmp =d（i）： d（i）=d（i-1）： d（i-1）= tmp
End If
Next i
End Sub

小明创作主题为“春天气息”的多媒体作品。请回答下列问题：
（1）在制作作品前，小明进行了相应的分析和规划。下列说法正确的是_______（多选，填字母：A.将作品结构划分为片头、主交互界面、片尾三个主要界面，主交互界面包含“春风”和“春雨”两个模块，这属于系统结构设计/B.确定选择Flash软件来合成作品，属于应用需求分析/C.将所需的原始素材列成表格，确定获取原始素材的方式并分类登记，属于脚本设计/D.在设计“春雨”模块时，在屏幕布局、文字、颜色、音乐、交互的设计进行规范，属于功能模块设计）。
         
（2）图中舞台的大小为550*400像素，测试影片时，前两秒诗句实例（宽：160高:180）从舞台外左侧向舞台内移动直到停在舞台中，则“诗句”图层第1帧中实例的位置坐标（X，Y）为______（单选，填字母：A.（0，0）/B.（160，-80）/C.（-160，90）/D.（550，90））。
（3）测试场景时，“雨”图层中的动画在“诗句”补间动画结束时才出现，为了实现与“诗句”图层的补间动画同时出现，需对“雨”图层进行的操作是______。
（4）测试影片时，单击“春雨”场景中“返回”按钮，停止播放所有声音，影片跳转到“主交互界面”场景第1帧并停止播放，则“返回”按钮的动作脚本为______。
（5）将该动画导出为下列格式，仍具有交互功能的是______。（单选，填字母：A.EXE/B.AVI/C.GIF）

计算机的基本功能是计算，信息加工处理本质上都是通过计算完成的。现有一图像模糊处理的算法，以10*10像素图像的模糊处理为例，具体算法如下：
（1）各像素点的颜色信息值（介于0至255之间的一个正整数，由计算机随机生成），存储至数组a中，a的排列方式如图a所示。

图a
（2）给定模糊处理对分模糊中心位置p和模糊半径r（r>1）。
①确定模糊中心点在如下数阵中的位置。若模糊中心为36时，该模糊中心在数阵中对应位置为第4行第6列；
②根据中心点和模糊半径确定模糊处理的像素点的范围
（3）依序将模糊处理范围内的像素点进行模糊处理。模糊处理的方式为：每个像素点的新颜色信息值为该像素点上下左右相邻四个像素点颜色信息值的平均值（取整数）。

图b
程序运行时，列表框List1中显示图像模糊前的信息，在文本框Text1中输入模糊的中心点p，在文本框Text2中输入模糊的半径r，单击命令按钮Comman的后在列表框List2中输出模糊后的图像信息。程序运行界面如图b所示，椭圆标记的为模糊中心p，矩形框表示的为模糊范围。
实现上述功能的VB程序如下。请回答下列问题：
（1）若p=57，如图a所示数阵，模糊中心位于第______________行。
（2）请在划线处填入合适的代码。
Const n = 10
Dim a(1 To 10 * 10) As Integer
Private Sub Command1_Click()
Dim p As Integer, r As Integer
Dim x As Integer, y As Integer
Dim i1 As Integer, i2 As Integer, j1 As Integer, j2 As Integer
Dim i As Integer, j As Integer
Dim k As Integer, k1 As Integer, k2 As Integer, k3 As Integer, k4 As Integer
Dim s As String
p = Val(Text1.Text)
r = Val(Text2.Text)
x = (p - 1) \ n + 1
______
i1 = x - r + 1: i2 = x + r - 1
j1 = y - r + 1: j2 = y + r - 1
If i1 < 1 Then i1 = 1: If i2 > n Then i2 = n

If j1 < 1 Then j1 = 1: If j2 > n Then j2 = n

For i = i1 To i2

For j = j1 To j2

k = (i - 1) * n + j

k1 = (i - 2) * n + j

k2 = i * n + j

k3 = (i - 1) * n + j - 1

k4 = (i - 1) * n + j + 1

a(k) = (a(k1) + a(k2) + a(k3) + a(k4)) \ 4

Next j

Next i

s = ""

For i = 1 To n * n

s = s + adj(a(i), 5)

If i Mod n = 0 Then

List2.AddItem s

s = ""

End If

Next i

End Sub

Private Sub Form_Load()
Dim i As Integer, j As Integer
Dim s As String
For i = 1 To n

s = ""

For j = 1 To n

___

s = s + adj(a((i - 1) * n + j), 5)

Next j

List1.AddItem s

Next i
End Sub
Function adj(x As Integer, y As Integer) As String
Dim t As String, i As Integer
t = Str(x)
For i = 1 To y - Len(t)

t = " " + t

Next i
_____
End Function

在挖金矿小游戏中，玩家通过指令控制小人运动，小人按照一定的规则将地底的金矿全部收集完毕。现将地底的截面可用一个n*n的矩阵表示，其中第一行表示地面，不会出现金矿;第2行至第n行表示地底。每一行中黑色格子表示金矿，白色格子表示空地，其中小人在矩阵左上角第一行第一列的位置。
玩家通过4种指令控制小人运动：
· 左 X：小人向左移动X个格子
· 右 X：小人向右移动X个格子
· 下 X：小人向下移动X个格子
· 挖矿：收集小人所在格子的金矿
小人收集金矿需要遵循一定的规则：
①小人必须将当前行的金矿全部收集，才能去往下一行，即金矿需从上到下收集
②对于同一行的金矿，小人必须按照从左往右的顺序开始收集
现编写程序，以8*8的矩阵为例，在文本框Text1中输入金矿数量，点击按钮“开始”后，随机产生对应数量的金矿并借助图形控件输出（保证不会在同一个格子出现两个金矿），并且在列表框List1中按顺序输出指令，使小人按照规则得到所有金矿。如图a所示。请回答下列问题。

图a                                          图b
（1）现有4*4的地底截面如图b所示，小人在左上角位置，请写出任意一种可使小人按规则获得所有金矿的指令（指令之间用逗号或空格隔开）__________。
（2）请完成程序中的填空。
Const n = 8  '程序以8*8的矩阵为例
Dim x(1 To n*n) As Integer, y(1 To n*n) As Integer '存储所有金矿的位置
Dim px As Integer, py As Integer '存储小人所在的位置
Dim i As Integer, j As Integer, m As Integer, tmp As Integer
Private Sub Command1_Click()
m = Val(Text1.Text)
Randomize
'随机产生m个金矿并通过图形控件显示在界面上，代码略
For i = 1 To m - 1
For j = 1 To m - i
'将所有金矿按照从上到下、从左到右的顺序排序，以符合题目描述的规则
If x(j) > x(j + 1) Or _________ Then
tmp = x(j): x(j) = x(j + 1): x(j + 1) = tmp
tmp = y(j): y(j) = y(j + 1): y(j + 1) = tmp
End If
Next j
Next i
px = 1: py = 1
i = 1: j = 1
Do While j <= m
Do While x(j) = x(j + 1) And j <= m
j = j + 1
Loop
If y(i) < py Then
List1.AddItem "左" + Str(py - y(i))
ElseIf y(i) > py Then
List1.AddItem "右" + Str(y(i) - py)
End If
List1.AddItem "下" + Str___________)
List1.AddItem "挖矿"
For k = i + 1 To j
List1.AddItem "右" + Str(y(k) - y(k - 1))
List1.AddItem "挖矿"
Next k
px = x(j)
____________
j = j + 1
i = j
Loop
End Sub

由数组 a 生成数组 b 的方法描述如下：
1）将数组 a 中的 n 个元素依次分割出若干个数据块，每个数据块有 2m 个元素，分割时，按尽可能大的数据块进行分割。
2）对每个分割出的数据块进行求和，将和依次存储在数组b中。
例如：n=13，可将 a(1)～a(13)依次分割成3个数据块，元素的个数分别为8、4、1。将3个数据块的和依次存储在 b(1)、b(2)、b(3)中。
小明依据上述描述设计了如下 VB 程序，请回答下列问题：
Const n = 13
Dim a(1 To n)  As  Integer
Dim b(1 To n) As Integer
Private Sub Command1_Click()
Dim start As Integer '当前未分割数据的第 1 个元素下标
Dim i As Integer, k As Integer, pb As Integer, left As Integer, m As Integer
'读取 n 个数据，依次存储到 a(1)、a(2)、……a(n)中，并对数组 b 赋初值为 0，代码略
start = 1: left = n: m = 0
Do While 2 ^ m <= left '寻找第 1 个数据块
___________
Loop
m = m - 1
pb = 1
Do While left > 0
For i = start To start + 2 ^ m - 1
___________
Next i
List1.AddItem Str(2 ^ m) + "        " + Str(b(pb)) pb = pb + 1
 ________________' 改错
left = left - 2 ^ m
Do While left < 2 ^ m
m = m - 1
Loop
Loop End Sub
（1）当 n=110 时，分割出的数据块有_________________个。
（2）程序代码中，将划线处语句补充完整。
（3）程序代码中，加框处语句有错，请改正。

在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。例如，三个点的坐标（5，10）、（8，12）、（6，17）输入格式如图所示。

（1） Cmd对象属于______类。
（单选，填字母：A. Form / B. Label / C.TextBox / D. CommandButton ）
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Cmd_Click（）
Dim i As Integer，j As Integer，k As Integer
Dim x1 As Single，y1 As Single，x2 As Single，y2 As Single
Dim d As Single，Totald As Single，v As Single，s As String
s =______①
x1 = 0： y1 = 0'出发点为坐标原点
k = 1 ： j = 1 ： Totald = 0
For i = 1 To Len（s）
If Mid（s，i，1） ="，"Then
v = Val（Mid（s，j，i - j））'提取坐标值，保存在变量v中
j = i + 1
If ② Then
x2 = v
Else
y2 = v
d = Sqr（（x2 — x1）^2 + （y2 — y1）^ 2）
Totald = Totald + d
x1 = x2 ： y1 = y2
End If
k = k + 1
End If Next i
Label1. Caption = Str（Totald）
End Sub
（3） 运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k的值为______。

小诚同学设计了一个智慧公交管理程序：公交线路上共有n个公交站点，编号分别是1，2，…，n，从1个站点行驶到下一个站点均需要5分钟，若某个站点需要上下客，不论有多少人，都按平均停留1分钟计算；该程序可以精准采集到了每个站点将上下车的乘客信息，如果某站点无人上下车，车辆将不再浪费时间停车。
小诚为更高效的执行查询操作，使用优化后的冒泡排序算法，对乘客信息以上车站点为主关键字，以下车站点为次要关键字升序排序，排序效果参考下图。

在文本框Text1中输入要查询的站点编号，点击“查询”按钮后，程序计算到达该站点的时间以及从该站点发出时车辆上的乘客人数。
程序界面如右图，请回答以下问题：
（1）如果希望在程序运行时清空列表框list1中的内容，可执行的语句是__________。
（2）请在划线处填入合适的代码。
①_________________
②_________________
（3）程序中加框处代码有错，请改正。
改正：________
Dim a(1 To 200) As Integer, b(1 To 200) As Integer      '存储第i名乘客的上车站点、下车站点
Dim s(1 To 50) As Integer       '存储第i个站点发车时的人数
Dim t(1 To 50) As Integer       '存储第i个站点前已经停过的站点数量
Dim n As Integer, m As Integer   '共有n个站点, m名乘客
Private Sub Form_Load()
'程序自动读取每名乘客的上下车站点信息,第i名乘客的上车信息存入a(i),下车站点存入b(i),乘客的上下车信息显示在list1中,乘客总人数存入m,站点总数存入n.
' 对乘客信息按上下车信息排序
k = m - 1
For i = 1 To m - 1
flag = False
For j = 1 To k
If   Then
tmp = a(j): a(j) = a(j + 1): a(j + 1) = tmp
tmp = b(j): b(j) = b(j + 1): b(j + 1) = tmp
flag = True
①____________________'填写语句,优化下一轮冒泡的比较范围
End If
Next j
k = p
If flag = False Then Exit For
Next i
' 在list2中输出排序后的乘客上车站点和下车站点等信息
End Sub
Private Sub Command1_Click()
i = 1
x = Val(Text1.Text)
'统计信息
Do While a(i) <= x
s(a(i)) = s(a(i)) + 1
s(b(i)) = s(b(i)) - 1
t(a(i)) = 1
t(b(i)) = 1
i = i + 1
Loop
t(1) = 0
For i = 2 To x
s(i) = ②____________________
t(i) = t(i - 1) + t(i)
Next i
sj = (x - 1) * 5 + t(x - 1)
Label3.Caption = "从起点出发" + Str(sj) + "分钟后达到,发车时车上共" + Str(s(x)) + "人"
End Sub

某物品柜有5层，每层有10个格子，每个格子只能放一个物品。第1层格子编号依次为1到10，第2层格子编号依次为11到20，依此类推。有9组物品（组号1~9），每组有2到8个物品，物品总数不超过50个。将9组物品按组号由小到大依次放入柜中，放置方式有两种：
1）整体放置。按格子编号由小到大的次序查找第一个可放置该组全部物品的空区域（空区域是指从某个空格子开始的同层连续的所有空格子），若找到，则在该空区域居中、连续放置该组全部物品，如图a所示。
2）零散放置。若所有空区域格子数都小于该组物品数，则将该组每个物品依次放置在当前编号最小的空格子中，如图b所示。

图a          图b

编写VB程序，模拟物品放置。运行程序，在列表框List1中显示每组物品的组号和数量，单击“放置”按钮Command1，在列表框List2中显示每组物品放置结果。程序运行界面如图c所示。

图c

（1）若第1、第2组的物品数分别为6和2，则放置第2组物品的格子编号依次为__________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Constm ＝ 50’m表示物品柜的格子数
Const w ＝ 10’w表示物品柜每层的格子数
Const n ＝ 9’n表示物品的组数
’f（i）存储第i个格子开始的同层连续的所有空格子数。f（i）为0表示第i个格子不是空格子
Dim f（m）As Integer
Dim a（n）As Integer
Private Sub Form_Load（）
’读取各组物品的个数依次存入数组a，并在List1中显示
’代码略
End Sub
Function getpos（r As Integer As Integer
’按格子编号从小到大的次序，查找空格子数≥r的第一个空区域
’若找到，返回该空区域的起始编号，否则返回 — 1
’代码略
End Function
Private Sub Command1_Click（）
Dim i As Integer，j As Integer， k As Integer，p As Integer，v As Integer
Dim s As String
For i ＝ 1To m
f（i）＝ w -（i -1）Mod w     ’w为10，表示每层的格子数
Next i
v ＝ 1
For i ＝ 1 To n
s ＝ ""
p ＝_____①
If p ＝ - 1 Then
j ＝ 1
Do While j ＜＝ a（i）
If f（v）＜＞ 0 Then
s ＝ s ＋ Str（v）
f（v）＝0
j ＝ j ＋ 1
End If
____②
Loop
Else
k ＝（f（p）- a（i）） \ 2
For j ＝ k To 1 Step - 1
f（p）＝ j
p ＝ p ＋ 1
Next j
For j ＝_____③
f（j）＝ 0
s ＝ s ＋ Str（j）
Next j
End If
List2. AddItem "第" ＋ Str（i）＋ "组：" ＋ s
Next i
End Sub