高手帮帮忙_万分感谢!

给我一支岩

请教高手，　我刚学习ＶＢＡ，调试一个程序怎么也运行不了，　我用的是CAD2007,  下面是一个单位互换的程序，高手给看下，　问题出在那，　：其中：我也试过：在把TextBox1改成TextBox1.txt,类似的都改了, 还是不行,

Private Sub OptionButton1_Click()
If TextBox1 = " " Then
TextBox2 = TextBox1 * 1.0936
Else
TextBox1 = TextBox2 * 0.0936
End If
End Sub

Private Sub OptionButton2_Click()
End
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox2 = " "
End Sub

Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1 = " "
End Sub

mccad

用TextBox1.Value试试

woaishuijia

textbox1和textbox1.text都是字符串，用字符串乘一个浮点数当然会出错了

应该是val(textbox1)*1.0936