资源大小: 1.84MB
发布时间: 2012-05-05
文件格式: rar
下载次数: 2
分享到:

下载地址:

下载地址1
(本站为飞网专业下载站,域名:down.cfei.net)

资源简介:

Private Sub banben_Click()Edition.ShowEnd SubPrivate Sub beiz_Click()End SubPrivate Sub Form_Unload(Cancel As Integer)'将combox中的值写进文件Open App.Path & "\sha.dat" For Output As #1Dim i As IntegerFor i = 0 To Sha.ListCount - 1Print #1, Sha.List(i)NextClose #1'Open App.Path & "\pnames.dat" For Output As #1'Dim I As IntegerFor i = 0 To PNames.ListCount - 1Print #1, PNames.List(i)NextClose #1'Open App.Path & "\classv.dat" For Output As #1'Dim I As IntegerFor i = 0 To ClassV.ListCount - 1Print #1, Class


飞网下载站,免费下载共享资料,内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。