急求vb6.0编写程序题 1.Private Sub command1_click()Dim a As Integer，b As Integera=CInt(InputBox(\"输入一个三位的正整数\"))If a>；=100 And ab=(a Mod 10)*100+(a \\ 10 Mod 10)*10+a \\ 100MsgBox bElseMsgBox\"输入有误！End IfEnd Sub2.Private Sub command1_click()Dim a As Single，b As Singlea=Val(InputBox(\"输入Taxi行驶里程数（公里）\"))Select Case aCase Isb=8Case 5 To 12b=8+(a-5)*1.2Case Elseb=8+(12-5)*1.2+(a-12)*1.5End SelectMsgBox bEnd Sub3.Private Sub command1_click()Dim m As Integer，i As Integer，s As Doublem=CInt(InputBox(\"输入一个小于7的正整数\"))If m>；0 And m<；7 ThenFor i=0 To 9s=s+jc(m+i)NextMsgBox sElseMsgBox\"输入有误！End IfEnd SubFunction jc(n As Integer)As Doublejc=1For i=2 To njc=jc*iNextEnd Function
输出所有的“水仙花数” 水仙花数是指一个 n 位数(n>；=3)，它的每个位上的数字的 n 次幂之和等于它本身.所以n位数的水仙花数就是将其每一位的n次方相加.看是否等于其本身.三位的水仙花数共有4个：。
家装植物该如何布置？ http：// zhuanlan.zhihu.com/p/20 708359教你用花花草草跟那些高大、绮丽的植物搭配到一起，在家里打造一个个植物角，甚至一座森林。2016.3.20一更 列出的前几个也是我本人。
