ÓÐʲô°ì·¨ÔÚVB´úÂëÀï·ÅÈëÉÏÍò¸öÊý¿â,×îÊ¡µçÄÔ×ÊÔ´?
ÎÒÏëÔÚVB³ÌÐòµÄÔ´´úÂëÀï·ÅÈëÉÏÍò¸öÉÌÆ·Ãû³ÆµÄÊý¾Ý,È»ºó°´Ò»ÏÂcommand1¾ÍËæ»úÌáȡһ¸öµ½text1ÖÐ,²»ÖªÓÐʲô°ì·¨?Ï£ÍûÄܸü¾¡Á¿²»Õ¼ÓÃCPUºÍÄÚ´æ.
·Åµ½´úÂëÀʡÄÚ´æÊDz»¿ÉÄܵģ¬Õ¼ÓÃCPUÒ²²»»á¶à¡£
·ÅÔÚ´úÂëÀï¸öÈËÈÏΪ²»¿ÉÈ¡£¬´úÂëÀï·ÅÊý¾Ý²»·½±ãÀ©Õ¹£¬¶øÇÒʵÖÊÒ²ÊÇ´æ·ÅÔÚ´úÂëÎļþÀӦ¸ÃÓÃÊý¾Ý¿â/Îļþ/excelµÈ´æÈ¡£¬
·Åµ½ÎļþÖÐ
VB code:
DATA.TXTµÄÄÚÈÝ
·ÉÈË,Çǵ¤ ,
Ã׬,ÀîÏì ,
2008,°ÂÔË»á ,
ÏàÉùÌ©¶·,ÂíÈýÁ¢ ,
¶Ì·¢,ÁºÓ½ç÷ ,
Private Sub Command1_Click()
dim rndline as string
rndline=getab(1+int(rnd()*5))
debug.print rndline
end Sub
Private Function getab(ln As Integer) As String
Dim f As Integer
Dim lns As String
f = FreeFile()
Open "DATA.TXT" For Input As #f
Seek #f, 36 * (ln - 1) + 1
Line Input #f, lns
Close #f
getab = lns
End Function
Èç¹û³¬¹ý32767¸ö¾ÍÓ¦¸Ã°ÑÉÏÃæ´úÂëÀïÃæµÄInteger¸ÄΪLong
Ö±½Ó·ÅcomboÀï
ÎÒÏë²»¹ÜÊǷŵ½Êý×黹ÊÇÉÏÃæµÄCOMBO£¬»¹ÊÇÒ»¸ö³¤×Ö·û´®£¬ÄÚ´æÓ¦¸Ã¶¼ÏûºÄµÄ²î²»¶à¡£ÎÒͬÒâÊý¾Ý¿â/Îļþ/excelÖУ¬°ÑÆäµ±×ÊÔ´ÎļþÓá£
¼´È»´ó¼Ò¶¼Õâô˵,»¹ÊDzÉÓôó¼ÒµÄÒâ¼û°É,лл¸÷λÁË.
Ïà¹ØÎÊ´ð£º
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......