Question

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

任意两个实数x,y，若x和y同号，则求算术平均数，否则求几何平均数

Answer 1

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

Answer 2

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

Answer 3

怪题

Answer 4

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

什么叫几何平均数?

Answer 5

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