平均值程序(VB6.0代码编写)
Function ave(ByVal a As Double, ByVal b As Double, ByVal c As Double) As Double
ave = (a + b + c) / 3
End Function
Private Sub Command1_Click()
Text4 = ave(Val(Text1), Val(Text2), Val(Text3))
End Sub
任输入三个数,求得平均值
QQ223857666勾月