Ver Mensaje Individual
  #6 (permalink)  
Antiguo 05/12/2011, 17:18
Avatar de erbuson
erbuson
 
Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 15 años, 1 mes
Puntos: 53
Respuesta: Crear Array con Strings y que devuelva uno de los valores en random

Se me ocurre, que lo mejor es que te explique como va lo de los número aleatorios porque veo que no lo tienes nada claro.

La funcion Rnd(1) devuelve el siguiente numero en una secuencia aleatoria
La funcion Randomize lo que hace es inicializar esta secuencia por loq eu no devuelve ningun resultado.

Rnd(1) te devuelve un numero decimal siempre menor de 1.

Para consegur un numero aleatorio entre 0 y 6 debe multiplicarse el valor aleatorio por 7 y tomar el entero ya que la parte entera al ser el multiplicador menor de 1 siempre estará entre 0 y 6

Esta es la solución a tu problema:

Código vb:
Ver original
  1. Dim A(0 To 6) As String
  2.   Dim R As Long
  3.   A(0) = "8.00"
  4.   A(1) = "8.20"
  5.   A(2) = "8.40"
  6.   A(3) = "9.00"
  7.   A(4) = "9.20"
  8.   A(5) = "9.40"
  9.   A(6) = "10.00"
  10.   Randomize  'Inicializa el generador de semillas aleatorias
  11.  R = Int(Rnd(1) * 7)
  12.  
  13.   Range("K2").Value = A(R)    'R será el índice de la matriz

Saludos
__________________
Agradecer a quien te enseñó, es enseñar lo que de él aprendiste.
Recuerda: Decir gracias, poco cuesta y mucho vale ...