麻烦大家看看 ！ 急！

mengchuang

先下代码看看



重点：怎么才能把一千多道题快速的弄上去，不用我的代码也行，或 帮我做个类似的程序。



次要：还有怎么 取不重复随机数

微凉

楼主真是够2的-.-

微凉

楼主,你的文档有某正规点的-.-很不规则,很难搞

微凉

1. .版本 2
   
2. 
   
3. .局部变量 a, 文本型
   
4. .局部变量 n, 整数型
   
5. .局部变量 前数, 整数型
   
6. .局部变量 后数, 整数型
   
7. .局部变量 文本, 文本型, , "0"
   
8. 
   
9. a ＝ 读入文本 (打开文件 (“1.txt”, , ), )
   
10. .计次循环首 (800, n)
    
11. 前数 ＝ n
    
12. 后数 ＝ n ＋ 1
    
13. 加入成员 (文本, 文本_取中间 (a, 到文本 (前数), 到文本 (后数)))
    
14. .计次循环尾 ()
    
15. 暂停 ()
    
16. 
    
17. .子程序 文本_取中间, 文本型, 公开
    
18. .参数 文本, 文本型
    
19. .参数 前面文本, 文本型
    
20. .参数 后面文本, 文本型
    
21. .参数 是否区分大小写, 逻辑型, 可空, 注明：是否区分大小写。
    
22. .参数 文本长度大于此数的不要, 整数型, 可空, 注明：文本长度大于此数的不要;如取出的文本大于50的不要;留空为不限制。
    
23. .局部变量 内容, 文本型
    
24. .局部变量 取出结果, 整数型
    
25. .局部变量 第一个位置, 整数型
    
26. .局部变量 第二个位置, 整数型
    
27. .局部变量 返回文本, 文本型
    
28. 
    
29. 内容 ＝ 文本
    
30. 
    
31. 第一个位置 ＝ 寻找文本 (内容, 前面文本, , 是否区分大小写)
    
32. 第二个位置 ＝ 寻找文本 (内容, 后面文本, , 是否区分大小写)
    
33. 取出结果 ＝ 第二个位置 － 第一个位置
    
34. 返回文本 ＝ 取文本中间 (内容, 第一个位置, 取出结果)
    
35. 
    
36. .如果真 (文本长度大于此数的不要 ≠ 0)
    
37. .如果真 (取文本长度 (返回文本) ≤ 文本长度大于此数的不要)
    
38. 返回 (“超过获取的文本长度 获取失败”)
    
39. .如果真结束
    
40. 
    
41. .如果真结束
    
42. 
    
43. 
    
44. 返回 (返回文本)
    
45. 
    
46. 
    
47. 
    
48. 
    
49. 
    

复制代码

帮不了你了,你的文本乱得没办法了........

易新新

1. .版本 2
   
2. 
   
3. 置随机数种子 ()
   
4. 取得成功 ＝ 假
   
5. .判断循环首 (取得成功 ＝ 假)
   
6. 置随机数种子 ()
   
7. i ＝ 取整 (取随机数 (1, 52))
   
8. .如果 (临时数组 [i] ≠ i)
   
9. 临时数组 [i] ＝ i
   
10. 取得成功 ＝ 真
    
11. .否则
    
12. 取得成功 ＝ 假
    
13. .如果结束
    
14. 
    
15. .判断循环尾 ()
    

复制代码

哇咔

好乱不知道你说撒