26 lines
1.7 KiB
Text
26 lines
1.7 KiB
Text
Dim As String ultimaRevision = "2021-11-12"
|
|
Dim As String elemento(0 to ...) => { _
|
|
"hydrogen", "helium", "lithium", "beryllium", "boron", "carbon", "nitrogen", _
|
|
"oxygen", "fluorine", "neon", "sodium", "magnesium", "aluminum", "silicon", _
|
|
"phosphorous", "sulfur", "chlorine", "argon", "potassium", "calcium", _
|
|
"scandium", "titanium", "vanadium", "chromium", "manganese", "iron", "cobalt", _
|
|
"nickel", "copper", "zinc", "gallium", "germanium", "arsenic", "selenium", _
|
|
"bromine", "krypton", "rubidium", "strontium", "yttrium", "zirconium", _
|
|
"niobium", "molybdenum", "technetium", "ruthenium", "rhodium", "palladium", _
|
|
"silver", "cadmium", "indium", "tin", "antimony", "tellurium", "iodine", _
|
|
"xenon", "cesium", "barium", "lanthanum", "cerium", "praseodymium", _
|
|
"neodymium", "promethium", "samarium", "europium", "gadolinium", "terbium", _
|
|
"dysprosium", "holmium", "erbium", "thulium", "ytterbium", "lutetium", _
|
|
"hafnium", "tantalum", "tungsten", "rhenium", "osmium", "iridium", "platinum", _
|
|
"gold", "mercury", "thallium", "lead", "bismuth", "polonium", "astatine", _
|
|
"radon", "francium", "radium", "actinium", "thorium", "protactinium", _
|
|
"uranium", "neptunium", "plutonium", "americium", "curium", "berkelium", _
|
|
"californium", "einsteinium", "fermium", "mendelevium", "nobelium", _
|
|
"lawrencium", "rutherfordium", "dubnium", "seaborgium", "bohrium", "hassium", _
|
|
"meitnerium", "darmstadtium", "roentgenium", "copernicium", "nihonium", _
|
|
"flerovium", "moscovium", "livermorium", "tennessine", "oganesson"}
|
|
|
|
Print "Last updated : "; ultimaRevision
|
|
Print "Number of elements : "; Ubound(elemento) - Lbound(elemento) + 1
|
|
Print "Last element : "; elemento(Ubound(elemento))
|
|
Sleep
|