function multi(a as integer,b as integer,optional third) dim n as integer n = a * b if not ismissing (third) then n = n * thid end if multi = n end function ------------------------------------------------------------------------ private sub command1_click() dim a as integer,b as integer dim x as integer a = 2 : b = 3 x = multi (a , b , 2) print x end sub
ÄúºÃ,ÎÒÏëÎÊһϠnot ismissing (third) ÊÇʲôÒâ˼. Èç¹ûÏÂÃæµÄʵ²ÎÖÐûÓеÚÈý¸ö²ÎÊý»° not ismissing (third)ÓÖÊÇʲôÒâ˼.ÎÒÊÇÐÂÊÖ,лл´ó¼Ò!!!!http://topic.csdn.net/t/20010323/13/87952.html
Open App.Path & "\tu\hb.bmp" For Binary As #100 ÓÃopenÓï¾ä´ò¿ªÎļþ,ÎÒÏëÓÃifÓï¾äÅжÏÕâ¸öÎļþÊÇ·ñ´ò¿ª,¾ÍÊÇ˵Èç¹ûû´ò¿ª,¾Í´ò¿ª,ÇëÎʸ÷λÅóÓÑÔõôд? ÊÇ·ñ´ò¿ªÊÇÖ¸ÊÇ·ñÒѾÓû±Ê´ò¿ªÁËô?»¹Ê ......