vb do exam system, cómo seleccionar aleatoriamente un conjunto de preguntas de operación de texto de una carpeta para el examen y guardar las respuestas, por favor ayuda.

Función de declaración pública ShellExecute Lib "shell32.dll" Alias ​​​​"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Función OpenURL(ByVal url como cadena)

Dim lngReturn As Long

lngReturn = ShellExecute(0, "open", url, "", Mid(URL , 1 , InStrRev(url, "\") - 1), 1)

Función final

El código anterior es para extraer aleatoriamente un archivo

El El siguiente código es Guarde la respuesta. Agregue un control CommonDialog y un cuadro de texto Texto1

Defina una variable global en la parte superior del código

Dim SaveFileName As String 'Se usa para guardar el nombre. del primer archivo guardado

Private Sub Command1_Click() 'El proceso de guardar un archivo

dim sFile As String

'Si SaveFileName está vacío, significa que no hay ningún guardado actual. Si hay Guardar, entonces estará el primer nombre de archivo guardado en SaveFileName

Si SaveFileName está vacío, estará el primer nombre de archivo guardado

. Si SaveFileName está vacío, indica que no hay ningún guardado actual. p>

si SaveFileName="" entonces

CommonDialog1.DialogTitle = "Guardar archivo"

CommonDialog1.Filter = "Archivo de texto|*.txt"

CommonDialog1.Action = 2