作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ]存取Binary档相关问题!?
时间Tue Sep 23 06:40:13 2008
乱数附加至档案的范例
Public Sub Test()
Dim b(0) As Byte
Randomize Timer
b(0) = Int(Rnd * (90 - 65) + 65)
Open "c:\temp.txt" For Binary As #1
Put #1, LOF(1) + 1, b
Close
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.98.78