发表评论(0)作者：不详, 平台：VB6.0+Win98, 阅读：14494, 日期：2000-10-21

输入／输出篇

作 者 : 甘冀平




　　 原文出处：http://www.vb-helper.com/tips4.htm

　　 左对齐或者右对齐输出字符

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