Visual BASIC'te %80 ihtimalle 15‑20, %15 ihtimalle 5‑14 ve %5 ihtimalle 1‑4 aralığında rastgele sayı üretmek istiyorum. Bunu nasıl kodlayabilirim?

• 0‑399 arası bir sayı üret • 0‑19 ise sonucu 5’e böl ve aşağı yuvarla → 1‑4 aralığı • 20‑119 ise 20‑119 arasından 5‑14 aralığını seç • 120‑399 ise 15‑20 aralığını döndür Dim r As New Random() Dim y = r.Next(0,400) Select Case y Case <20: Return y 5 Case <120: Return r.Next(5,15) Case Else: Return r.Next(15,21) End Select

Random nesnesi oluştur, 1‑20 arasında sayı al. Eğer 1 ise 1‑4, 2‑4 ise 5‑14, diğerlerinde 15‑20 döndür. Örnek: Dim r As New Random() Dim x = r.Next(1,21) Select Case x Case 1: Return r.Next(1,5) Case 2 To 4: Return r.Next(5,15) Case Else: Return r.Next(15,21) End Select