【vb精品源码栏目提醒】:网学会员,鉴于大家对vb精品源码十分关注,论文会员在此为大家搜集整理了“VB数据处理小程序 - 其它资料”一文,供大家参考学习!
Public Class frmMain Public rec As Double 输入数据 Public res As Double 输出数据 Public n As Integer 数据量 Public fornumber As Integer Public average As Double Public middledata As Double Public total As Double Public Function AddAllByRef n As Integer ByRef rec As Double As Double rec为输入该公式用于求和 Dim total As Double fornumber As Integer total 0 total 初始化,所求的和 For fornumber 1 To n total total recfornumber Next AddAll total End Function 输入数据量2.数据输出和 Public Sub DeviationByRef n As Integer ByRef rec As Double ByRef res AsDouble rec 为输入,为输出计算该数据的每一个偏差 Dim average As Double fornumber As Integer average AddAlln rec / n 求平均值 For fornumber 1 To n resfornumber recfornumber - average 计算对应偏差 Next End Sub 输入数据量 2.数据 输出 偏差 Public Sub RelativeDeviationByRef n As Integer ByRef rec As Double ByRef resAs Double rec 为输入 res 为输出 计算数据的每一个相对偏差 Dim average As Double fornumber As Integer average AddAlln rec / n 据算平均值 For fornumber 1 To n recfornumber recfornumber - average 据算偏差 Next For fornumber 1 To n resfornumber recfornumber / average 据算相对偏差 Next End Sub 输入 1.数据量 2.数据 输出 1.相对偏差 Public Function AverageDeviationByRef n As Integer ByRef rec As Double ByRefres As Double As Double 计算平均偏差 rec为输入 Dim total As Double fornumber As Integer average As Double middledata AsDouble middledate是绝对偏差 ReDim middledata0 To n average AddAlln rec / n 求平均值 For fornumber 1 To n resfornumber recfornumber - average 计算对应偏差 Next 绝对偏差 average AddAlln rec / n 获得数据平均值 For fornumber 1 To n total total Math.Absrecfornumber - average Next AverageDeviation total / n 平均平均偏差 End Function 输入 1.数据量 2.数据 输出 1.平均偏差 Public Sub RelativeAverageDeviationByRef n As Integer ByRef rec As DoubleByRef res As Double 相对平均偏差 Dim fornumber As Integer For fornumber 1 To n resfornumber recfornumber / AddAlln rec / n Next End Sub 输入 1.数据量 2.数据 输出 1.平均相对偏差 Public Function StandardDeviationByRef n As Integer ByRef rec As Double AsDouble 样本的标准偏差 Dim average As Double fornumber As Integer total As Double average AddAlln rec / n For fornumber 1 To n total total recfornumber - average 2 Next StandardDeviation Math.Sqrttotal / n - 1 End Function 输入 1.数据量 2.数据 输出 1.标准偏差 Public Function VariationCoefficientByRef n As Integer ByRef rec As Double AsDouble 样本的变异常数 VariationCoefficient StandardDeviationn rec / AddAlln rec / n End Function 输入 1.数据量 2.数据 输出 1.变异常数 REM 接来的一整短时主程序 Private Sub bttRes_ClickByVal sender As System.Object ByVal e AsSystem.EventArgs Handles bttRes.Click If LentxtShowRec.Text 0 Then MsgBox请先输入数据” : Exit Sub 检查是否已经-输入可以计算的数据 txtRes.Text txtRes.Text 本次的数据为 Chr13 Chr10 txtRes.Text txtRes.Text txtShowRec.Text Chr13 Chr10 首先显示现有数据 total 0 total 初始化所求的和 For Me.fornumber 1 To n total total recfornumber Next txtRes.Text txtRes.Text 求和结果为 Chr13 Chr10 txtRes.Text txtRes.Text Strtotal Chr13 Chr10 输出数据的和 average total / n 求平均值 For Me.fornumber 1 To n resfornumber recfornumber - average 计算对应偏差 Next txtRes.Text txtRes.Text 对应偏差为 Chr13 Chr10 For Me.fornumber 1 To n txtRes.Text txtRes.Text Strresfornumber Next txtRes.Text txtRes.Text Chr13 Chr10 输出偏差 RelativeAverageDeviationn rec res txtRes.Text txtRes.Text 对应相对偏差为 Chr13 Chr10 For Me.fornumber 1 To n txtRes.Text txtRes.Text Strresfornumber Next txtRes.Text txtRes.Text Chr13 Chr10 输出相对偏差 middledata AverageDeviationn rec res txtRes.Text txtRes.Text 平均偏差为 Chr13 Chr10 txtRes.Text txtRes.Text Strmiddledata Chr13 Chr10 输出平均偏差 RelativeAverageDeviationn rec res txtRes.Text txtRes.Text 相对平均偏差为 Chr13 Chr10 For Me.fornumber 1 To n txtRes.Text txtRes.Text Strresfornumber Next txtRes.Text txtRes.Text Chr13 Chr10 输出相对平均偏差 middledata StandardDeviationn rec txtRes.Text txtRes.Text 标准偏差为 Chr13 Chr10 txtRes.Text txtRes.Text Strmiddledata Chr13 Chr10 输出标准偏差 middledata VariationCoefficientn rec txtRes.Text txtRes.Text 变异常数为 Chr13 Chr10 txtRes.Text txtRes.Text Strmiddledata Chr13 Chr10 输出变异常数 End Sub REM 主程序结束 Private Sub bttRecResOutput_ClickByVal sender As System.Object ByVal e AsSystem.EventArgs Handles bttRecResOutput.Click If LentxtRes.Text 0 Then MsgBox无数据导出 : Exit Sub 检查是否有数据导出 FileOpen1 C:UsersElevenDesktop分析化学数据.txt OpenMode.Output Write1 txtRes.Text FileClose MsgBox数据导出完毕 End Sub 导出数据 Private Sub bttRecCLear_Click txtShowRec.Clear 清空数据列表 ReDim rec0 ReDim res0 清空数组 n 0 数据量为 End Sub Private Sub bttResClear_Click Handles bttResClear.Click txtRes.Clear 清空结果列表 End Sub Private Sub bttRec_Click Handles bttRec.Click If LentxtRec.Text 0 Then MsgBox没有输入 : Exit Sub 防止用户输入错误数据 n n 1 数据量增加 ReDim Preserve recn resn recn ValtxtRec.Text 重新建立数组 把新的数据赋予rec txtShowRec.Text StrValtxtRec.Text txtShowRec.Text 将新的数据显示出来只计入数值 txtRec.Clear 输入完毕之后清空内容 txtRec.Focus End Sub Private Sub bttClearAll_ClickByVal sender As System.Object ByVal e AsSystem.EventArgs Handles bttClearAll.Click bttResClear_Click bttRecCLear_Click End Sub 同时清空两个列表框 Private Sub bttRecShowCLear_ClickByVal sender As System.Object ByVal e AsSystem.EventArgs Handles bttRecShowCLear.Click txtShowRec.Clear n 0 End Sub Private Sub 帮助¨ToolStripMenuItem_ClickByVal sender As System.Object ByVal eAs System.EventArgs Handles 帮助¨ToolStripMenuItem.Click MsgBox白色框内输入数据点击输入按钮,就会将数据载入到粉色框内。上一篇:【精品】国二计算机VB教程9