Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click2 Dim a As Single3 a = TextBox1.Text4 Label1.Text = a5 End Sub
改成Double:测试成功 1 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click2 Dim a As Double3 a = TextBox1.Text4 Label1.Text = a5 End Sub 所以金额的类型要设为Double,咳咳.---end---