Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 ±£´æExcelÎļþÎÊÌâ

±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»­Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ ......

VB µ÷ÓÃϵͳ¼ÆËãÆ÷

ÎÒÖªµÀÔÚVBÖе÷ÓÃϵͳµÄ¼ÆËãÆ÷ ¿ÉÒÔÓÃshell
¿ÉÊÇÒªÊÇÒªÇó¸ßµã µ÷Óúó Ö±½Ó¼ÆËã ²¢°Ñ¼ÆËã½á¹ûÏÔʾÔÚÎı¾¿òÀï

±ÈÈç ÔÚµã»÷°´Å¥1 µ÷ÓüÆËãÆ÷ °ÑÖ¸¶¨µÄ¶þ½øÖÆ×ª»»Îª16½øÖÆ ²¢ÏÔʾÔÚ text1
×ÔÒÑ×öÒ»¸ö¼ÆËãÆ÷~ ......

VBÔõÑùÏÔʾµÇ½Óû§ID

VB+Access·ÖÎöάÐÞ¹ÜÀíϵͳ£¬ÔõÑù½øÈëϵͳ´°ÌåÉÏÏÔʾµÇ½Óû§Ãû£»
Çë¸ßÊÖ°ïæ£»
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔʾÔÚstatebarÀïµÄ°É¡£

ÒýÓÃ
Õâ¸öÒ»°ãÊÇÓû§¾­¹ýÁËÓû§Ãû£«ÃÜÂëÑé֤ͨ¹ýºóÏÔÊ ......

VB與VB.NET區別

VB與VB.NET區別ÊÇʲô£¿
³ýÁËÓï·¨²î²»¶à£¬¼¸ºõ¶¼ÊÇÇø±ð¡£

×÷ÓÃÖ÷Òª區別ÊÇÊ²Ã´ÄØ?

Óò»ÓÃÓÐ .net¿ò¼Ü


ÒýÓÃ
Óò»ÓÃÓÐ .net¿ò¼Ü


.net¿É·ñÀí½â為Ł ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ