Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y As Single
Dim MZ As Single
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
c = Label4.Text
End Sub
大家帮看看，功能实现不了，请指点？
谢谢~

c = Label4.Text 反过来写... Label4.Text=c

-10 &lt; x &lt; 10 ,-10 &lt; y &lt; 10 最好加上括号,从文本框中得到的值,最好转换一下,就职ok