把form1中的 Private Sub Form_Load() 改为 Public Sub Form_Load() 在Form2中：Call Form1.Form_Load private sub command1_click() dim max for i = 1 to 3 n=val(inputbox("输入第" & i & "个数")) if n>max then