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




Ïà¹ØÎÊ´ð£º

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

vbÅжÏ.bmpÎļþÊÇ·ñ´ò¿ª

Open App.Path & "\tu\hb.bmp" For Binary As #100
ÓÃopenÓï¾ä´ò¿ªÎļþ,ÎÒÏëÓÃifÓï¾äÅжÏÕâ¸öÎļþÊÇ·ñ´ò¿ª,¾ÍÊÇ˵Èç¹ûû´ò¿ª,¾Í´ò¿ª,ÇëÎʸ÷λÅóÓÑÔõôд?
ÊÇ·ñ´ò¿ªÊÇÖ¸ÊÇ·ñÒѾ­Óû­±Ê´ò¿ªÁËô?»¹Ê ......

vb 5´óÎÊÌâ

1.ÓÃShell "regsvr32  " & App.Path & "\abcdefghijklmnopqrstuvwxyz.ocx"×¢²á¿Ø¼þ£¬Ôõô²»ÏÔʾע²á³É¹¦¶Ô»°¿ò£¿
2.ÐÞ¸Äd:\12345.txtÊôÐÔ->Ö»¶Á£¬·ÇÖ»¶Á£¬Òþ²Ø£¬·ÇÒþ²Ø
3 ......

¹ØÓÚÓÃvb´¦ÀítxtµÄÎÊÌâ

ÓÉÓÚÿÔ´ӱðµÄ¹«Ë¾ËÍÀ´Ò»¸ötxtÎļþ£¬¸ñʽÈçÏ£º
   
0023939608011»Æ¸ùÑø                                & ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ