74.htm

来自「vb功能实例介绍。详细、很好的实例说明。」· HTM 代码 · 共 35 行

<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>