vb 中输入个人信息并保存到文档中
2016-05-26 17:17
483 查看
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 = 19
qizhenhao.prof = "电气"
qizhenhao.grade = 510
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
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 = 19
qizhenhao.prof = "电气"
qizhenhao.grade = 510
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
相关文章推荐
- vb
- vb
- VB 文档删除和改名
- [OpenGL ES 06]使用VBO:顶点缓存
- VB用End退出,不会发生Form_Unload事件
- VB .NET周期实现
- DVB电视机顶盒工作原理
- setvbuf()创建缓冲区函数
- IIS7.5 Microsoft VBScript runtime error '800a0046'的解决
- win10 完美屏蔽Flash右键菜单,内存播放Flash swf 文件(VC、 VB)f_in_box4.4 最新破解版
- VBA 每日文件按日期打包存放
- VBA进度条
- fopen的默认缓冲大小和setvbuf 用法
- AM335x OTG VBUS电路设计的一些注意要点
- Vb.net-DatagridView之右击删除选中行
- VBS ConvertToXlsx
- VBScipt脚本输出
- 【VB.net】DataGridView控件的使用
- VB.net学习笔记(二十二)XML的DOM模型读写
- VB文本框限制输入类型