¤@»õ­Ó ¥[ªk¹Bºâ¡A¤j·§»Ý­n 8.9 ¬íÄÁ

sjgau

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¥H­pºâ¨ì 10^ +308 ¥ª¥k
   
    ' MsgBox "«ö¤U½T©w«ö¶s«á¶}©l­p®É"
    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

sjgau

1. Function time1() As Long
   
2.    Dim t1 As Double
   
3.    Dim t2 As Long
   
4.    
   
5.    t1 = Timer
   
6.    t2 = Int(t1 * 1000# + 0.5)
   
7.    ' get milli- seconds
   
8.    
   
9.    time1 = t2
   
10. End Function
    
11. 
    
12. 
    
13. Function time2(t1 As Long) As Double
    
14.    Dim t2 As Long
    
15.    Dim dt As Double
    
16.    
    
17.    t2 = time1()
    
18.    dt = (t2 - t1) / 1000#
    
19.    ' get seconds
    
20.    
    
21.    
    
22.    ' dt must >= 0.0
    
23.    If (dt < 0#) Then
    
24.       dt = dt + 1# * 24 * 60 * 60
    
25.       
    
26.    End If
    
27.    time2 = dt
    
28. End Function
    
29. 
    
30. 
    
31. Sub test1125()
    
32.    Dim no As Long, t1 As Long, t2 As Long, i As Long
    
33.    Dim dt As Double, ct As Integer
    
34.    Dim sum As Double
    
35.    
    
36.    no = 100000000
    
37.    ct = 5
    
38.    
    
39.    While (no > 10)
    
40.       ct = ct + 1
    
41.       t1 = time1()
    
42.          sum = 0#
    
43.          For i = 1 To no
    
44.             sum = sum + i
    
45.             
    
46.          Next i
    
47.       dt = time2(t1)
    
48.       
    
49.       Cells(ct, 1) = no
    
50.       Cells(ct, 2) = sum
    
51.       Cells(ct, 3) = dt
    
52.       
    
53.       no = no / 2
    
54.    Wend
    
55.    
    
56.    MsgBox ("Done! ")
    
57. End Sub

½Æ»s¥N½X

¦^´_ 6# ML089

sjgau

1. #if 0
   
2. 
   
3. s1= 1382833070, s2= 778
   
4. 
   
5. s2 < 0, . . .
   
6. 
   
7. s1= 4, s2= 812
   
8. sum= 5.000000E+017
   
9. ½Ð«ö¥ô·NÁäÄ~Äò . . .
   
10. 
    
11. #endif
    
12. // ----------------------------------------------
    
13. 
    
14. #include <stdio.h>
    
15. #include <stdlib.h>
    
16. #include <sys/timeb.h>
    
17. 
    
18. int main(int argc, char *argv[])
    
19. {
    
20.    struct timeb now;
    
21.    int s1, s2;
    
22.    
    
23.    ftime(&now);
    
24.    s1= now.time;
    
25.    s2= now.millitm;
    
26.    
    
27.    printf("s1= %d, s2= %d \n", s1, s2);
    
28.    // system("pause");
    
29.    // -------------------------------------------
    
30.    
    
31.    double sum;
    
32.    int no, i;
    
33.    
    
34.    no= 1000000000;
    
35.    sum= 0.0;
    
36.    for (i=1;i<=no;i++) {
    
37.        sum= sum + i;
    
38.    }
    
39.    
    
40.    ftime(&now);
    
41.    s1= now.time - s1;
    
42.    s2= now.millitm - s2;
    
43.    if (s2 < 0) {
    
44.       printf("\n s2 < 0, . . . \n");
    
45.       s2+= 1000;
    
46.       s1--;
    
47.    }
    
48.    
    
49.    printf("\n s1= %d, s2= %d \n", s1, s2);
    
50.    printf(" sum= %.6lE \n", sum);
    
51.    system("pause");
    
52.    
    
53.    return 0;
    
54. }

½Æ»s¥N½X

¦^´_ 1# sjgau

sjgau

C »y¨¥ µ{¦¡³]­p¡A°õ¦æ ¤Q»õ­Ó ®aªk¹Bºâ¡A
¥u»Ý­n 4.8¬íÄÁ

sjgau

§Ú¥»¨Ó¥H¬° Excel VBA ¬Ointerpreter,
§Úµo²{ §Ú¿ù¤F

¥L À³¸Ó¬O compiler