主题：如何计算任意位数的随机数

 自己扩展一下

Dim num As Double = 369
For Each n As String In cstr(num)
    Dim n1 As Integer = Rand.Next(n)
    Dim n2 As Integer = n - n1
    output.show(n1 & n2)
Next