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
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Type GUID Data1 As Long ......
Private objXml As New DOMDocument60 Private xmlRoot As IXMLDOMElement Public Function xmlNode() Set objXml = New DOMDocument objXml.async = False objXml.Load ("E:\Li ......