学进去

孟德尔遗传定律：假设一株植物的父代基因为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）加框处语句的功能是将结果四舍五入保留整数部分，若要更改为四舍五入保留两位小数，则加框处代码应改为___________________