相关代码 |
|
function saveword(w1,w2,w3,w4,w5)
Application.Lock
oldsay=Application("zzbird_words")
line=Application("zzbird_line")
Application("zzbird_line")=line+1
dim newsay(240)
for i=1 to 234
newsay(i)=oldsay(i+6)
next
newsay(235)=line+1
newsay(236)=w1
newsay(237)=w2
newsay(238)=w3
newsay(239)=w4
newsay(240)=w5
Application("zzbird_words")=newsay
Application.UnLock
end function
%>
相关资源 |
|