Pense em um numero

Lembre-se a pensar jogo de um número, multiplique por 2, adicione Y (o número da chave) dividir tudo por 2, você subtrai o número que você pensou
O resultado é o número que nós fizemos adicionar Y dividido por 2.
Para simplificar o cálculo do número que escolhemos o nosso pequeno e igual modo a ser divisível por 2
A partir daqui podemos derivar a equação, onde x é o número do pensamento:
[(2x + y) * 1/2] - x =

Escrito melhor solução ...

O jogo que eu fiz com o Excel, quando você abre o arquivo aparece o aviso de segurança sobre a ativação macro, como mostrado:

Explicação:

• I utilizado na camada de células de suporte com o RANDBETWEEN aleatório = função (1; 30), que extrai um número entre 1 e 30;
• Criei duas colunas, em que o primeiro inseridos numa lista de 1 a 30 na coluna adjacente e outra lista de apenas os números pares entre 1 e 30 por repetir 2 vezes e dispondo-os ao acaso;
• sobre outra célula de suporte eu usei a função = PROCV (célula resultante; cellax: Cellay; intervalo de índice-2; FALSE). Então, é extraído um número aleatório e encontrar o correspondente seria o número igual a soma.

Ao executar os valores macro são atualizados automaticamente e cada vez que você iniciar o jogo é sempre diferente.

Aqui está o código em um módulo em VB compilador, Alt + F11 para abrir o editor VB

'Inizio macro Seleziona il foglio
Sheets("Pensa Un Numero").Select
'Aggiornamento Random
Range("C16").Select  'Seleziona la cella e inserisce la formula random in modo da aggiornare sempre il foglio
ActiveCell.FormulaR1C1 = "=RANDBETWEEN(1,30)"
Range("B3").Select  'Seleziona la cella B3
'Inizio
Dim A As Integer
Y = Cells(12, 3).Value  'Valore da aggiungere cella C12
Z = Cells(14, 3).Value  'Risultato da visualizzare cella C14
MsgBox "Pensa un numero...", vbInformation
MsgBox "Moltiplicalo x 2", vbInformation
MsgBox "Aggiungi = " + Str(Y), vbInformation
MsgBox "Dividi x 2", vbInformation
MsgBox "Sottrai il numero che hai pensato", vbInformation
MsgBox "Il risultato è = " + Str(Z), vbInformation
End Sub