Dim x!, y!, MZ!
Dim c As String
x = TextBox1.Text
y = TextBox2.Text
MZ = TextBox3.Text
If -10 < x < 10 And -10 < y < 10 Then
c = MZ * 5000
Else
c = MZ * 3000
End If
TextBox4.Text = c
各位弟兄帮看看，“else”后面的功能不能实现，输入大于或者小于10的坐标都是乘以5000的！
谢谢~

不能这样写 -10 < x < 10
应该这样写 x > 10 And x < 10
照我这样都改了就行了

万分感激，可以了！