把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



max =n



end if



next



print "三个数中最大的数是" & max-In the form1 Private Sub Form_Load () to Public Sub Form_Load () in Form2 in: Call Form1.Form_Load private sub command1_click () dim max for i = 1 to 3 n = val (inputbox (" Enter the first"　&　i &　" Number" )) if n>　max then max = n end if next print " The maximum number of three numbers is"　&　max