求VB6代码翻译成火山PC代码
本帖最后由 Rongxian 于 2020-10-28 19:02 编辑Private Type stu
num As Long
age As Integer
sex As String
End Type
Private Sub Command1_Click()
Dim a() As stu
For i = 0 To 5
ReDim Preserve a(i)
With a(i)
.age = 12
.num = i + 1
.sex = "男"
End With
Next i
Open App.Path & "\t.txt" For Random As #1
For i = 0 To 5
Put #1, , a(i)
Next i
Close #1
End Sub
Private Sub Command2_Click()
Dim b As stu
Open App.Path & "\t.txt" For Random As #1
Get #1, Val(Text1.Text), b
Close #1
MsgBox b.age
End Sub
页:
[1]