变量 大大前 为 逻辑型
变量 大小前 为 逻辑型
变量 小小前 为 逻辑型
变量 大大后 为 逻辑型
变量 大小后 为 逻辑型
变量 小小后 为 逻辑型
变量 大大终 为 逻辑型
变量 大小终 为 逻辑型
变量 小小终 为 逻辑型
变量 大大 为 双精度小数型
变量 大小 为 双精度小数型
变量 小小 为 双精度小数型
变量 结果前 为 文本型 (0)
变量 结果后 为 文本型 (0)
变量 结果终 为 文本型 (0)
变量 i 为 整数型
变量 对数 为 整数型
变量 类型 为 文本型 (0)
变量 临时 为 文本型 (1)
变量 概率 为 整数型
事件 按钮1.被单击 ()
结果前 = 分割文本 (编辑框1.内容,"-")
结果后 = 分割文本 (编辑框2.内容,"-")
结果终 = 分割文本 (编辑框5.内容,"-")
对数 = 取文本长度 (子文本替换 (编辑框1.内容,"-",""))/2
编辑框3.内容=到文本 (对数)
高级表格1.清空表格 ()
变量循环首 i = 0 至 对数 步进 1
大小写判断 (结果前 (i))
大小写判断2 (结果后 (i))
如果 大大前 = 真 则
临时 (0)="大大"
类型=合并文本数组 (类型,临时)
否则
如果 大小前 = 真 则
临时 (0)="大小"
类型=合并文本数组 (类型,临时)
否则
如果 小小前 = 真 则
临时 (0)="小小"
类型=合并文本数组 (类型,临时)
结束 如果
结束 如果
结束 如果
如果 大大后 = 真 则
类型 (i)=类型 (i) & "大大"
否则
如果 大小后 = 真 则
类型 (i)=类型 (i) & "大小"
否则
如果 小小后 = 真 则
类型 (i)=类型 (i) & "小小"
结束 如果
结束 如果
结束 如果
如果 类型 (i)="大大大大" 则
概率赋值 (1,0,0)
否则
如果 类型 (i)="大大大小" 或 类型 (i)="大小大大" 则
概率赋值 (0.5,0.5,0)
否则
如果 类型 (i)="小小小小" 则
概率赋值 (0,0,1)
否则
如果 类型 (i)="大大小小" 或 类型 (i)="小小大大" 则
概率赋值 (0,1,0)
否则
如果 类型 (i)="大小小小" 或 类型 (i)="小小大小" 则
概率赋值 (0,0.5,0.5)
否则
如果 类型 (i)="大小大小" 则
概率赋值 (0.25,0.5,0.25)
否则
概率赋值 (0,0,0)
结束 如果
结束 如果
结束 如果
结束 如果
结束 如果
结束 如果
编辑框1.插入文本 (0,类型 (i)&到文本 (大大)&到文本 (大小)&到文本 (小小)&" ")
高级表格1.添加一行 (分割文本 ("icon.png,"&大大 &","&大小 &","&小小,","),白色)
变量循环尾
结束 事件
过程 大小写判断 (文本 为 文本型)
如果 文本=到大写 (文本) 则
大大前=真
大小前=假
小小前=假
否则
如果 文本=到小写 (文本) 则
大大前=假
大小前=假
小小前=真
否则
大大前=假
大小前=真
小小前=假
结束 如果
结束 如果
结束 过程
过程 大小写判断2 (文本 为 文本型)
如果 文本=到大写 (文本) 则
大大后=真
大小后=假
小小后=假
否则
如果 文本=到小写 (文本) 则
大大后=假
大小后=假
小小后=真
否则
大大后=假
大小后=真
小小后=假
结束 如果
结束 如果
结束 过程
过程 大小写判断3 (文本 为 文本型)
如果 文本=到大写 (文本) 则
大大终=真
大小终=假
小小终=假
否则
如果 文本=到小写 (文本) 则
大大终=假
大小终=假
小小终=真
否则
大大终=假
大小终=真
小小终=假
结束 如果
结束 如果
结束 过程
过程 概率赋值 (BB 为 双精度小数型,BL 为 双精度小数型,LL 为 双精度小数型)
大大=BB
大小=BL
小小=LL
结束 过程
事件 按钮2.被单击 ()
信息框 ("生物配子概率计算器",子文本替换 (编辑框5.内容,"-","")&"的概率为:","确定")
结束 事件