[VB]化学分析结果处理器 [复制链接]

[i=s] 本帖最后由 Carneades 于 2009-3-8 18:47 编辑

此处理器是为了快速处理滴定分析结果数据而设计的，它可以方便地给出数据的平均数、绝对平均偏差、相对平均偏差、绝对标准偏差、相对标准偏差，一次最多可以处理5个数据。
今天把它发布，不仅是为了方便大家处理数据；更是为了征求大家的修改意见。
由于制作者水平限制，疏漏在所难免，欢迎指点！
制作者认为该软件主要存在3个问题：
1、如何自动识别数据数目？
2、数据数目如果忘记输入，程序会出错，需要一个提醒对话框。
3、如何完成有效数字的自动修约（四舍六入五留双）？

研究编程的新手们请不要到这个论坛，谢谢

大家好！我现在急需“化学分析结果处理器”的源代码，希望大家帮我找一下，给我发过来。

用textbox也可以
统计回车符出现的个数就成
可以这样做
public function GetLine()as long
dim tmp() as string
tmp=split(text1.text,vbcrlf)
GetLine=ubound(tmp)
end function

临时写的，可能有错

糟糕，我这里的电脑居然没有装VB6！
我先下载了，等装了再看。

.exe不是我生成的。我只是把解压文件夹里面的东西囫囵地压缩了一下。

那个.exe也是您新生成的？
我那个平均数默认为5。另外输入数据个数，是为了减掉多余的项。
我在元和图书馆，马上回元和中心总部。1小时后联系。

那就麻烦检查一下我改后的代码吧。我怀疑我把什么东西改错了。

不会这么夸张吧，算术平均值给出的确实是平均数啊。

[i=s] 本帖最后由 Lucifer 于 2009-3-8 19:36 编辑

另外，您的程序计算算术平均数时显示的是数据的和，而不是平均值。
我没有太多地检查计算时的代码。只是在数据收集上作了修改。没有添加修约方面的内容。修改后如下：
化学分析结果处理器.rar (7 K) 下载次数:5
注：删除数据时可以按住Ctrl多选。
又注：下面这个问题正确吗？我不太清楚您的算法。
Attached Images