谁帮忙解个程?不胜言谢

我只学过VBS，vb编程没学过~~
翻译的不好就对不住了~
不过这个也不怎么难
是一个整人程序
Dim x as string //定义一个变量X是字符型
Dim s as integer //定义一个变量S是百分比
Timer1.timer
x=Inputbox("input")//输入东西给X变量
If x="foolish" then //如果输入的是foolish就执行 输出
Print 'xiao qiang is "&x //xiao qiang is foolish
Else //否则执行
x="smart" //x变量为smart
End if //如果结束
Timer1.enabled=Falde //time1.可见为假
Timer2.enabled=True //time2.可见为真
Timer2.timer
If m1.cls //如果m1.cls
End if //结束如果
Else //否则执行
Print "you lose" //输出“you lose”
End if

好像是VB的编程!我学过!忘记了!
下载个VB运行一下咯!