题目

【加试题】VB应用程序“跳远成绩排序”功能如下：按指定格式录入数据，例：0373,张乐晓,3.90。编号宽度固定为4位，姓名宽度固定为3个汉字，不足部分以全角空格补齐，第9个字符开始为跳远成绩。 在文本框按回车表示录入一项数据结束，录入的数据经处理后编号、姓名、成绩分别存放在数组编号bh、xm、cj中并将原始数据显示在List1中。 点击命令按钮Command1后进行排序并将排序后的结果显示在List2中。 程序运行界面如图所示。 （1） 请在划线处一盒中装有零件12个，其中有9个正品，3个次品，从中任取一个，如果每次取出次品就不再放回去，再取一个零件，直到取得正品为止．求在取得正品之前已取出次品数的期望．