VBÖеÄEOFºÍLOFº¯ÊýÊÇʲôÔõôÓÃ

If EOF(1) Then 'Îļþ#1ÒѶÁÈ¡Íê±ÏElse '¼ÌÐø¶ÁÈ¡Îļþ#1End IfLOF£¨Length Of File£©- Îļþ³¤¶È£¬ÆäÖµÊÇÎļþµÄ×ܳ¤¶È£¨×Ö½Ú£©£ºPrint LOF(1) 'ÏÔʾÎļþ#1...


vbÖÐ S1 = S1 & S & IIf(EOF(1),"",vbCrLf)ÊÇʲôÒâ˼...

ÕâÀïµÄvbCrLfÊǻسµµÄASCIIÂë,¼´CHR(13) ÆäÖеÄEOF(1)ÊÇÅжÏÎļþ½áÊøµÄº¯Êý,À¨ºÅÖеÄ(1)Ö¸µÄÊÇ1#Îļþ,Èç¹ûÎļþ½áÊøÁË,´ËÖµÎªÕæ,·ñÔòΪ¼Ù. ¶øIIFÊÇÒ»¸ö¸ù¾Ý±í´ïʽµÄ...


VB EOF(1) ʲôʱºòÓÃ

dim inputdata as string open "text.txt" for input as #1 '´ò¿ªÎļþtext.txt£¬ÎļþºÅΪ1 do while not eof(1)'¶ÁÎļþ£¬Ò»Ö±¶Áµ½Îļþβ input #1,inputdata'½«...


VBÎļþϵͳ±à³ÌÖеij£Óú¯Êý - °Ù¶È¾­Ñé

Ò²¿ÉÒÔΪÊôÐÔ³£Êý¶ÔÓ¦µÄÖµGetAttr·µ»ØÖµ±íÈçÏ£º³£Êý---Öµ---ÃèÊövbnormal---0---³£¹ævbReadonly---1---Ö»¶ÁvbHidden---2---Òþ²ØvbSystem---...


VBÔõô½«Ö¸¶¨Îı¾µÄ»»ÐзûÌæ»»³É¿Õ¸ñ? - ZOLÎÊ´ð

, st2 as string open "d:1.txt" for input as #1 do until eof(1) input #1,st1 st2=st2 & st1 loop close #1 st1=replace(st2, vbcrlf, " ") open "d:1.txt" ...


WhileÑ­»·ÔÚVBÖÐÈçºÎ±ÜÃâÎÞÏÞÑ­»·? - ±à³ÌÓïÑÔ - CSDNÎÊ´ð

**³£¼û¼¼ÊõÎÊÌ⣺** ÔÚVBÖÐʹÓà `While` Ñ­»·Ê±£¬ÈôÑ­»·Ìõ¼þÒÀÀµµÄ±äÁ¿Î´ÔÚÑ­»·ÌåÄÚÕýÈ·¸üУ¨ÈçÒÅ© `i += 1`£©£¬»ò¸üÐÂÂß¼­´æÔÚÂß¼­...


vbÖеÄEoFÊÇʲôÒâ˼

DO while not EOF(1)½âÊÍ£ºÅжϵ±eof(1)µÄֵΪtrueʱֹͣdoÑ­»·¡£Ê¹ÓÃEOFÊÇΪÁ˱ÜÃâÒòÊÔͼÔÚÎļþ½áβ´¦½øÐÐÊäÈë¶ø²úÉúµÄ´íÎó¡£Ö±µ½µ½´ïÎļþµÄ½á⣬EOFº¯Êý¶¼·µ»Ø...


VB Çë½Ì´óÉñΪʲôÎҵijÌÐò»áËÀÑ­»·?

ÔÚÄãµÄDoÑ­»·ÖУ¬²¢Ã»ÓжԴò¿ªµÄÎļþ×öÈκζÁд²Ù×÷£¬ÎļþÖ¸ÕëһֱͣÁôÔÚÆðʼλÖã¬ËùÒÔ EOF(1) µÄֵʼÖÕΪFalse£¬ËùÒÔÑ­»·ÎÞ·¨Í˳ö£¬ÐγÉÁËËÀÑ­»·¡£


VBÖ×ôÐÞ¸ÄÎı¾ÄÚÈÝÄØ? - ZOLÎÊ´ð

42797482 vb6.0¿ÉÒÔʹÓÃtextbok¿Ø¼þ»òrichtextbox¿Ø¼þʵÏÖ½«¶ÁÈëÎı¾ÎļþÏÔʾÓڿؼþÖС£ textbox ¿Ø¼þÓÐʱҲ³Æ×÷±à¼­×ֶλòÕ߱༭¿Ø¼þ,ÏÔʾÉè¼ÆÊ±ÊäÈëµÄÓû§ÊäÈëµÄ¡¢»òÔËÐÐʱÔÚ´úÂëÖи³Óè...


VBÖеÄIF NOTÊÇʲôÒâ˼If Not rs - checkname.EOF Then...

vbÖеÄif notÊÇʲôÒâ˼if not rs_checkname.eof then rs_checkname.movefirst while not rs_checkname.eof 'Ìí¼Ó¿ÉÑ¡ÔñµÄ»õÔ´µØ combo1.additem rs_checkname.fields(0) rs_...


Ïà¹ØËÑË÷

ÈÈÃÅËÑË÷