就是觉得奇怪啊。我是用put语句实现的,讲一个二维数组写入二进制文件,指定每个数组元素的位置。比如 for i=0 to 31 for j=0 to 2047 put #f,i*2048+j+1,a(i,j) next j next i
声明数组时,上界不能超过Long数据类型的范围。(-2147483648 2147483647)
你把i定义成integer了吧?改成long
是类型溢出啊put #f,i*Clng(2048)+j+1,a(i,j)
Private Sub Command1_Click() Dim a() As Long Dim i As Long Dim j As Long ReDim a(31, 2047) For i = 0 To 31 For j = 0 To 2047 a(i, j) = i + j Next Next Open "e:\mc\ttt.dat" For Binary As #1 For i = 0 To 31 For j = 0 To 2047 Put #1, i * 2048& + j + 1, a(i, j) Next j Next i Close #1 End Sub
for j=0 to 2047
put #f,i*2048+j+1,a(i,j)
next j
next i
Dim a() As Long
Dim i As Long
Dim j As Long
ReDim a(31, 2047)
For i = 0 To 31
For j = 0 To 2047
a(i, j) = i + j
Next
Next
Open "e:\mc\ttt.dat" For Binary As #1
For i = 0 To 31
For j = 0 To 2047
Put #1, i * 2048& + j + 1, a(i, j)
Next j
Next i
Close #1
End Sub
同意VertyNew(华)-- zyl910公告(2004/8/28) ---------昨天突然打雷下雨
导致计算机突然断电
我那时正在上网今天雨才停
拨号一看
“没有拨号音”我在家里翻箱倒柜
总算找到一个Modem了
可惜是14.4kbps的
上网速度很不爽所以这几天可能不会上网了
(再过几天就开学了)