包布丁2018-04-05TA获得超过1317个赞关注先设计好Form1和Form2。在PrivateClassForm2中输入PublicEventChangeValue(ByValvalueAsString)'是string还是其它的看你需要了在Form2的Closed事件：PrivateSubForm2_Closed()HandlesMe.ClosedRaiseEventChangeValue(TextBox1.Text)'如果是数值类型的话用下面这个：'RaiseEventChangeValue(Val(TextBox1.Text))EndSub在Form中定义x：DimxAsString'是String还是数值类型看你需要了，要和上面的统一在Form1中写一个处理值的函数。值哪来？别管它PrivateSubProcessValue(ByValvalueAsString)'记得统一x=valueEndSub在Form1中Button1的Click事件中：PrivateSubButton1_Click()HandlesButton1.ClickDimf2AsNewForm2AddHandlerf2.ChangeValue,AddressOfProcessValuef2.Show()EndSub楼下的更简单啦