<p>輸入／輸出篇 </p>
<p></p>
<p>作 者 : 甘冀平</p>
<p> 　 左對齊或者右對齊輸出字符</p>
<p></p>
<p>　　 使用Format$函數生成左對齊或者右對齊的字符輸出效果：</p>
<p></p>
<p>　　 Format$(123, "@@@@@@") 結果是 " 123" </p>
<p>　　 Format$(123, "!@@@@@@") 結果是 "123 "</p>
<p></p>
<p>　　 數字輸出格式化</p>
<p></p>
<p>　　 使用Format$(value,"0.00"）得到保留2位小數的輸出結果，再聯合使用“@@@@@”格式，就可以得到右對齊的數字。比如：</p>
<p></p>
<p>　　 Print Format$(Format$(123.45, "0.00"), "@@@@@@@@") </p>
<p>Print Format$(Format$(3.4, "0.00"), "@@@@@@@@") </p>
<p>Print Format$(Format$(12345.6, "0.00"), "@@@@@@@@")</p>
<p></p>
<p>　　 上面3條語句將生成如下的輸出效果：</p>
<p></p>
<p>      123.45</p>
<p>        3.40</p>
<p>    12345.60</p>
<p>　　 快速讀寫數組</p>
<p></p>
<p>　　 你可以使用Put和Get命令從文件中快速讀寫數組，使用這種方法要比一次讀寫數組的每一項快得多。</p>
<p></p>
<p>    Dim arr(1 To 100000) As Long</p>
<p>    Dim fnum As Integer</p>
<p></p>
<p>        fnum = FreeFile</p>
<p>        Open "C:Tempxxx.dat" For Binary As fnum</p>
<p>        Put #fnum, , arr</p>
<p>        Close fnum</p>