vb 2005 Êý×éÔªËØ¸öÊýÎÒÄÑÌâ
ÇëÎÊ ÎÒÓá£net2005 ÀﶨÒåvb dim a(2) as integer ÓÐÈý¸öÔªËØ a(0)a(1)a(2) ¶øvb 2005Óï·¨ÊéÉϽéÉÜ Ï±êΪ 0~1 Õâ¸öÔõô½âÊͰ¡£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿
VB.netÓ¦¸ÃºÍC#Ò»Ñù£¬Êý×éϱêÊÇ´Ó0¿ªÊ¼µÄ¡£ ËùÒÔÓ¦¸ÃÊÇ£ºa(0)a(1)Á½¸öÔªËØ¡£ ĬÈÏÇé¿öÏ£¬vb.netµÄÊý×éϱê´Ó0 ¿ªÊ¼ ÎÒ¾õµÄ´ð°¸Ó¦¸ÃÊÇ a(0) a(1) a(2) vb.netÊÇ´Ó0¿ªÊ¼µÄ ÕâµãÎÒÈ·¶¨ ²»Äܾ¡ÐÅÊ飬ÄÑÃâÓÐÓ¡Ë¢´íÎóµÄʱºò¡¡Å¼ÈÏΪÊÇÊéÉÏ´íÁË¡£ ²é²éMSDNÓÐû˵µ½¡£ ²âÊÔϾÍÖªµÀÀ²Ñ½ Ó¦¸ÃÊÇa(0)a(1)Á½¸öÔªËØ¡£ ÒýÓà ÇëÎÊ ÎÒÓá£net2005 ÀﶨÒåvb dim a(2) as integer ÓÐÈý¸öÔªËØ a(0)a(1)a(2) ¶øvb 2005Óï·¨ÊéÉϽéÉÜ Ï±êΪ 0~1 Õâ¸öÔõô½âÊͰ¡£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿£¿ ÄãÔõô¿´µ½µÄ£¿£¿£¿ VBµÄʱºò£¬Ä¬ÈÏÇé¿öÏ£¬Êý×éϱê¾ÍÊÇ´Ó0¿ªÊ¼µÄ¡£ Äã˵µÄÄÇÖÖÇé¿ö¿ÉÄÜÊÇÉèÖÃÁË[option base 1]£¬ ÕâÑùÊý×éϱê¾Í´Ó1¿ªÊ¼ÁË¡£ Èç¹ûÕÒ²»µ½Õâ¸ö£¬¾ÍÊÇÓ¡Ë¢´íÁË¡£
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
ÎÒÓÐÒ»¸öÊý×ÖÊÇ´ÓÊý¾Ý¿âÀïÃæÈ¡³öµÄ£¬¸ÃÊý¾Ý¿âµÄ×Ö¶ÎÊý×ÖÀàÐÍÊÇdecimal 13,ÖÁÉÙÒª±£Áô4λСÊý ,ÎÒ´ÓÕâ¸ö×Ö¶ÎÈ¡µ½ÊýºóÒª¸³¸øÒ»¸ö±äÁ¿fquantity£¬Õâ¸ö±äÁ¿ÎÒÉè³Ésingle(dim fquantity as single),µ«ÊÇ·¢ÏÖÓеÄʱºòÕâ¸ö ......