51,407
社区成员
发帖
与我相关
我的任务
分享一个小程序 帮我看看好吗
Function unknown ( n )
Dim i , vector , texto
vector - Array , ( “ T ”, “ R ”, “ E ”, “ N ”, “ D ” )
texto = “”
Randomize
For : = 1 To n
texto = texto & Chr ( Int ((Rnd * 9 ) + 30 ))
: = i + 1
texto = texto & vector ( Int (( Rud * 4 ) + 1 ))
Next.
Unknown = texto
End Function
texto的结果是什么，拜托啦
Dim i , vector , texto
vector - Array , ( “ T ”, “ R ”, “ E ”, “ N ”, “ D ” )
texto = “”
Randomize
For : = 1 To n
texto = texto & Chr ( Int ((Rnd * 9 ) + 30 ))
: = i + 1
texto = texto & vector ( Int (( Rud * 4 ) + 1 ))
Next.
Unknown = texto
End Function
texto的结果是什么，拜托啦
...全文
请发表友善的回复…
发表回复
