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дÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
Private objXml As New DOMDocument60 Private xmlRoot As IXMLDOMElement Public Function xmlNode() Set objXml = New DOMDocument objXml.async = False objXml.Load ("E:\Li ......