¤@»õÓ ¥[ªk¹Bºâ¡A¤j·§»Ýn 8.9 ¬íÄÁ
- ©«¤l
- 145
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 190
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2013-10-18
- ³Ì«áµn¿ý
- 2014-3-29
|
¤@»õÓ ¥[ªk¹Bºâ¡A¤j·§»Ýn 8.9 ¬íÄÁ
Sub p®É½X¿ö()
Dim byou1, byou2 As Double
Dim i As Long
Dim sum As Double
' integer ¥u¯àpºâ¨ì 32767, ¶W¹Lªº¸Ü¡Aµ{¦¡·|·í±¼
' long ¥u¯àpºâ¨ì 2147483647, ¶W¹Lªº¸Ü¡Aµ{¦¡·|·í±¼
' double ¥i¥Hpºâ¨ì 10^ +308 ¥ª¥k
' MsgBox "«ö¤U½T©w«ö¶s«á¶}©lp®É"
byou1 = Timer
sum = 0#
For i = 1 To 100000000
sum = sum + i
Next i
' MsgBox "¦A«ö¤@¦¸½T©w«ö¶s°±¤îp®É"
byou2 = Timer
MsgBox "¸g¹Lªº®É¶¡¬° " & byou2 - byou1 & " ¬í, " & sum
' ¤@»õÓ ¥[ªk¹Bºâ¡A¤j·§»Ýn 8.9 ¬íÄÁ¡A¤ñC++ºC¤F«Ü¦h
End Sub |
|
¤Ñ¤U¬°¤½
|
|
|
|
|
- ©«¤l
- 605
- ¥DÃD
- 92
- ºëµØ
- 0
- ¿n¤À
- 648
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- macau
- µù¥U®É¶¡
- 2013-4-5
- ³Ì«áµn¿ý
- 2019-2-10
|
|
ss
|
|
|
|
|
- ©«¤l
- 605
- ¥DÃD
- 92
- ºëµØ
- 0
- ¿n¤À
- 648
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- macau
- µù¥U®É¶¡
- 2013-4-5
- ³Ì«áµn¿ý
- 2019-2-10
|
½Ð©ú¥Õ, VBA ¤ñCºC¬O¥¿±`ªº, ¤j®aªº¥Î³~¤j¤£¤@¼Ë |
|
ss
|
|
|
|
|
- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¦^´_ 2# sunnyso
«e½ú!
¤£·|§a!¤p§Ìªº¥un2.9296875
³o¬O«ç»ò¦^¨Æ©O?!! |
|
|
|
|
|
|
- ©«¤l
- 605
- ¥DÃD
- 92
- ºëµØ
- 0
- ¿n¤À
- 648
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- macau
- µù¥U®É¶¡
- 2013-4-5
- ³Ì«áµn¿ý
- 2019-2-10
|
§Úªº¬Ocore T9300 |
|
ss
|
|
|
|
|
- ©«¤l
- 145
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 190
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2013-10-18
- ³Ì«áµn¿ý
- 2014-3-29
|
- Function time1() As Long
- Dim t1 As Double
- Dim t2 As Long
-
- t1 = Timer
- t2 = Int(t1 * 1000# + 0.5)
- ' get milli- seconds
-
- time1 = t2
- End Function
- Function time2(t1 As Long) As Double
- Dim t2 As Long
- Dim dt As Double
-
- t2 = time1()
- dt = (t2 - t1) / 1000#
- ' get seconds
-
-
- ' dt must >= 0.0
- If (dt < 0#) Then
- dt = dt + 1# * 24 * 60 * 60
-
- End If
- time2 = dt
- End Function
- Sub test1125()
- Dim no As Long, t1 As Long, t2 As Long, i As Long
- Dim dt As Double, ct As Integer
- Dim sum As Double
-
- no = 100000000
- ct = 5
-
- While (no > 10)
- ct = ct + 1
- t1 = time1()
- sum = 0#
- For i = 1 To no
- sum = sum + i
-
- Next i
- dt = time2(t1)
-
- Cells(ct, 1) = no
- Cells(ct, 2) = sum
- Cells(ct, 3) = dt
-
- no = no / 2
- Wend
-
- MsgBox ("Done! ")
- End Sub
½Æ»s¥N½X ¦^´_ 6# ML089 |
|
¤Ñ¤U¬°¤½
|
|
|
|
|
- ©«¤l
- 145
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 190
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2013-10-18
- ³Ì«áµn¿ý
- 2014-3-29
|
- #if 0
- s1= 1382833070, s2= 778
- s2 < 0, . . .
- s1= 4, s2= 812
- sum= 5.000000E+017
- ½Ð«ö¥ô·NÁäÄ~Äò . . .
- #endif
- // ----------------------------------------------
- #include <stdio.h>
- #include <stdlib.h>
- #include <sys/timeb.h>
- int main(int argc, char *argv[])
- {
- struct timeb now;
- int s1, s2;
-
- ftime(&now);
- s1= now.time;
- s2= now.millitm;
-
- printf("s1= %d, s2= %d \n", s1, s2);
- // system("pause");
- // -------------------------------------------
-
- double sum;
- int no, i;
-
- no= 1000000000;
- sum= 0.0;
- for (i=1;i<=no;i++) {
- sum= sum + i;
- }
-
- ftime(&now);
- s1= now.time - s1;
- s2= now.millitm - s2;
- if (s2 < 0) {
- printf("\n s2 < 0, . . . \n");
- s2+= 1000;
- s1--;
- }
-
- printf("\n s1= %d, s2= %d \n", s1, s2);
- printf(" sum= %.6lE \n", sum);
- system("pause");
-
- return 0;
- }
½Æ»s¥N½X ¦^´_ 1# sjgau |
|
¤Ñ¤U¬°¤½
|
|
|
|
|
- ©«¤l
- 145
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 190
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_¥«
- µù¥U®É¶¡
- 2013-10-18
- ³Ì«áµn¿ý
- 2014-3-29
|
C »y¨¥ µ{¦¡³]p¡A°õ¦æ ¤Q»õÓ ®aªk¹Bºâ¡A
¥u»Ýn 4.8¬íÄÁ |
|
¤Ñ¤U¬°¤½
|
|
|
|
|