请问怎么取得随机数？

JmLei

请问怎么取得随机数？
有没有这样的函数(randomize)？

Eagle_wolf

利用c 的函数吧

JmLei

我是初学者，不明白怎么用C 函数。
你可否详细点，或者给一个例子，谢谢！

人世间

1. 
   
2. *                                                                     
   
3. *--------------------------------------                              
   
4. *  Procedure Prototype                                                
   
5. *--------------------------------------                              
   
6. DCEERAN0          PR                                                   
   
7. D  Seed                         10I 0                                 
   
8. D  RandomNumber                  8F                                    
   
9. D  Feedback                     12A   Options(*Omit)                  
   
10. *                                                                     
    
11. *--------------------------------------                              
    
12. *  API Parameters                                                     
    
13. *--------------------------------------                              
    
14. DSeed             S             10I 0 Inz(0)                           
    
15. DRandomNumber     S              8F                                    
    
16. DRandom           S              1  0                                 
    
17. *                                                                     
    
18. C                   Callp     CEERAN0(Seed: RandomNumber: *Omit)      
    
19. *                                                                     
    
20. C                   Eval      Random = RandomNumber * 10               
    
21. *                                                                     
    
22. C                   dsply                   Random                     
    
23. C*                                                                     
    
24. C                   Return                                             
    

复制代码

rpg中取10以下的随机数的程序。