个人信息
来源:互联网 发布:mysql 查看临时表空间 编辑:程序博客网 时间:2024/04/28 04:50
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 qiehuimin As student
yuanzhijie.age = 19
yuanzhijie.prof = "电气"
yuanzhijie.grade = 510
Print yuanzhijie.name; yuanzhijie.stuNo; yuanzhijien.sex; yuanzhijie.age; yuanzhijie.prof; yuanzhijie.grade
Open "D:\MyInformation.txt" For Output As #1
Print #1, yuanzhije.name; yuanzhijie.stuNo; yuanzhijei.sex; yuanzhijie.age; yuanzhije.prof; yuanzhijie.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 qiehuimin As student
yuanzhijie.name = "袁志姐
yuanzhijie.stuNo = "1505034****"
yuanzhijie.sex = Trueyuanzhijie.age = 19
yuanzhijie.prof = "电气"
yuanzhijie.grade = 510
Print yuanzhijie.name; yuanzhijie.stuNo; yuanzhijien.sex; yuanzhijie.age; yuanzhijie.prof; yuanzhijie.grade
Open "D:\MyInformation.txt" For Output As #1
Print #1, yuanzhije.name; yuanzhijie.stuNo; yuanzhijei.sex; yuanzhijie.age; yuanzhije.prof; yuanzhijie.grade;
Close #1
End Sub
0 0
- 个人信息:
- 个人信息
- 个人信息
- 个人信息
- 个人信息
- 个人信息
- 个人信息
- 个人信息
- 搞笑个人信息
- 输入个人信息
- 输入个人信息
- 个人信息统计表
- 个人信息表
- 个人信息调查表
- 个人信息调查
- 个人信息的集散地OutLook
- 老鬼的个人信息
- 极力推荐个人信息管理软件
- ubuntu 系统里面原来可以输入中文,突然输入法不能输入中文,但是搜索框内可以输入中文!解决办法
- 教你10行代码写侧滑菜单
- 用junit对java代码进行单元测试时需要注意的问题。
- eclipse中JBoss服务器无法以Debug模式运行
- 南京工业大学校园无线一账号多设备共享上网的方式
- 个人信息
- http web 返回码概念
- 16进制
- spark streaming kafka1.4.1中的低阶api createDirectStream使用总结(转)
- android studio 生成aar包并在其他工程引用 (导入)aar包
- 机器学习算法汇总:人工神经网络、深度学习及其它
- 【HTML/JS】实现iFrame自适应高度,原来很简单!
- JavaScript客户端脚本编程
- php获取文件创建时间、修改时间、访问时间