在线日常英语翻译软件源代码.docx

--SearchGoogle-->

--SearchGoogle-->

FY.vbs源代码如下：

REM程序信息

REM名称：

FY

REM版本：

二、0

REM金海龙

REM性质：

共享

REM功能：

翻译日常英语单词

REM开发语言：

VBScript

REM开发平台：

Windows2000Professional

REM发布日期：

2005年11月

publicpublicnum

publicnum=13512

dimc（13512）,e（13512）

c（0）="avarietyof"

e（0）="许多,各类"

c

（1）="accounting"

e

（1）="财务，会计学"

c

（2）="actor"

e

（2）="演员，男演员"

c（3）="actress"

e（3）="女演员"

c（4）="acrobatic"

e（4）="特技，特级演出的，杂技的"

c（5）="add"

e（5）="vt.加，增加"

Rem以此类推，一直到单词库终止

c（13508）="cartridge"

e（13508）="n.弹药筒，子弹；软片"

c（13509）="SDK"

e（13509）="abbr.SoftwareDevelopmentKit,软件开发工具包"

c（13510）="federal"

e（13510）="adj.联盟的；联邦的"

c（13511）="partnership"

e（13511）="n.伙伴关系，合股"

subendshow（r1,r2,r3）

iftiao2.checked<>truethen

rr.innerHTML=rr.innerHTML+"
结果:

 "+r3+"
"

else

rr.innerHTML=rr.innerHTML+"
你输入的词：

 "+r2+" | 在数据库中找到的词：

 "+r1+"
"+"结果：

"+r3

endif

endsub

subfy（ec,t）

st.innerText="请稍后……"

st.title="Pleasewait……"

title=""

s=""

s1=""

fori=0topublicnum

--forbegin-->

ift="ec"then

s=c（i）

iftiao3.checked<>truethen

s1=lcase（s）

s2=lcase（ec）

endif

iftiao1.checked=falsethen

ifs1=s2then

endshows1,s2,e（i）

endif

else

ifinstr（s1,s2）<>0then

endshows1,s2,e（i）

endif

endif

endif

---->

ift="ce"then

s=e（i）

iftiao3.checked<>truethen

s1=lcase（s）

s2=lcase（ec）

endif

iftiao1.checked=falsethen

ifs1=s2then

endshows1,s2,c（i）

endif

else

ifinstr（s1,s2）<>0then

endshows1,s2,c（i）

endif

endif

endif

--forover-->

next

st.innerTEXT="翻译完毕！

"

st.title="Finished!

PleaseLookattheresult!

"

endsub

subwindow_onload

self.moveto0,0

self.resizetowindow.screen.width,window.screen.height-30

endsub

subdocument_onclick

ifdocument.activeElement.id="t11"then

fyt1.value,"ec"

endif

ifdocument.activeElement.id="t22"then

fyt2.value,"ce"

endif

ifdocument.activeElement.id="clearrr"then

rr.innerHTML=""

st.innerText=""

st.title=""

endif

endsub

setinterval"mymessage",30000

submymessage

MSGBOX"利用那个程序的网站治理员尚未交纳一元人民币的注册费，请尽快交纳利用费。

"

window.open"help.htm#c"

endsub

博客：

技术博客：

论坛：

Google搜索：

电子邮件：

bigengineer@163

共享文档：

相关内容：

我主天§主赐我爱人之心！

我该如何去帮忙天下像我一样的个人创业者！

今天，我要告知大伙儿：

要创业，方式必需正确，要取得方式，就必需广开言路，

通过Google搜索本来能够查到，但重要内容却被封杀了，使大伙儿变成呆子。

若是你想看看发达国家的小孩是怎么日进斗金的，那么就学习新概念：

翻墙、在线代理，

小窍门：

这些新型网络概念，能够在维基百科中查到。

权威教学课件展现

所有课件的下载方式：

课件的名字

Google搜索：

Google搜索：

Google搜索：

Google搜索：

其它章节：

Flash文件代码：

初中各类型化学题第1页.doc

初中各类型化学题第3页.doc

初中化学各章重点2020

初中各章知识要点总结（3）.doc