如何在vb.net中以不同概率在几个值之间进行随机选择？

Question

我正试图生成一个虚拟数据来测试我的报告应用程序。到目前为止，我有这个，

Dim list As List(Of Object) 
    Dim random As System.Random = New System.Random() 
    For i As Integer = 1 To 100 
     Dim obj As New Object 
     If random.Next(0, 3) > 0 Then 
      obj.Country = "China" 
     Else 
      obj.Country = "Japan" 
     End If 
     ... 
     list.add(obj) 
    Next 

这工作很好。不过，我希望能够随机更多的国家，分别说5（China, Japan, South Korea, North Korea, Taiwan）和概率0.4 : 0.3 : 0.1 : 0.1 : 0.1。

我知道我只能扩展上面的If声明，但我真的想要避免混乱的代码，因为目的只是为了生成虚拟数据。

尽管上面的代码可以使用三元运算符进行简化，但是如果我需要在5个值之间随机选择，我该怎么做？除If - Else声明外，是否还有其他选择？

Answer 1

URM，我至今认为最简单的办法是：

Dim list As List(Of Object) 
Dim random As System.Random = New System.Random() 
Dim Countries() As String = {"China", "China", "China", "China", _ 
          "Japan", "Japan", "Japan", _ 
          "South Korea", _ 
          "North Korea", _ 
          "Taiwan"} 

For i As Integer = 1 To 100 
    Dim obj As New Object 
    obj.Country = Countries(random.Next(0, 10)) 
    ... 
    list.add(obj) 
Next