在窗体上有一个命令按钮，然后编写如下程序：
　Function Trans(ByVal num As Long) As Long
　　　Dim k As Long
　　　k=l
　　　Do While num
　　　　　　k=k * (num Mod 10)
　　　　　num=num\10
　　　Loop
　　　Trans=k
　　　Print Trans
　End Function
　Private Sub Commandl_Click( )
　　　Dim m As Long
　　　Dim s As Long
　　　m=InputBox("请输入一个数")
　　　s=Trans(m)
　End Sub
　　程序运行时，单击命令按钮，在输入对话框中输入“789”，输出结果为 【11】 ，在输入对
话框中输入“987”输出 【12】 ，在输入对话框中输入“879”，输出结果为 【13】 。

读下列材料，完成下列问题。

    2001年，国务院批复《塔里木河流域近期综合治理规划报告》，下面是一些具体做法：

    上游：实施老灌区节水防渗改造，并在源流上建若干个山区水库。

    中游：修建近800千米的堤防，以减少每年因决口而浪费的lO多亿立方米的河水。

    下游：跨流域调水，主要是由博斯腾湖向塔里木河下游的绿色走廊输水。2002年，塔里木河实施了全流域水资源的统一调度和管理，2003年塔里木河干流开始征收水费。

（1）该区域发展经济的主要制约性因素是_______________。

（2）塔里木河流域开发的有利自然条件有哪些？

___________________________________________________________________________________________

（3）塔里木河流域开发利用中存在的主要生态问题有哪些？

___________________________________________________________________________________________

（4）简述对塔里木河流域进行综合开发的措施。

 ___________________________________________________________________________________________