Private Sub Form_Unload(Cancel As Integer) '关闭窗体事件
Open "out3.txt" For Output As #1 '打开程序目录中的out3.txt文档，如果没有这个文件就自动创建
Print #1, Op1.Value, Op2.Value, Op3.Value, Op4.Value, Text1.Text '将四个Option控件的Value值和Text1.Text值写入到out3.txt文档中
Close #1 '关闭out3.txt文档
End Sub '过程结束
私人次级Form_Unload为整数(取消)
“开放”out3.txt输出为1号
打印# 1、《凤凰社》第1章。价值,《凤凰社》第2章。价值、Op3。价值、op第四章。Text1.Text价值,
关闭1号
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024