写一个函数，要求传入一个1到n位数的随机数值，如传入随机数123456789，返回12345金币67银币89铜币，传入随机数1234，返回0金币12银币34铜币。 提示：推荐Int,Rnd,Mid,L

写一个函数，要求传入一个1到n位数的随机数值，如传入随机数123456789，返回12345金币67银币89铜币，传入随机数1234，返回0金币12银币34铜币。

提示：推荐Int,Rnd,Mid,Len这四个函数组合应用。

 

解题思路：

                  先随机一个数，然后铜币取右边2位，银币取右边4-2位，余下的就是金币了金

                  币了

代码：

       

                  Randomize

                  TracePrint  a( Int((99999999 * Rnd) + 1))

 

 

                  Function a(m)

                  If len(m)>4

                  a = left(m,len(m) - 4) & "金币" & left(Right(m, 4), 2) & "银币" & Right(m, 2) & "铜币"

                  ElseIf len(m) <= 2 Then

                  a = "0金币0银币" & Right(m, 2) & "铜币"

                  ElseIf 4 <= len(m) > 2 Then

                  a="0金币"&left(Right(m, 4), 2) &"银币" & Right(m, 2) & "铜币"

 

                  end if

                  End Function

 

 

             1-6级按键认证答案大全下载：

                           

(复制打开→) url7.me/S4Vk1