admin 管理员组

文章数量: 1184232


2024年4月30日发(作者：滚动信息代码)

Form1:

Private Sub Form_Load()

Dim temp As Integer

Randomize

temp = Int(Rnd * 3) + 1

e = LoadPicture("C:UsersAdministratorDesktop打地鼠picture"

& temp & ".jpg")

= "C:UsersAdministratorDesktop打地鼠

Heaven's "

End Sub

Private Sub Label1_Click()

= -1

= ""

Open "C:UsersAdministratorDesktop打地鼠" For Append As #1

'写操作

Close #1

Open "C:UsersAdministratorDesktop打地鼠" For Append

As #2

Close #2

Open "C:UsersAdministratorDesktop打地鼠" For Append As

#3

Close #3

End Sub

Private Sub Label2_Click()

End

End Sub

Form2:


本文标签： 滚动 信息 作者 代码

版权声明：本文标题：VB打地鼠游戏 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1714454664a680812.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。