阅读程序：
Private Sub Form_Click()
msg 1$＝"继续吗"
msg 2$="操作对话框"
r＝MsgBox(msgl$,vbYesNo Or vbDefaultButton2,msg2$)
End Sub
程序运行后，单击窗体，将产生一个信息框。此时如果直接按Enter键，则相当于用鼠标单击信息框中的 【10】 按钮。

某生物学习小组对当地人类的遗传病进行调查，调查结果如下表。请根据表中资料分析回答有关问题：

下图是该小组在调查中绘制的某一家族系谱图，且得知Ⅱ4婚前曾做过基因检测确认无甲、乙两病的致病基因。

据此进一步判断：甲病的遗传方式为（），乙病的遗传方式为（）。Ⅲ1的基因型为（甲病基因用A、a表示，乙病基因用B、b表示）（）。如Ⅲ2与Ⅲ3婚配，生出正常孩子的概率为（）