主题：简单功能求助

目的：随机生成N个小数，所有小数和等于1

牛逼！！感谢！！！

大神，有个问题，能排除随机为0的数吗，就是所有随机小数不能出现为0的情况

Dim sum As Decimal = 1 Dim lst As New List (Of Decimal) Dim n As Integer = 10 For i As Integer = 1 To n - 1     Dim d As Decimal = Rand.NextDouble()     Do While sum <= d     if d > 0.1 and d < 0.4 then         d = d / 10     Loop     end if     lst.Add (d)     sum = sum - d Next lst.Add (sum) Output.Show (String.Join (vbcrlf, lst.ToArray)) 大神，这代码加上条件后就直接死机了，求助啊

大神，这个代码写进按钮控件Click事件中报错啊
此主题相关图片如下：df15541e6e06403f6abaef2d1fbfa9b.png

谢谢版主！