VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 输入/输出篇
发表评论(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