你可能感兴趣的试题
Private Sub Command1_Click() Dim B As Books Open "Person. txt" For Output As #1 B. Name = InputBox( "输入姓名" ) B. TelNum = InputBox( "输入电话号码" ) Write #1, B. Name, B. TelNum Close #1 End Sub Private Sub Command1_Click() Dim B As Books Open "Person. txt" For Input As #1 B. Name = InputBox( "输入姓名" ) B. TelNum = InputBox( "输入电话号码" ) Print #1, B. Name, B. TelNum
Sub Command1_click()
Dimstudent As Stutype
With student
.ino=12
.strname=smith
.strsex=男
.smark=89
End With
End Sub Sub Command1_Click()
Dim student As Stutype
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
End Sub Sub Command1_Click()
Dim student As Stutype
With Stutype
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
End Sub Sub Command1_click()
Dim student As Stutype
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End student
End Sub
Sub Commandl_Click0 Dim student As Stutype With student .ino = 12 . strname = smith .strsex = .smark = 89 End With End Sub Sub Commandl_Click0 Dim student As Stutype With student .ino = 12 .strname = "smith" .strscx = "男" .smark = 89 End With End Sub Sub Commandl_Click0 Dim student As Stutype With Stutype ino = 12 .strname = "smith" .strsex = "男" .smark = 89 End With End Sub Sub Command1 _Click() Dim student As Stutype With student .ino = 12 .strname = "smith" .strsex = "男" .smark = 89 End student End Sub
Private Sub Command1_Click() Dim B As Books Open"c:/Person.txt"For Input As#1 Name=InputBox("输入姓名") TelNum=InputBox("输入电话号码") Print#1.Name.TeINum Close#1 End Sub Private Sub Command1_Click() Dim B As Books Open"c:/Person.txt"For Output As#1 B.Name=InputBox("输入姓名") B.TelNum=InputBox("输入电话号码") Write #1,B
Sub Command1_Click()
Dim student As Stutype
With student
.ino=12
.Strname=smith
.strsex=男
.smark=89
End With
End Sub Sub Command1_Click()
Dim Student As Stutype
With student
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
End Sub Sub Comnland1_Click()
Dim student As Stutype
With Stutype
.ino=12
.strname="smith"
.strsex="男"
.smark=89
End With
End Sub Sub Command1_Click()
Dim student As Stutype
With student
.ino=12
.Strname="smith"
.strsex="男"
.smark=89
End student
End Sub
Private Sub Command1_Click() Dim B As Books Open "c: /Person. txt" For Output As #1 B. Name = InputBox( "输入姓名" ) B. TelNum = InputBox( "输入电话号码" ) Write #1, B. Name, B. TelNum Close #1 End Sub Private Sub Command1_Click() Dim B As Books Open "c: /Person. txt" For Input As #1 B. Name = InputBox( "输入姓名" ) B. TelNum = InputBox( "输入电话号码" ) Print #1, B. Name, B. TelNum
Type(3) +c1； cl+Type(3) ； 3-cl； c1-3；
Type（3）+c1； cl+Type（3）； 3-cl； c1-3；
Sub Command1_click() Dimstudent As Stutype With student .ino=12 .strname=smith .strsex=男 .smark=89 End With End Sub Sub Command1_Click() Dim student As Stutype With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With End Sub Sub Command1_Click() Dim student As Stutype With Stutype .ino=12 .strname="smith" .strsex="男" .smark=89 End With End Sub Sub Command1_click() Dim student As Stutype With student .ino=12 .strname="smith" .strsex="男" .smark=89 End student End Sub
Sub Command1_C1ick() Dim student As studtype Dim record_no As Integer record_no=1 With student .ino=12 .strname="smith" .strsex="男" .smark=89 End With Open" c:/student.dat" For input As # 1 len=len(student) Put # 1,record_no,student Close #1 End Sub
struct是结构体类型的关键字 structstu是用户定义的结构体类型 stutype是用户定义的结构体类型名 a和b都是结构体成员名
湘公网安备 43130202000226号