下面的程序的作用是利用随机函数产生10个100-300(不包含300)之间的随机整数，打印其中7的倍数的数，井求它们的总和，请填空。　　Sub TOF( )　　Randomize　　Dim s As Double　　Dim a(10) As lnteger　　For i=0 To 9　　　　　　【10】　　　Next　　For i=0 To 9　　　　If　【11】　Then　　　　　Print a(i)　　　　　s=s+a(i)　　　　　【12】　　　Next i　　Print　　Print "S=" ; s　　End Sub

在AaBBCC×Aabbcc的杂交后代中，A基因纯合的个体占的比率为（）。