Parece mentira que aún sigamos así...
Deberían haber desaparecido hace años. Resultan inútiles y estafadores en su mayoría.

Es curiosísimo que el propio gobierno haga el mismo uso inapropiado de ellos que las mismas empresas anónimas... Tengo una cuestión que resolver en la Seguridad Social, y dispone de so teléfonos, uno local (llamada a un fijo) y otro un 902... llamando al local, todo lo que consigues es un mensaje grabado para decirte que puedes pedir cita previa llamando al 902 (de pago), cuando él mismo es según el precio de tu tarifa...
Si acabas llamando al 902, al final deriva a ese otro, con la salvedad del desmbolso de tu bolsillo.

Típicamente tienen un método "Speak", incluso "Play".

Objeto.Speak("este mensaje")

Selecciona el objeto que utilizas, y luego pulsa F1, para que te lleve a la ayuda y puedas consultar los métodos que expone el objeto... Si no tienes instalada la ayuda (local), te llevará a la página de internet donde se aloja, precisas pués tener conexión en el equipo donde lo vayas a probar.

En Rusia a mediados del siglo XX, ya hicieron trasp`lantes de cabez a un perro... solo sobrevivían unas horas (agónicas supongo).

Yo lo veo difícil, algunos órganos vitales están en el cuerpo, y quizás la cabeza no pueda esperar 'tanto' a que la conexión se 'restablezca'... pudiera ser que tanto la cabez como el cuerpo se mantengan artifialmente vivos hasta tanto no haya una conexión real. Cualquier trasplante primero de trasplantado vive de su propio interior y va muriendo lentamente hasta que el tejido sea 'fundido' con el 'todo' y empiece a fluir sangre y riegue la zona trasplantada, va cambiando de colores... peor si tarda la zona trasplantada se muere. Siendo una cabeza entera obvimanete debe tener riego sanguíneo constante y bien oxigenado, ya que a diferencia de (por ejemplo) una mano, permanecer sin riego muy poco tiempo lo daña irreversiblemente...

Tampoco me queda claro si la médula tendrá posibilidades de fusinarse correctamente y finalmente poder mandar órdenes al cuerpo para que funcione y aún así habría que ver cuanto tiempo de rehabilitación precisaría...

El tema ético, no tiene nada que ver con la religión, por mucho que algunos crean lo contrario, la religión (al menos la católica), no establece ningún lugar específico como radicante del alma, incluso aunque algunas veces se alude al corazón, peor es más simbólico que otra cosa, la Iglesia no mantiene ningún dogma acerca de la residencia del alma en algún lugar concreto del cuerpo).

La ética iría más bien por lo legal: Si tomamos la cabeza de Pepe y el cuerpo de juan, el ser resultante es Pepe o es Juan, o... ..ninguno d elos dos, o ambos a la vez?. Que yo sepa, el dilema legal es que no existe un establecimiento de que haya alguna parte fisiológica que ostente el razonamiento de ser el 'ser'... pretender que la cabeza lo és, no es más válido que pretenderlo del pie. Otra cosa es llevarlo al terreno médico, donde entendemos que sin un pie se puede vivir, pero no sin cabeza... o sí???... pués claro que sí, un pie podría vivir también amputado de su cuerpo si los médicos se empeñan en 'mantenerlo vivo', ahora quién lo haría y para qué???... en fin los dilemas éticos creo yo que irían en este sentido...

Supongamos que ambas señoras (de Pepe y Juan), lo reclamaran como su marido, a casa de quién debería ír?.
Sería lícito llamarlo 'ser' o sería más correcto llamarlo 'rehecho'.
Todavía faltaría ver que pasa con la mente, la memoria no se alamcena exclusivamente en la cabeza, aunque se reconozca una zona en la cabeza como la memoria, tampoco se sabe donde radican los sentimientos y desde ahí se puede llegar a discutir acerca del alma, pero vamos sin entrar en esa zona ya hay margen amplio para la ética...

Te corrijo el código in situ...

Private Sub Form_Load()
    Dim numero As Integer, suma As Integer, digito As Integer ' , par As Boolean no hace falta
 
    numero = InputBox("Introduce un numero: ") ' si ofrece un valor superior a 32767 generará un error de desbordamiento, mejor si lo declaras como 'long', en vez de 'integer'
    'par = False
    'suma = 0  con la declaración ya se establece el valor a 0.
    Do While (numero > 0)
        digito = (numero Mod 10)
        If ((digito And 1) = 0) Then ' "mod 2" es lo mismo que "and 1", pero así mucho más rápido
            suma = (suma + digito)
            'par = True
        End If
        numero = (numero \ 10) ' esta línea debe quedar fuera del condicional
        ' se debe ejecutar si o si en cada ciclo, para tener acceso al siguiente dígito
        ' además debe ser "\" (una división entera) no "/"
        ' ...O bien eliminar los decimales con: numero = Int(numero / 10)
        ' porque dejará decimales y al ser 'numero' declarado entero forzará un redondeo que falsea el resultado...
    Loop
 
    MsgBox ("La suma de los digitos de valor par es: " & suma)
End Sub
 

Es más sencillo.

Cada fila es un número que va desde 0 hasta 2^n-1
para tres variables (n=3, son 8 combinaciones, que van del 000, al 111)
Si llenas un array con los valores 0 a 255, tienes lo que quieres con 8 'variables', Si precisas verlo en formato binario, pásalo a texto. Aquí un ejemplo en pseudocodigo.

Es lo que tiene el asunto de tanta actualicitis... en pocos años de exitencia Android lleva ya (no las he contado), pero alrededor de 30 versiones de APIs... sale alrededor de 3 por año.

Así, que si, si tienens un móvil 2 años, se puede decir que ya está desactualizado... pero por qué vamos a tener que comprar un móvil nuevo cada 2 años (justo el palzo en que terminas de pagarlo si lo haces a plazo)????.

Este es uno de los más graves problemas de la informática hoy día, la impenitente actualicitis...

No, la petición judicial, sería más por que estuvieren cifrados los datos. El proveedor de internet del individuo en cuestión que usa Skype, por el que preguntan es quien es el OPERADOR de comunicaciones.

De hecho si quiere el juez, permite el espionaje de la línea del sujeto y listo... pero oh, está cifrado, así que vaya una m13rd4 van a espiar... es por eso que reclaman a Microsoft (como dueño actual de Skype)... pero si el juez lo tolera, pueden pinchar la línea del sujeto en cuestión y eso es algo que se debe reclamar al OPERADOR de comunicaciones...

Si existes... eres inteligente.

La inteligencia la tenemos todos (aunque haya serias dudas con algunos individuos   ), por el mero hecho de ser humanos, de ser seres vivos. Es condición de la propia vida.

Otra cosa aparte es que luego la inteligencia pueda desarrollarse por diferentes medios.
En cualquier caso, en muchos videojuegos se exige más 'velocidad' manual que inteligencia... Así que yo no asumiría que ser bueno en videojuegos sea un indicio de 'ser más inteligente', sobretodo si se lleva jugando x tiempo...

p.d.: (cuando hay x tiempo jugando ya hablamos de adquirir habilidad con la práctica).

Inteligentes son incluso las cucarachas, grillos, mariposas y todo ser vivo que tenga cerebro...

Parece mentira que tras siglos, todavía queden remanentes del geocentrismo, donde la Tierra era el centro del Universo y el hombre el centro de la creación y por tanto nadie más que el hombre tenía alma (y por añadido, inteligencia, intención, fe, sueños, etc...).

Lo que más me asombra es a menudo son ciéntíficos, los que siguen perdidos en ese antropocentrismo... sin parar de balbucir que los animales no son inteligentes, que esto, que lo otro...

Cualquiera que haya tenido animales en casa, por torpón que sea, sabe que tienen sentimientos, que piensan sueñan, juegan y diseñan estrategias. No solo aprenden porque tú les enseñes, también aprenden por sí mismos. Y al final la experiencia les sirve como a los humanos.

Para mi eso del tamaño del cerebro, es mera tontería, reducto del mismo prejuicio atávico antedicho... un mosquito milimétrico, tiene unos vuelos más precisos que cualquier avión con toda la electrónica que incorporan hoy día. Debe calcular, donde está, donde quiere ir, lo que pesa, la velocidad y orientación del aire, humedad y temperatura del aire, humedad y temperatura de sus alas, morfología de sus alas (adaptarse si su ala cambió por cualquier circunstancia), y un montón más de variables y todo ello decidirlo en un instante tan breve que al igual que nosotros, cuando andamos o corremos, no precisa una atención intensa para hacerlo, lo hace de forma refleja pero puede modificarlo a voluntad y decisión como hacemos nosotros, debe evaluar si hay posibles peligros o 'comida'...

...pero es que la condición de ser vivo, es esa... un ser vivo, nace, se alimenta crece, piensa, procrea y muere, y sus limitaciones se refieren a menudo a la biología de su cuerpo (tal como nosotros no podemos volar por nuestros propios medios (biolóogicos), por más inteligentes que seamos).
- Admitimos que si tienen extremidades tienen capacidad de movilidad, (pués para eso sirven las extremidades).
- Admitimos que si tienen sangre y corazón, su sangre riega su cuerpo, tendrán que alimentarse y tendrán que evacuar los resídeos (para eso sirve el sistema sanguíneo y resto de órganos relacionados).
- Admitimos que si tienen órganos sexuales se reproducen, aunque en la Naturaleza hay varios modelos de reproducción (para eso valen esos órganos).
- Entonces ¿porqué negar que si tienen cerebro, piensen?, cuando es para eso para lo que vale (aparte del sistema reflejo (cerebral o arco), es lógico que haya un sistema incondicionado regido a voluntad).

No es buena idea ejecutar un script (por curiosidad), sin saber qué hace, antes mira su código y aunque no lo comprendas (de un simple vistazo) en su totalidad, al menos alguna idea genérica si puedas tener y podrás decidir con mejor certeza si es o no recomendable evitar su ejecución.

Si tienes un win-xp, puedes editar el registro de la siguiente manera (si tienes otra versión más actual, conviene tomar copia de ese otro S.O. sin duda las claves para las dll, serán distintas y no funcionaría)
 
Para los bat, copia el siguiente contenido y pégalo en fichero, dale el nombre que quieras (por ejemplo: batfile), pero con extensión .reg, guarda el fichero y ejecútalo, te preguntará si deseas añadir el contenido al registro, le dices que sí y listo.



Los valores hexadecimales, son cadenas de texto, por ejemplo:
el hexadeciaml bajo esta clave:
[HKEY_CLASSES_ROOT\batfile\shell\print\command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
  00,5c,00,53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,4f,00,\
  54,00,45,00,50,00,41,00,44,00,2e,00,45,00,58,00,45,00,20,00,2f,00,70,00,20,\
  00,25,00,31,00,00,00
Equivale a este texto:
%SystemRoot%\System32\NOTEPAD.EXE /p %1

Lo mismo para el cmd (guárdalo a otro fichero, por ejemplo cmdfile.reg), esta es la info de registro:

...y para la próxima si vas a cambiar el registro, antes accede al mismo y 'exporta' el contenido completo de las claves que vayas a modificar, así podrás restaurar desde la copia si algo falló y no salió como esperabas...