Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÎļþ²Ù×÷

Private Sub Command1_Click()

    Dim m As Integer    '½ÓÊÜÎı¾¿òÒ»µÄÊýÖµ
    Dim n As Integer  '½ÓÊÜÎı¾¿ò¶þµÄÊýÖµ
    Dim k As Integer  'Ñ­»·¿ØÖÆ´ÎÊý
   
    m = Val(Text1.Text)
    n = Val(Text2.Text)
   
    For k = m To n
        Open Dir1.Path + "\k.txt" For Output As #k
    Next
   
End Sub

Õâ¶Î´úÂëµÄ±¾À´ÓÃÒâÊǵã»÷command1°´Å¥µÄʱºò ÔÚÖ¸¶¨Îļþ¼ÐÖд´½¨ ÎļþÃûΪÊý×Öm µ½nµÄ n-m¸öÎļþ£¨Ôݲ»ÅжÏn ºÍmµÄ´óСÎÊÌ⣩
¿ÉÊÇÎÒµ÷ÊÔµÄʱºòÖ»Éú³Ék.txtÎļþ  ÔõôÈÃforÑ­»·ÀïµÄkÕæÕýµÄÆð×÷ÓÃ

ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!




Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËǰIllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

vbµÄpicture¿Ø¼þµÄÐ¶ÔØ

ÓÃvbµÄpicture¿Ø¼þ¿ÉÒÔ¼ÓÔØpicture¿Ø¼þ,ÀýÈç
Set Picture1.Container = Picture3
ÕâÑù¾Í°ÑPicture1¼ÓÔØµ½ÁËPicture3ÉÏ,ÄÇôÔõô´ÓPicture3Ð¶ÔØµôPicture1ÄØ?
Çë¸÷λÅóÓѰïæ!лл!!
×öÁËÒ»¸öÊÔÑé,½«Pictur ......

vbÖпÉÑ¡²ÎÊýµÄÎÊÌâ

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ