已知最高分515平均分489人数50怎样求最低分？

已知最高分515平均分489人数50怎样求最低分？

最低分最低可以是0分: 47人515分, 1人245分, 2人0分,
平均分=(47*515+1*245)/50 = 489分

最低分最高可以是488分: 1人515分, 23人489, 26人488分.
平均分=(515+23*489+26*488)/50 = 489分

窗体上放四个textbox，第一个textbox用于显示随机生成的50个数，其文本属性应设置为multiline，另外三个分别用于显示最高分、平均分和最低分。再放一个commandbutton，点击按钮则生成结果显示出来。代码如下： private sub command1_click()    dim max, min, mean as integer    dim i, k as integer    dim s as string    randomize    mean = 0    max = 0    min = 0    s = ""    for i = 1 to 50     k = rnd * 100 + 1 ' 随机生成1~100之间的整数     s = s & k & "  " '    相邻两个数字之间留2个空格以便于观看结果     if (i mod 5) = 0 then s = s & vbcrlf ' 每行显示5个数据     mean = mean + k ' 计算均值前，先求和，50个数统计完后再除以50求均值     if max < k then max = k     if min > k then min = k    next i    text1.text = s    text2.text = max    text3.text = mean/50    text4.text = min end sub  

没法求得最低分。只要低于平均分都有可能。在这儿考虑到人数的话，应该比(489*50-515)/49低就可能。

最低分是不确定的，所以没法求 如果最低分是0分的话，那也是可能的。

最低分可以是0分 最大不超过 (489*50-515)/49 取整