@Echo Off & Title Java Runtime Version Checker By Elektro
(Chcp 1252)1>NUL & :: Spanish Latin ISO.
 
:: Registry Settings.
Set "Registry.Root=HKEY_LOCAL_MACHINE"
Set "Registry.Key=SOFTWARE\JavaSoft\Java Runtime Environment"
Set "Registry.Value.CurrentVersion=CurrentVersion"
Set "Registry.Value.FamilyVersion=FamilyVersion"
Set "Registry.Value.BrowserVersion=BrowserJavaVersion"
 
:: String Variables to store results.
Set "Java.CurrentVersion="
Set "Java.FamilyVersion="
Set "Java.BrowserVersion="
 
:: Change working directory.
PUSHD "%SystemRoot%\System32"
 
:: Iterate the Java registry subkeys.
For /F "Tokens=1,2,*" %%a In (
	'.\Reg.exe "Query" "%Registry.Root%\%Registry.Key%" /T "REG_SZ"'
) Do (
	(
		(	:: Retrieve the Java Runtime Version.
			Echo "%%a" | Find /I "%Registry.Value.CurrentVersion%"
		) && (
			Set "Java.CurrentVersion=%%c"
		)
 
		(	:: Retrieve the Java Runtime Family Version.
			Echo "%%a" | Find /I "%Registry.Value.FamilyVersion%"
		) && (
			Set "Java.FamilyVersion=%%c"
		)
 
		(	:: Retrieve the Java Runtime Family Version.
			Echo "%%a" | Find /I "%Registry.Value.BrowserVersion%"
		) && (
			Set "Java.BrowserVersion=%%c"
		)
	)1>Nul
)
 
:: Print Info.
Echo.Java Runtime Current Version: %Java.CurrentVersion%
Echo.Java Runtime Family  Version: %Java.FamilyVersion%
Echo.Java Runtime Browser Version: %Java.BrowserVersion%
 
:: Terminate execution.
POPD & :: Restore working directory.
Pause&Exit /B 0

Java Runtime Current Version: 1.7
Java Runtime Family  Version: 1.7.0_51
Java Runtime Browser Version: 10.51.2
Presione una tecla para continuar . . .

Dim alumnos(3, 3) As Integer
 
'' aqui se van agregando los valores
For iOuter As Integer = alumnos.GetLowerBound(0) To alumnos.GetUpperBound(0)
 
    For iInner As Integer = alumnos.GetLowerBound(1) To alumnos.GetUpperBound(1)
        alumnos(iOuter, iInner) = (iOuter + 1) * (iInner + 1)
    Next iInner
 
Next iOuter
 
 
'' aqui se van listando los valores
Dim sb As New System.Text.StringBuilder
 
For iOuter As Integer = alumnos.GetLowerBound(0) To alumnos.GetUpperBound(0)
 
    sb.AppendFormat("Alumno {0}: ", CStr(iOuter))
 
    For iInner As Integer = alumnos.GetLowerBound(1) To alumnos.GetUpperBound(1)
        sb.AppendFormat(" {0} ", CStr(alumnos(iOuter, iInner)))
    Next iInner
 
    sb.AppendLine()
 
Next iOuter
 
With ListBox1
    .SuspendLayout()
    .Items.AddRange(sb.ToString.Split(Environment.NewLine))
    .ResumeLayout()
End With
 
sb.Clear()