dim o for each o in controls debug.print typename(o) next
µäÐ͵ĵ¹·ÖÌù£¡ 5Â¥Õý½â£¡ If TypeOf ¿ÉÒÔÅжϴ«Èë¹ý³ÌµÄ¿Ø¼þÊÇ·ñΪһÎı¾¿ò¡£
Sub ControlProcessor(MyControl As Control) If TypeOf MyControl Is CommandButton Then Debug.Print "You passed in a " & TypeName(MyControl) ElseIf TypeOf MyControl Is CheckBox Then Debug.Print "You passed in a " & TypeName(MyControl) ElseIf TypeOf MyControl Is TextBox Then Debug.Print "You passed in a " & TypeName(MyControl) End If End Sub
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 fu ......