74.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

输入／输出篇 

作 者 : 甘冀平
 　 左对齐或者右对齐输出字符

　　 使用Format$函数生成左对齐或者右对齐的字符输出效果：

　　 Format$(123, "@@@@@@") 结果是 " 123" 
　　 Format$(123, "!@@@@@@") 结果是 "123 "

　　 数字输出格式化

　　 使用Format$(value,"0.00"）得到保留2位小数的输出结果，再联合使用“@@@@@”格式，就可以得到右对齐的数字。比如：

　　 Print Format$(Format$(123.45, "0.00"), "@@@@@@@@") 
Print Format$(Format$(3.4, "0.00"), "@@@@@@@@") 
Print Format$(Format$(12345.6, "0.00"), "@@@@@@@@")

　　 上面3条语句将生成如下的输出效果：

      123.45
        3.40
    12345.60
　　 快速读写数组

　　 你可以使用Put和Get命令从文件中快速读写数组，使用这种方法要比一次读写数组的每一项快得多。

    Dim arr(1 To 100000) As Long
    Dim fnum As Integer

        fnum = FreeFile
        Open "C:Tempxxx.dat" For Binary As fnum
        Put #fnum, , arr
        Close fnum