Çë½Ì£ºÔõôÓÃVBʵÏÖ¼ÆʱÆ÷µÄÀÛ¼Ó - VB / »ù´¡Àà
ÎÒÒѾÓÃtimer¿Ø¼þ×öºÃÁËÒ»¸öÃë±í¹¦ÄÜ£¬ÓÃÀ´ÏÔʾ»úÆ÷Õâ´ÎµÄ¹¤×÷ʱ¼ä£¬ÔõôÄÜÔÙÓÃÒ»¸ö±êÇ©ÏÔʾ»úÆ÷×ܹ²¹¤×÷µÄʱ¼äÄØ£¿ ±ÈÈ磬µÚÒ»´Î¹¤×÷1Сʱ10·Ö20Ã룬µÚ¶þ´Î¹¤×÷2Сʱ10·Ö20Ã룬ÄÇôÀÛ»ý¹¤×÷ʱ¼ä¾ÍÊÇ3Сʱ20·Ö40Ã룬²¢ÇÒÕâ¸öÀÛ»ýµÄÖµ²»»á¶ªÊ§µÄ¡£ ллÁË£¬Çë´óÏÀÃÇ°ï棡
1 ÓñíÖÐн¨¸öÀ¸Î»total_runtime¼Ç¼ ÿµ±¹Ø±Õ³ÌÐòµÄʱºò¸üÐÂtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä 2 ¼Ç¼ÔÚiniÎļþÖÐн¨¸ö²ÎÊýtotal_runtime ÿµ±¹Ø±Õ³ÌÐòµÄʱºò»ØдiniÎļþÖеÄtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼äÒýÓà 1 ÓñíÖÐн¨¸öÀ¸Î»total_runtime¼Ç¼ ÿµ±¹Ø±Õ³ÌÐòµÄʱºò¸üÐÂtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä 2 ¼Ç¼ÔÚiniÎļþÖÐн¨¸ö²ÎÊýtotal_runtime ÿµ±¹Ø±Õ³ÌÐòµÄʱºò»ØдiniÎļþÖеÄtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä ÄÇÔÚÀÛ¼Ó֮ǰ£¬ÎÒÔõôȡ³ö±¾´ÎÔËÐеÄʱ¼äÄØ£¿ ¸Ð¼¤£¡£¡ÒýÓà ÄÇÔÚÀÛ¼Ó֮ǰ£¬ÎÒÔõôȡ³ö±¾´ÎÔËÐеÄʱ¼äÄØ£¿ ÓÃÕâ¸öʱ¼äÒýÓà ÎÒÒѾÓÃtimer¿Ø¼þ×öºÃÁËÒ»¸öÃë±í¹¦ÄÜ£¬ÓÃÀ´ÏÔʾ»úÆ÷Õâ´ÎµÄ¹¤×÷ʱ¼ä Private Sub Timer1_Timer() s = s + 1 If s > 59 Then m = m + 1 s = 0 If m > 59 Then h = h + 1 m = 0 End If  
Ïà¹ØÎÊ´ð£º
ÎÒÏë°Ñ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 ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»» Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðһϠhÊÇʲôÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£ hÊÇxml¸ñʽµÄ×Ö·û´® ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿ ÎÒÊÇ°Ñh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~ #include "stdlib.h" #include "math.h" #include "stdio.h" float objfx(float x[]); void constraint(float x[] ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£ ±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£ ÄÜ°Ñ´úÂë·¢À´Ñ§Ï°Ï²»£¿ 244326867@qq.com ......