请高手帮忙！！！急，急！

来源：百度知道 编辑：UC知道 时间：2024/05/03 07:27:24
任意两个实数x,y，若x和y同号，则求算术平均数，否则求几何平均数

x,y为同号则x*y>0
Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = InputBox("输入X")
y = InputBox("输入Y")
If x * y > 0 Then
Print (x + y) / 2
Else
Print 几何平均数公式（弄不明白几何平均数公式）
End If
End Sub

Oo苍雪oO的思路正确，不过上网查了一下几何平均数这个东西，好像异号的两个数，算不出来几何平均数的吧？！

怪题

同号不同号就看它们">0" OR "<0"

什么叫几何平均数?

算法我会，但平均数我忘了是怎么回事了。。