Utilice la programación VB para generar instantáneamente números entre 0 y 28~Emergencia
Private Sub Form_click()
x = Int(100 * Rnd())
Si x > 0 y x < 10 entonces
Imprimir (Int(6 * Rnd()))
Fin si
Si x >= 10 y x <35 entonces
Imprimir (Int(4 * Rnd()) + 7)
Finalizar si
Si x >= 35 y x < 70 entonces
Imprimir (Int(9 * Rnd()) + 11)
Fin si
Si x >= 35 y x <70 entonces
Imprimir (Int(9 * Rnd()) + 11)
Fin si
Si x >= 70 y x < 85 entonces
Imprimir (Int(5 * Rnd()) + 20)
Fin si
Si x > = 85 y x < 100 entonces
Imprimir (Int(3 * Rnd()) + 26 )
Fin si
End Sub
Eso es todo, ¡la probabilidad la puedes ajustar tú mismo!
Así es como funciona.