【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 St