vb pase de lista aleatorio 1

Crear un nuevo proyecto Un Texto1 Cuadro de texto Un Comando1 Botón Un Temporizador1 El código fuente del temporizador es el siguiente: (VB6.0 Prueba Normal) Opción ExplicitDim bRun As Boolean

Dim strName(1 To 5) As String

Dim iNum As IntegerPrivate Sub Form_Load()

bRun = False

Text1.Text = ""

Command1.Caption = "Iniciar "

Timer1.Enabled = False

Timer1.Interval = 50

strName(1 a 5) como cadena

Dim iNum As Intervalo entero = 50

strName(1) = "ZhangSan"

strName(2) = "LiSi"

strName(3) = "WangWu"

strName(4) ="ZhaoLiu"

strName(5) = "LiuQi"

Fin SubPrivate Sub Command1_Click()Si bRun = False Entonces

bRun = True

Timer1.Enabled = True

Command1.Caption = "Detener"

Else

bRun = False

Timer1.Enabled = False

Command1.Caption = "Inicio"