VB中输入个人信息并保存成文档形式

Private Type student

name As String * 3

stuNo As String * 11

sex As Boolean

age As Byte

prof As String * 2

grade As Single

End Type

Private Sub Command1_Click()

Dim qizhenhao As student

qizhenhao.name = "郑明雨"

qizhenhao.stuNo = "1505034****"

qizhenhao.sex = True

qizhenhao.age = 20

qizhenhao.prof = "电气"

qizhenhao.grade = 410

Print qizhenhao.name; qizhenhao.stuNo; qizhenhao.sex; qizhenhao.age; qizhenhao.prof; qizhenhao.grade

Open "D:\MyInformation.txt" For Output As #1

Print #1, qizhenhao.name; qizhenhao.stuNo; qizhenhao.sex; qizhenhao.age; qizhenhao.prof; qizhenhao.grade;

Close #1

End Sub