| 发表于:2007-08-10 15:51:1311楼 得分:0 |
private sub form_load() msgbox "单击窗体 ", , "提示 " end sub private sub form_click() dim a as single ,b as single , c as single a = inputbox( "请输入变量的值 ", "输入 ") b = inputbox( "请输入变量的值 ", "输入 ") c = inputbox( "请输入变量的值 ", "输入 ") if a> b then if b > c then print a ,b , c else print a , c , b end if else if a < c then if b <c then print c , b , a else print b,c ,a end if else print b ,a ,c end if end if end sub | | |
|