Visual Basic - Variable aleatoria dentro de un Msgbox Ayuda!!

Life is soft - evento anual de software empresarial
   
Vista:

Variable aleatoria dentro de un Msgbox Ayuda!!

Publicado por Victor (1 intervención) el 30/10/2015 23:56:47
Quiero que en el msgbox arroje aleatoriamente una de las preguntas que estoy haciendo mal?

les dejo el codigo simple

Sub ejemplo2()


P1 = "Pregunta1"
P2 = "Pregunta2"
P3 = "Pregunta3"

MsgBox ("P" & (Int((3 * Rnd()) + 1)))



End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Variable aleatoria dentro de un Msgbox Ayuda!!

Publicado por Marcelo (225 intervenciones) el 03/11/2015 05:59:31
Hola Víctor,
A mi parecer creo que te resultaría más sencillo utilizar una matriz para almacenar tus preguntas. Puedes acceder las mismas usando un índice.

El índice puede ser un número entre 0 y la cantidad máxima de elementos dentro de la matriz.

Genera un numero aleatorio dentro de este rango (0 y la cantidad máxima de elementos) para acceder a una pregunta dentro de la matriz…

Examina el siguiente código para tener una mejor idea.
Espero que te sea de ayuda…

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'agrega un botón a tu formulario y asocia este manejador de evento.
Private Sub Command1_Click()
 
Dim Pregunta(2) As String
Pregunta(0) = "Pregunta 1"
Pregunta(1) = "Pregunta 2"
Pregunta(2) = "Pregunta 3"
 
'Variable para el número aleatorio
Dim i As Integer
i = Me.NumeroAleatorio(LBound(Pregunta), UBound(Pregunta))
MsgBox Pregunta(i)
 
End Sub
 
'Funcion para generar un número aleatorio dentro de un rango
Public Function NumeroAleatorio(ByVal ValorMinimo As Long, ByVal ValorMaximo)
    Randomize Timer
    NumeroAleatorio = Int((ValorMaximo - ValorMinimo + 1) * Rnd) + ValorMinimo
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar