任输入三个数,求得平均值,平均值程序(VB6.0源代码编写Functionave(ByValaAsDouble,ByValbAsDouble,ByValcAsDouble)AsDoubleave=(a+b+c)/3EndFunctionPrivateSubCommand1_Click()Text4=ave(Val(Text1),Val(Text2),Val(Text3))EndSub