[已解决]如何在5个单元格中生成2个随机数（为0.5）

xingguo

见附件。
2个0.5的位置随机，其它为0。

最佳答案

月排行榜 / 总排行榜

雨吧

2016-9-8 19:47

1. Sub YuBa()
   
2.     Dim brr(4, 0) As Single, x1%, x2%
   
3.     Randomize
   
4.     x1 = Int(5 * Rnd)
   
5.     x2 = Int(5 * Rnd)
   
6.     Do While x1 = x2
   
7.         x2 = Int(5 * Rnd)
   
8.     Loop
   
9.     brr(x1, 0) = 0.5
   
10.     brr(x2, 0) = 0.5
    
11.     [a1:a5] = brr
    
12. End Sub

复制代码

a.rar (12.83 KB, 下载次数: 6)

2016-9-8 19:47 上传

点击文件名下载附件

跳转到最佳答案楼层

雨吧

1. Sub YuBa()
   
2.     Dim brr(4, 0) As Single, x1%, x2%
   
3.     Randomize
   
4.     x1 = Int(5 * Rnd)
   
5.     x2 = Int(5 * Rnd)
   
6.     Do While x1 = x2
   
7.         x2 = Int(5 * Rnd)
   
8.     Loop
   
9.     brr(x1, 0) = 0.5
   
10.     brr(x2, 0) = 0.5
    
11.     [a1:a5] = brr
    
12. End Sub

复制代码

a.rar (12.83 KB, 下载次数: 6)

2016-9-8 19:47 上传

点击文件名下载附件

雨吧

1. Sub YuBa()
   
2.     Dim brr(4, 0) As Single, x1%, x2%
   
3.     Randomize
   
4.     x1 = Int(5 * Rnd)
   
5.     Do
   
6.         x2 = Int(5 * Rnd)
   
7.     Loop While x1 = x2
   
8.     brr(x1, 0) = 0.5
   
9.     brr(x2, 0) = 0.5
   
10.     [a1:a5] = brr
    
11. End Sub

复制代码

xingguo

雨吧 发表于 2016-9-8 19:47

谢谢。

xingguo

雨吧 发表于 2016-9-8 19:47

能否帮忙改一下，附件b中实现同样的功能。（所在的位置变了）

雨吧

xingguo 发表于 2016-9-8 21:53
能否帮忙改一下，附件b中实现同样的功能。（所在的位置变了）

b.rar (18.73 KB, 下载次数: 9)

2016-9-9 09:41 上传

点击文件名下载附件