Option Explicit
Type GG1
i As Integer
G As String
k As Double
End Type
Type GG2
i As Integer
w(20) As String
End Type
Sub TTT()
Dim GG1 As GG1
Dim GG2 As GG2
Dim GG_1 As GG1
Dim GG_2 As GG2
GG1.i = 1
GG1.G = "S1"
GG2.i = 2
GG2.w(0) = "S1"
GG2.w(1) = "S2"
Open "D:\t1" For Random As #1
Put #1, , GG1
Put #1, , GG2
Close (1)
Open "D:\t1" For Binary As #1
Get #1, , GG_1
Get #1, , GG_2
Close (1)
End Sub
小弟尝写入GG1 GG2 两种type 再去读取 但是读出来后 GG_1 有值 但是GG_2 却没有
请问get 不能这样使用吗?