La unidad está organizando un concurso de conocimientos y ha utilizado ppt2010 para crear un software de extracción de preguntas, pero siempre hay preguntas que se extraen repetidamente. Me gustaría pedir consejo:

Prueba esto, debería funcionar

Private Sub CommandButton1_Click()

flag = False

Dim q As Integer

Do While flag = False

q = Fix(Rnd * 300 1) 'Usa la función aleatoria

para extraer el marco.Text = q

DoEvents

Bucle

End Sub

Box_Change de extracción de sub privado()

End Sub

Privado Sub Start_Click()

flag = True

Cuadro de extracción.Text = ""

Estático n como entero

n = n 1

If n gt; 300 Then

MsgBox ("Las preguntas han sido dibujadas")

Salir de Sub

End If

Do

x = Int((300 - 1 1) * Rnd 1)

j = True

Para i = 1 To n - 1

Si x = a(i) Entonces j = Falso: Salir para

Siguiente i

Bucle hasta j

a (n) = x

Cuadro de extracción.Text = a(n)

End Sub

Private Sub abre la pregunta extraída_Click()

ActivePresentation.SlideShowWindow.View.GotoSlide Val(Cuadro de extracción.Texto 1)

End Sub