Private Sub Text1_click(Index As Integer)Dim mianji As Singlemianji = 0.0061 * Form1.Text1.Text + 0.0128 * Form1.Text3.Text - 0.1529Text1.Text = mianji
FORM1中已经有了变量
数据类型不对吧!文本框里面输入的是文字格式的,需要用到VAL函数来转换。