我想制作这样的程序，但不会写。

高手、大侠、老师......谁能帮我写一下啊

if len(dir(app.path+"\lk.ps))=0 then
 msgbox ...
 end
end if

open app.path+"\lk.ps" for binary as #1
redim a(43) as byte
get #1,,a
close #1

if a(43)=48 then msgbox... : end

redim a(117) as byte
for i=1 to 118
a(i-1)=rnd*10+48
if i mod 10 =0 then a(i)=13:a(i+1)=10:i=i+2
next
a(43)=stop+48
open app.path+"\lk.ps" for binary as #1
put #1,,a
close #1

好像是这么回事，但我有点看不懂，我突然知道stop是不能当变量的，所以你用了个a，是不是用的数组啊。
redim a(43) as byte ‘a(43)是什么？
if a(43)=48 then msgbox... : end ’怎么回事啊？
redim a(117) as byte ‘晕，a(117)是啥啊？
for i=1 to 118 ‘为什么要从1循环到118呢？
a(i-1)=rnd*10+48 
if i mod 10 =0 then a(i)=13:a(i+1)=10:i=i+2 ‘我晕的很彻底
next 

能解释得通俗点吗？唉！