电脑高手请进,遇到vbs代码制作的问题

[复制链接]
查看11 | 回复3 | 2011-7-10 00:45:11 | 显示全部楼层 |阅读模式
代码如下:
Private Sub Form_Load()
Me.Hide
End Sub
Private Sub Timer1_Timer()
'声明变量,其中“count”为静态变量,以便生成不同的文件
Dim files As String
Dim nr As String
Dim c As String
Static count As Long
'定义要把生成的文件存放在那个目录文件下
c = "C:\Program Files\"
'生成文件的内容
nr = "哈哈,被黑的感觉的不错吧"
files = FreeFile
'如果a等于a那么就执行
If a = a Then
'count不断的加1,以便产生不同的文件名
count = count + 1
'产生文件名及文件句柄,并用count作为产生不同的文件名。
Open c & "system" & count & ".dll" For Append As #files
'向文件写内容
Write #files, nr
'清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示
Close #files
End If
End Sub
这其中的
“声明变量,其中“count”为静态变量,以便生成不同的文件”
“定义要把生成的文件存放在那个目录文件下”
“如果a等于a那么就执行”
“产生文件名及文件句柄,并用count作为产生不同的文件名”
“向文件写内容”(怎么写?)
“清除文件句柄,这里很重要,如果不清除,将产生打开文件太多的错误提示”
的语句是什么意思
代码是不是不完整?能否以此为模版举个例子解释一下?

回复

使用道具 举报

千问 | 2011-7-10 00:45:11 | 显示全部楼层
首先 这是VB那些有'
的是注释的部分你如果只是想运行一下这个程序玩玩装个VB6 把代码拷上去 执行就可以了(这个东西真的没什么意思)如果想学的话
好好学吧呵呵...
回复

使用道具 举报

千问 | 2011-7-10 00:45:11 | 显示全部楼层
这些只是注释而已假如你写了一个很大的程序,当你翻回头看的时候,有些比较难懂的语句看不懂了,这会对编程产生很大的困难,这时你就需要注释了注释在代码里不会执行,它的作用就是提示某些语句的用处—_—P比如,“声明变量,其中“count”为静态变量,以便生成不同的文件”这句,就是用来提示“Static count As Long”这句的意思写注释是一...
回复

使用道具 举报

千问 | 2011-7-10 00:45:11 | 显示全部楼层
这是VBS?、还是VB?...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行