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
VBÖÐcallbacke function ÈçÏ£º Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long Dim slength As Long, WndTitle As String ' title bar text length an ......