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