VB语言谁会呀？

显示全部楼层 · 2009-7-29 21:34:33

dim a as single,b as single,c as single'假设有三个评分,因为你没有告诉我有几个评分dim max as single,min as single '从三个text中输入分值，从label1中输出最终得分a = val(text1.text)b = val(text2.text)c = val(text3.text)max = amin = aif b>max thenmax = bend ifif c>max thenmax = cend ifif b<min thenmin = bend ifif c<min the...

千问 · 2009-7-29 21:34:33

我会，你需要详细地写一下。...

千问 · 2009-7-29 21:34:33

2008 的代码：存为一个 Double 数组。这时。数组的 Max 和 Min 两个属性就是这些数的最大值和最小值，这时用数组的 Sum 属性（总和）减去最大值和最小值，除以数组元素个数－1（元素从 0 开始计数，所以减一不是减二）即为平均数。Adv = (DeFen.Sum - DeFen.Max - DeFen.Min) / DeFen.Len...

千问 · 2009-7-29 21:34:33

你这样写会的也不看不懂你在写什么了...