飛狼實驗室[wp]

參考網址：
https://developer.mozilla.org  陣列的運用

UCAMC JavaScript陣列與物件元素順序重新排序sort()、array 排序、object排序

參考網址：https://blog.gtwang.org/programming/excel-vba-array/

動態陣列

一般的陣列在宣告時就必須決定好陣列的大小，但是有的時候我們無法事先預知程式所需要的陣列大小，要等到實際執行時才會知道需要多少空間，這時候就可以使用動態陣列的方式來儲存資料。

動態陣列（dynamic arrays）的特點就是可以動態改變陣列的大小，在空間不足時可以擴增，而空間太大時也可以縮減，以下是動態陣列的使用方式：

' 宣告動態陣列
Dim MyDynArr() As Integer

' 調整陣列大小
ReDim MyDynArr(3)

MsgBox "LBound = " & LBound(MyDynArr) _
   & ", Ubound = " & UBound(MyDynArr)
MyDynArr(3) = 123

動態陣列的宣告方式就是在宣告陣列時不要指定索引範圍，然後在要使用陣列之前執行 ReDim 設定陣列的大小。

隨後如果需要改變動態陣列的大小，也是同樣呼叫 ReDim 並指定新的陣列大小，而在預設的狀況下使用 ReDim 改病陣列大小時，原本儲存於陣列中的資料會被刪除，如果想要保留舊資料，就要加上 Preserve，如果舊資料不需要保留的話，就可以將 Preserve 省略，這樣執行速度會比較快。

' 調整陣列大小，保留陣列內部資料
ReDim Preserve MyDynArr(10)

MsgBox "LBound = " & LBound(MyDynArr) _
   & ", Ubound = " & UBound(MyDynArr)
MyDynArr(7) = 456

MsgBox MyDynArr(3)
MsgBox MyDynArr(7)

這裡的 LBound 與 UBound 是用來查詢陣列索引下限與上限的函數。

當動態陣列使用完畢之後，我們可以使用 Erase 將系統配置給動態陣列的記憶體收回：

Erase MyDynArr

Erase 若用於一般性的陣列，則會將陣列內的每個元素重新初始化。

參考網址：程式設計者之春

以下程式碼範例示範將文字寫入文字檔案的簡易方法。

Imports System
Imports System.IO

Class Test
    Public Shared Sub Main()
        ' Create an instance of StreamWriter to write text to a file. 
        Dim sw As StreamWriter = New StreamWriter("TestFile.txt")
        ' Add some text to the file.
        sw.Write("This is the ")
        sw.WriteLine("header for the file.")
        sw.WriteLine("-------------------")
        ' Arbitrary objects can also be written to the file.
        sw.Write("The date is: ")
        sw.WriteLine(DateTime.Now)
        sw.Close()
    End Sub
End Class

以下程式碼範例示範從文字檔案讀取文字的簡易方法。

Imports System
Imports System.IO

Class Test
    Public Shared Sub Main()
        Try
            ' Create an instance of StreamReader to read from a file.
            Dim sr As StreamReader = New StreamReader("TestFile.txt")
            Dim line As String
            ' Read and display the lines from the file until the end 
            ' of the file is reached.
            Do
                line = sr.ReadLine()
                Console.WriteLine(Line)
            Loop Until line Is Nothing
            sr.Close()
        Catch E As Exception
            ' Let the user know what went wrong.
            Console.WriteLine("The file could not be read:")
            Console.WriteLine(E.Message)
        End Try
    End Sub
End Class

參考網址：http://www.shulink.com.tw/

參考網址：http://ren1244.pixnet.net/blog/post/313772779-%e9%9b%99%e6%95%97%e6%b7%98%e6%b1%b0%e5%9c%96%e5%bd%a2%e7%94%a2%e7%94%9f%e5%99%a8

※ 儲存的SVG圖檔可以直接給 LibreOffice 使用，MS Office 則要 2016 版之後才支援 SVG 圖片格式。

參考網址：http://www.sport.mlc.edu.tw/docs/multievents/

搜尋關鍵字combined events scoring tables
http://www.sport.mlc.edu.tw/docs/multievents/combinedEventsScoring.htm
http://www.sport.mlc.edu.tw/docs/multievents/
http://www.sport.mlc.edu.tw/docs/multievents/functions.js

IAAF Scoring Tables for Combined Events Tables de Cotation …

USA Track & Field

http://legacy.usatf.org/statistics/calculators/combinedEventsScoring/

參考網址：S小學生

<?php
/**
 * 測試php執行時間
 */
function microtime_float()
{
    list($usec, $sec) = explode(" ", microtime());
    return ((float)$usec + (float)$sec);
}

$time_start = microtime_float();

//休息一下或程式碼放這裡
usleep(100);

$time_end = microtime_float();
$time = $time_end - $time_start;


echo "執行時間".$time.'秒<br />';