试用VBScript的循环结构编写下列客户端程序，实现计算以下问题。提示：客户端脚本的基本格式为：
<script language=”vbscript”>
……
</script>
1. S=1/（1*2）+1/（2*3）+1/（3*5）+1/（5*8）+1/（8*13）+…，求前50项的和S。
3. 编程序求出1*3*5*7*…*（2n-1）大于400000的最小值。
4. 编程序找出1～9999之间的全部同构数。所谓同构数是指这样的整数，它恰好出现在其平方数的右边。例如，1和5都是同构数。
