a11 = 1
a12 = 2
a13 = 3
a21 = 1
a22 = 2
a23 = 1
a31 = 2
a32 = 1
a33 = 1
 
'  |1 2 3|
'A=|1 2 1|
'  |2 1 1|
 
'|A|=-6
 
MSGBOX determinante(a11,a12,a13,a21,a22,a23,a31,a32,a33 )
 
 
 
Function determinante(ij11,ij12,ij13,ij21,ij22,ij23, ij31, ij32, ij33)
 
 
FC = ij11 * ((ij22 * ij33) - (ij32 * ij23)) +((-1 * ij12) * ((ij21 * ij33) - (ij31 * ij23)) +
 (ij13 * ((ij21 * ij32) - (ij31 * ij22))))
determinante = FC
End Function
 
 

 
 Function DET(ByVal Aux(,) As Double) 
 
For i As Integer = 1 To n 
 
For j = 1 To n 
T(i, j) = Aux(i, j) 
Next 
Next
 deter = 1 
For k As Integer = 1 To n 
If T(k, k) = 0 Then 
j = k If T(k, j)= 0 Then 
If j =n Then 
deter = 0
 End If 
j = j+ 1
 End If
 If T(k, j) <> 0 Then 
For i As Integer = k To n 
temp = T(i, j)
 T(i, j) = T(i, k) 
T(i, k) = temp 
Next i 
deter= -deter
 End If 
End If 
If (k - n) < 0 Then
 k1 = k + 1
 For i As Integer = k1 To n 
For j = k1 To n
 T(i, j) = T(i, j) - (T(i,k) * T(k, j) /T(k, k)) 
Next j 
Next i 
End If
 deter = deter * T(k, k) 
Next k 
DET = deter 
End Function 
 
 

  'llamamos a la funcion MaqEsc() con el texto incluido casi 
'al final esta un numero este indica el tiempo en milisegundos 
'en que iran apareciendo las letras
 
 call MaqEsc("HOLA SOY EL USUARIO .::KSV::. DEL FORO DE ELHACKER.NET",60)
 Function MaqEsc(Striing,tt) 
For i = 1 To Len(Striing) 'Iniciamos un for hasta la ultima letra ,para saber 
X = (Mid(Striing, i, 1)) 'cuantas letras son usamos Len() esto regresa la cantidad de letras 'nos movemos letra x letra con mid(cadenaDeTexto,EmpezandoPor,CantidadDeLetrasAprosesar) 
 
If x= " " then 'Si el caracter que estamos analizando 
wscript.sleep 00 'es espacio se ignora y "aparece de inmediato" 
else 'De lo contrario se espera tt tiempo wscript.sleep tt 'tt = al tiempo q se le asigna en mi caso 60 milisegundos 
End If 
Wscript.StdOut.Write x  'Escribe caracter por caracter tambien se puede usar wscript.echo x
Next 
wscript.sleep 3000 'esperamos 3000 milisegundos osea 3 s. y cerramos 
End function

Set ksv  = CreateObjet('WScript.Shell")
ksv.Exec "%comspec% /c title .::ELHACKER.NET::."
 
WScript.echo "Hola Mundo"
wscript.sleep 3000
 

Set ksv  = CreateObjet('WScript.Shell")
ksv.Exec "%comspec% /c color 0a"
 
WScript.echo "Hola Mundo"
wscript.sleep 3000
 

 ocp = MsgBox ("aleatorio? ",36,".::Kvs::.")  

.WriteLine "12"&x&"3"&x&"45"&x&"678"&x&"9"&x&"0"

 
Function odc()
Randomize
   ksv = Mid(01, Int(Rnd * 2) + 1, 1)
if ksv = 1 then 
odc = ":"
else
odc = "."
end if
end function