更新-随机生成运四则运算运算符，有附件求修改！谢谢大家

17613130050

yjh_27 发表于 2021-7-29 10:56
是13L的附件，还是连接中的附件（几楼的，连接附件用最后楼层的附件）

都不是则上传出错附件

还有adrr这是个变量还是关键词？也没有见在过程里声明（设置的是强制声明变量的），还是说是个内置函数？

17613130050

yjh_27 发表于 2021-7-28 22:17
http://club.excelhome.net/thread-1526867-1-1.html

又可以了，关闭一会儿，又打开可以了。这是怎么回事？

yjh_27

17613130050 发表于 2021-7-29 11:07
还有adrr这是个变量还是关键词？也没有见在过程里声明（设置的是强制声明变量的），还是说是个内置函数？

只需模块2
加了注释。自定义函数会用即可

1. Sub aa()
   
2. Dim n As Long, h As Long
   
3. Application.ScreenUpdating = False
   
4. [a2:k20].ClearContents      '清除
   
5. n = 20  '最大数 取数范围
   
6. h = 19  '题行数
   
7. For ci = 0 To 1     '2栏循环
   
8. arr = ArrRnd20(n, h, , 1)   '抽取第1数
   
9. crr = ArrRnd20(n, h, , 1)   '抽取第2数
   
10. brr = ArrRnd20(4, h, , 1)   '抽取运算符
    
11. fu = "+-×÷"
    
12. ReDim scrr(1 To h, 1 To 4)
    
13. For i = 1 To h
    
14.     If brr(i) = 2 And arr(i) < crr(i) Then  '交换1、2数
    
15.         scrr(i, 3) = arr(i)
    
16.         scrr(i, 1) = crr(i)
    
17.     Else
    
18.         scrr(i, 1) = arr(i)
    
19.         scrr(i, 3) = crr(i)
    
20.     End If
    
21.         scrr(i, 2) = Mid(fu, brr(i), 1)
    
22.         scrr(i, 4) = "="
    
23. Next
    
24. Range("a2").Resize(h, 4).Offset(0, ci * 6) = scrr   '输出
    
25. Next ci
    
26. Application.ScreenUpdating = True
    
27. End Sub
    
28. 
    
29. 
    
30. '2
    
31. '**********Copyright@Yjh_27*****2020.3.19***********************
    
32. '功能：    从n个中随机取可重复m个，以一维数组返回
    
33. '函数名：  ArrRnd20
    
34. '
    
35. '参数1：n       元素数
    
36. '参数2：m       抽取数量
    
37. '参数3：n0      元素起始数（最小数）
    
38. '参数4：m0      输出数组下标、元素数组下标
    
39. '
    
40. '返回值：  一维数组
    
41. '使用方法：kclmr = ArrRnd20(5,2)
    
42. '
    
43. Function ArrRnd20(n As Long, m As Long, Optional n0 = 1, Optional m0 = 0)
    
44. 'If n0 <> 0 Then n0 = 1
    
45. n1 = n + n0 - 1
    
46. m1 = m + m0 - 1
    
47. ReDim brr(m0 To m1)
    
48. Randomize
    
49. For i = m0 To m1
    
50.     j = Int(Rnd * (n1 - n0 + 1)) + n0
    
51.     brr(i) = j
    
52. Next
    
53. ArrRnd20 = brr
    
54. End Function
    

复制代码

17613130050

yjh_27 发表于 2021-7-29 11:50
只需模块2
加了注释。自定义函数会用即可

谢谢！！！

tspliu

17613130050 发表于 2021-7-28 14:56
在模块内我试了一下，application.worksheetfunction.randbetween不能用，报错，说子过程或函数未定义

直接在单元格里使用就可以了。

天已破晓

用公式不行吗

zpy2

http://club.excelhome.net/forum.php?mod=viewthread&tid=1580279&fromguid=hot&extra=&mobile=2&_dsign=67faa06d

17613130050

tspliu 发表于 2021-7-29 13:07
直接在单元格里使用就可以了。

也对哈，我怎么没想到