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
大家帮看看，功能实现不了，请指点？
谢谢~