Valeurs aléatoires dans Visual Basic Express 2010 totalisant 100

Question

J'essaie d'écrire un morceau de code dans Visual Basic 2010 express qui génère 4 valeurs aléatoires différentes qui totalisent 100 et favorisent l'une des valeurs en termes de réels valeur numérique, je sais comment je vais faire une certaine valeur être favorisée en termes de valeur mais je ne suis pas sûr d'avoir toutes les valeurs aléatoires ajouter jusqu'à 100, quelqu'un pourrait-il fournir un code brut ou sudo pour moi de travailler de s'il vous plaît?

Answer 1

La forme canonique est:

• Generate 4 valeurs aléatoires (r1, r2, r3, r4) - vous pourriez les mettre en un tableau ou quatre variables.
• Calculer 100/(r1+r2+r3+r4)
• Multiplier chacun de vos 4 valeurs par ce nombre

Si vous avez besoin des entiers, il y a une chance que l'arrondi causera vos numéros pour ajouter à quelque chose pas exactement 100. Dans ce cas, , choisissez un autre entier aléatoire entre 1..4, appelez ce n, et ajoutez ou soustrayez de r (n) pour que le total totalise exactement 100.

Answer 2

Générez 3 nombres aléatoires de 0 à votre limite (100) , mais chaque fois que le nombre aléatoire est généré, soustrayez-le de votre limite. Le numéro 4 sera la valeur restante de la limite et ce numéro 4 ajoutera jusqu'à 100.

Module Module1 
    Sub Main() 
     Dim limit As Integer = 100 
     Dim rand As New Random 

     ' Generate three random numbers 
     For i As Integer = 1 To 3 
      Dim newNumber = rand.Next(0, limit) 

      ' Set your new limit by subtracting the random number 
      limit = limit - newNumber 
      Console.WriteLine(newNumber) 
     Next 
     ' The 4th number will be whatever is left in limit 
     Console.WriteLine(limit) 
     Console.ReadLine() 
    End Sub 
End Module 

Résultats: