Private Sub Command1_Click()
Label1.Caption = mySum
Label3.Caption = "总和是"
End Sub
Private Sub Command2_Click()
Label1.Caption = mySum / Val(Text2.Text)
Label3.Caption = "平均值"
End Sub
Function mySum() As Long
Dim i As Integer
For i = 1 To Val(Text2.Text)
mySum = mySum + i
Next
End Function
图太小看不清
内容全部来源于网络收集，如有侵权，请联系网站删除!
QQ：24596024