又来个逻辑题。。！！！

tzh308

数组  里面有   类型 A  B  C  D  4种文本  随机生成 A-D   数量 随机

A > B > C > D  大小规则

A=3积分 B=2积分 C=1积分  D=0积分

问题 算出 数组 里面最大的 类型  然后最大类型有几个 算出最大类型的总分数

比如：

数组T 里有   B C D B D C C B

没有A 最大就是B  一共 3个B  一个B=2分 那 2X3=6分

答案，数组T 最大类型 B  得分 6

这种用易怎么写出来！麻烦各位大佬

LEOONL

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
类型	文本型		0
n	整数型
最大类型	文本型
文本	文本型

文本 ＝ “B C D B D C C B”
类型 ＝ { “A=3”, “B=2”, “C=1”, “D=0” }
计次循环首 (取数组成员数 (类型), n)
如果真 (寻找文本 (文本, 文本_取左边 (类型 [n], “=”), , 假) ＞ 0)
最大类型 ＝ 类型 [n]
跳出循环 ()

计次循环尾 ()
调试输出 (到数值 (文本_取出现次数 (文本, 文本_取左边 (类型 [n], “=”)) × 到数值 (文本_取右边 (类型 [n], “=”))))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 类型, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 最大类型, 文本型<br /> .局部变量 文本, 文本型<br /> <br /> 文本 ＝ “B C D B D C C B”<br /> 类型 ＝ { “A=3”, “B=2”, “C=1”, “D=0” }<br /> .计次循环首 (取数组成员数 (类型), n)<br />     .如果真 (寻找文本 (文本, 文本_取左边 (类型 [n], “=”), , 假) ＞ 0)<br />         最大类型 ＝ 类型 [n]<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (到数值 (文本_取出现次数 (文本, 文本_取左边 (类型 [n], “=”)) × 到数值 (文本_取右边 (类型 [n], “=”))))