my information
来源:互联网 发布:python .dot 编辑:程序博客网 时间:2024/04/26 07:17
Private Type student
name As String * 2
xuehao As String * 11
sex As Boolean
zhuanye As String * 2
school As String * 4
xueyuan As String * 2
End Type
Private Sub Command1_Click()
Dim z As student
z.name = "张凯"
z.xuehao = "15050341041"
z.sex = "true"
z.zhuanye = "电气"
z.school = "廊坊师范"
z.xueyuan = "物电"
Print z.name; z.school; z.sex; z.xuehao; z.xueyuan; z.zhuanye
Open "d:\11\myinformation.txt" For Output As #1
Print #1, "visual basic6.0", 666.88, Date, True
Print #1, z.name; z.school; z.sex; z.xuehao; z.xueyuan; z.zhuanye
Close #1
End Sub
name As String * 2
xuehao As String * 11
sex As Boolean
zhuanye As String * 2
school As String * 4
xueyuan As String * 2
End Type
Private Sub Command1_Click()
Dim z As student
z.name = "张凯"
z.xuehao = "15050341041"
z.sex = "true"
z.zhuanye = "电气"
z.school = "廊坊师范"
z.xueyuan = "物电"
Print z.name; z.school; z.sex; z.xuehao; z.xueyuan; z.zhuanye
Open "d:\11\myinformation.txt" For Output As #1
Print #1, "visual basic6.0", 666.88, Date, True
Print #1, z.name; z.school; z.sex; z.xuehao; z.xueyuan; z.zhuanye
Close #1
End Sub
0 0
- my information
- I’m lost on my way to Information Security
- information
- MySQL修改my.ini后,出现错误:Incorrect information in file: './xx/xx.frm
- I have released my first ios app appclient in appstore,any questions, pls follow your information
- My
- MY
- MY
- MY
- my
- my
- my
- my
- my
- my
- my
- my
- MY
- ios 在复杂的cell里面定时器会很慢
- 第十二周项目1-实现复数类中的运算符重载(1.3实现复数与实数相加减乘除)
- java string byte之间的转换
- 选择法
- 随机产生一百个数并排序
- my information
- Android应用如何监听自己是否被卸载及卸载反馈功能的实现(第三版)
- 高级排序
- spring boot 下 500 404 错误页面处理
- 完整详解GCD系列(四)dispatch_semaphore(信号量)
- 顺序队列C/C++实现
- android.support.v4.view.NestedScrollingChild cannot be resolved
- android点滴之HandlerThread的用法
- 选择排序法