Si ha aprendido a programar en VB, ayude a explicar la función de este código.
ClsOneDayData
Opción explícita
Pública TheDate As Long
Pública kp As Long
Pública sp As Long
Público hola siempre
Público lo siempre
Público cantidad siempre
Núm público siempre
--------------------------Lo anterior es el departamento de definición de datos
Propiedad del amigo Obtener todas las propiedades() como byte( )
Atenuar PropBag como nuevo PropertyBag
PropBag.WriteProperty "TheDate", TheDate, 0
PropBag.WriteProperty "kp", kp, 0
PropBag.WriteProperty "sp", sp, 0
PropBag.WriteProperty "hi", hola, 0
PropBag.WriteProperty "lo", lo, 0
PropBag.WriteProperty "amt", amt, 0
PropBag.WriteProperty "num", num, 0
TodasProperties = PropBag.Contents
Propiedad final
---------------------------------Lo anterior está escrito por el departamento de datos
p>Propiedad amiga Let AllProperties(value() As Byte)
Atenuar PropBag como nuevo PropertyBag
PropBag.Contents = value()
TheDate = PropBag.ReadProperty("TheDate", 0)
kp = PropBag.ReadProperty("kp", 0)
sp = PropBag.ReadProperty(" sp", 0)
hi = PropBag.ReadProperty("hi", 0)
lo = PropBag.ReadProperty("lo", 0)
amt = PropBag.ReadProperty( "amt", 0)
num = PropBag.ReadProperty("num", 0)
Propiedad final
--- ------ ------------------------Lo anterior es la parte que obtiene los datos
Private Sub Class_Initialize( )
Fin Sub
--------------------------------- -Inicialización, pero
No hace nada
Módulo 2
MdlAlgorithm
Sub público merge_sort(ByRef pp() As Double, h As Double, u As Double)
Dim m As Double
Si h gt; = u Entonces
Salir Sub
Else
m = Int( (h u ) / 2)
merge_sort pp, h, m
merge_sort pp, m 1, u
merge pp, h, m, u
merge_sort pp, m 1, u
merge pp, h, m, u
p>
End If
End Sub
-------------------------- ------------------- Ordenar
Subfusión pública (ByRef pp() como doble, h como doble, m como doble, u como doble)
Atenuar a(1 a 300) como doble
i = h
k = 1
j = m 1
p>
Mientras i lt;= m Y j lt; = u
Si pp(i) lt;= pp(j) Entonces
a(k) = pp (i)
i = i 1
De lo contrario
a(k) = pp(j)
j = j 1
Finalizar si
k = k 1
Wend
Si i gt; m Entonces
Para l = j To u
a(k) = pp(l)
k = k 1
Siguiente l
Else
Para l = i To m
a(k) = pp(l)
k = k 1
Siguiente l
Finalizar si
Para i = h A u
pp(i) = a(i - h 1)
Siguiente i
End Sub
--- ------------------------------------------ -Estadísticas de datos
Módulo 3
Mdldayk
Tipo público TypeDayData
this_date As Long 'Date
kp As Long 'open
hi As Long 'alto
lo As Long 'bajo
sp As Long 'close
e As Long 'Volumen de operaciones
l As Long 'Volumen de operaciones
num1x As Long
num2x As Long
num3x As Long
Tipo de fin
-----------------------------
-------Definiciones y explicaciones de variables
Hermano, parece que no entiendes muy bien VB, no importa
Esto es principalmente para estadísticas de datos Por favor, lee y escribe funciones. ¿Te gusta el comercio de acciones?
Jaja.
Gracias~
.