VB中average的程序不懂

显示全部楼层 · 2011-12-25 17:37:48

Private Sub Average_Click()'定义变量Dim t%, s%, i%'总条总给tt = List1.ListCount'初始化累计变量ss = 0'循环累加list1里的数量,并赋给sFor i = 0 To t - 1
s = s + List1.List(i)Next i'求平均数 s/t ,format 函数格式化结果,保留2位小数Label3.Caption = Format(s / t, "000.00")End Sub...

千问 · 2011-12-25 17:37:48

Private Sub Average_Click()Dim t%, s%, i% '定义3个double变量t = List1.ListCount 't为list1的数据个数s = 0For i = 0 To t - 1 '循环所有数据
s = s + List1.List(i)Next iLabel3.Caption = Format...

千问 · 2011-12-25 17:37:48

Private Sub Average_Click()'定义变量Dim t%, s%, i%'总条总给tt = List1.ListCount'初始化累计变量ss = 0'循环累加list1里的数量,并赋给sFor i = 0 To t - 1
s = s + List1.List(i)Next i'求平均数...