孟德爾遺傳定律：假設一株植物的父代基因為a,基因分離后產生配子，雄配子和雌配子的基因是比例相等的A和a,再隨機結合，形成子代基因為AA、aa、Aa三種，概率約為1：1：2，如表所示：
| 父代基因 | 雄配子 | 雌配子 | 子代基因 | |
| 表現(xiàn) | 比例 | |||
| Aa | A | A | AA | 1 |
| a | a | aa | 1 | |
| A | a | Aa | 2 | |
| a | A | |||
請回答下列問題：
（1）單擊“模擬驗證”按鈕，觸發(fā)的事件處理過程名是
Commandl_Click
Commandl_Click
（2）實現(xiàn)上述功能的VB程序代碼如下，請在橫線處填入合適的代碼。
PrivateSubCommandl_Click （ ?。?br />DimzlAsLong,z2AsLong,z3AsLong
DimaAsInteger,bAsInteger
DimiAsInteger,nAsInteger
DimxpzAsString,cpzAsString
n=Val（Text1.Text）
Randomize
Fori=lTon
a=Int（Rnd （ ?。?2）
b=Int（Rnd （ ?。?2）
If
a=1或a＜＞0或a＞0
a=1或a＜＞0或a＞0
Thenxpz=″A″Elsexpz=″a″Ifb=1Thencpz=″A″Elsecpz=″a″
Listl.Addltemxpz+cpz
Ifa*b=1Then
zl=zl+1
Elself
a+b=0或a=0andb=0或其他等價答案
a+b=0或a=0andb=0或其他等價答案
thenz2=z2+1
Else
z3=z3+1
EndIf
Nexti
Text2-Text=Str（z1）：Text3.Text=Str（z2）：Text4.Text=Str（z3）
Label1.Caption=″1：″+Str（
+″：″+Str（Int（z3/z1+0.5））EedSub
（3）加框處語句的功能是將結果四舍五入保留整數部分，若要更改為四舍五入保留兩位小數，則加框處代碼應改為
Round（z2/z1，2）
Round（z2/z1，2）
【考點】應用程序的試運行和保存．
【答案】Commandl_Click；a=1或a＜＞0或a＞0；a+b=0或a=0andb=0或其他等價答案；Round（z2/z1，2）
【解答】
【點評】
聲明：本試題解析著作權屬菁優(yōu)網所有，未經書面同意，不得復制發(fā)布。
發(fā)布：2024/4/20 14:35:0組卷：0引用：1難度：0.5
相似題
-
1．有如下VB程序段：
執(zhí)行該程序段后，變量c的值是（ ?。?/h2>發(fā)布：2024/12/16 5:0:1組卷：1引用：2難度：0.3 -
2．由大寫字母組成的長度相同的兩個字符串s1和s2，檢測各字母的數量，如“ABDAC”與“AABCD”所含字母數量一樣，與“AABBC”所含字母數量不一樣。實現(xiàn)該功能的VB程序段如下：
填空處的代碼可以由以下部分組成：
①Text2.Text ②val（Text2.Text） ③b（a）=b（a）+1 ④b（a）=b（a）-1 ⑤b（i）＜＞0⑥b（i）=0
代碼順序正確的是（ ?。?/h2>發(fā)布：2024/12/16 9:30:1組卷：3難度：0.4 -
3．小明用python語言中對大小為100*100像素的圖像“上.jpg”（如圖所示）進行簡單處理，部分代碼如圖：
程序執(zhí)行后的圖像效果是（ ?。?/h2>發(fā)布：2024/12/20 9:30:2組卷：3引用：5難度：0.4
把好題分享給你的好友吧~~