Private Sub Text1_click(Index As Integer)
Dim mianji As Single
mianji = 0.0061 * Form1.Text1.Text + 0.0128 * Form1.Text3.Text - 0.1529
Text1.Text = mianji
FORM1中已经有了变量
Private Sub Text1_click(Index As Integer)
Dim mianji As Single
mianji = 0.0061 * Form1.Text1.Text + 0.0128 * Form1.Text3.Text - 0.1529
Text1.Text = mianji
FORM1中已经有了变量