Red de conocimiento informático - Conocimiento del nombre de dominio - Estoy buscando urgentemente un proceso de redacción detallado del programa de extracción de números aleatorios de VB. ¡Dadme altas calificaciones! ! ! ! !

Estoy buscando urgentemente un proceso de redacción detallado del programa de extracción de números aleatorios de VB. ¡Dadme altas calificaciones! ! ! ! !

Dim ss$(), ListNum, n, m, l, OpFilename$

Dim Newss$() Sub Savefile(xx As String)

Abrir xx para salida como #1

Imprimir #1, Unir(ss, vbCrLf)

Cerrar #1

Fin Sub

Sub Openfile(xx como cadena)

Atenuar a$, i

Abrir xx para entrada como #1

Hacer hasta EOF(1)

Entrada de línea #1, a

Si a lt;gt; "" Entonces

i = i 1

ReDim Preserve ss(1 To i)

ss(i) = a

Finalizar si

Bucle

Cerrar #1

Si i = 0 Entonces

MsgBox " ¡¡No más datos para extraer!!", 0, "¡¡¡Advertencia!!!"

Salir de Sub

End IfListNum = UBound(ss)

labtip. Caption = "Datos existentes" amp; ListNum amp; "Bar, ¡¡¡puedes comenzar a extraer!!!"

Si i = 0 Entonces

MgBox "¡No más extracción de datos!" p> p>

Comando1.Enabled = False

Comando2.Enabled = Verdadero

Comando3.Enabled = False

End Sub

Private Sub Command1_Click ()

OpFilename = IIf(Option1.Value, "c:\list13.txt", "c:\list15.txt")

Llamar a Openfile( OpFilename)

Fin SubPrivate Sub Command2_Click()

n = Val(Combo1.Text) * 10

Si ListNum - n lt; Entonces

MsgBox "¡¡¡No hay tantos datos!!!" , 0, "¡Advertencia!, 0, "¡¡¡Advertencia!!!"

Salir de Sub

End IfDim i , j

ReDim Newss(1 To n)

List1.Clear

Aleatorio

Para i = 1 To n

j = Int((ListaNum 1 - i) * Rnd 1)

Noticias(i) = ss(j)

ss(j) = ss(ListaNum 1 - i )

ss(NúmLista

1 - i) = ""

List1.AddItem News(i)

Siguiente

ListNum = ListNum - n

Si ListNum = 0 Then ReDim ss(0)

Si ListNum gt; 0 Then ReDim Preserve ss(1 To ListNum) labtip.Caption = "Esta extracción" amp; ; "También" amp; ListNum amp; "¡¡¡El artículo se puede extraer!!!"

Llamar a Savefile(OpFilename)

Command2.Enabled = False

Command3.Enabled = Verdadero