'form1代码: 'form定义全局变量 Public M As Integer '测试M值,点击窗体 Private Sub Form_Click() MsgBox M End Sub '启动form1时候显示form3方便测试 Private Sub Form_Load() Form3.Show End Sub 'form3代码: '点击form3窗体使Mz增加1 Private Sub Form_Click() Form1.M = Form1.M + 1 End Sub采纳哦