Codigo para calcular o ano em que a populacao ficara com 30 milhoes de pessoas:Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim A, ano, at As Integer A = 15600000 ano = 1995 Do While A < 30000000 A = A * 1.03 ano = ano + 1 Loop TextBox3.Text = ano End SubEnd Class Codigo para converter Decimal em Binario:Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n, n0 As Integer Dim r8, r7, r6, r5, r4, r3, r2, r1 As Integer n = TextBox1.Text r8 = n Mod 2 n = n / 2 r7 = n Mod 2 n = n / 2 r6 = n Mod 2 n = n / 2 r5 = n Mod 2 n = n / 2 r4 = n Mod 2 n = n / 2 r3 = n Mod 2 n = n / 2 r2 = n Mod 2 n = n / 2 r1 = n Mod 2 n = n / 2 n0 = Convert.ToString(r8) + Convert.ToString(r7) + Convert.ToString(r6) + Convert.ToString(r5) + Convert.ToString(r4) + Convert.ToString(r3) + Convert.ToString(r2) + Convert.ToString(r1) TextBox2.Text = n0 End SubEnd Class TUTORIAL DE COMO SE CONTROLAR UM ESTACIONAMENTO De: Vinicius Doria Baptista Procure na sua area de trabalho (Desktop), o programa e devera abrilo; Logo apos clicar no programa aparecera uma lista de dados que voce devera digitar sobre o cliente;Apos ter digitado todas as informacoes do cliente voce devera conferir se todos os dados estao corretos, se nao voce tera que corrigir os dados, se sim o cliente estara cadastrado no sistema e podera utilizar todos os servicos do estacionamento;Codigo Da atividade 3 no pascal:program veiculos;var cl,cn,mo,rg,te,em,pl,pa,pm,pag: string ;e,en,sa,d,m:real;beginwriteln('Bem-Vindo este programa ir controlar um estacionamento');writeln;writeln('Escolha qual a opo de pagamento voc ir utilizar (pa= pagamento avulso / pm= pagamento mensal)');writeln;readln(pag);writeln;if pag = 'pa' thenbegin;Writeln;writeln(' Pagamento Avulso');writeln;writeln('Digite o nome do cliente');readln(cl);writeln;writeln('Digite o modelo do carro ');readln(mo);writeln;writeln('Digite o rg do cliente');readln(rg);writeln;writeln('Digite o telefone do cliente');readln(te);writeln;writeln('Digite o endereo do cliente');readln(em);writeln;writeln('Digite a placa do carro do cliente');readln(pl);writeln;writeln('Digite o horario de entrada');readln(en);writeln;writeln('Digite o horario de saida');readln(sa);writeln;e:=(sa-en)*2;writeln('Total a pagar ' , e:4:2);readln;writeln;writeln('Seu cadastro foi concluido com sucesso');writeln;writeln('Nome do cliente:', cl);writeln;writeln('Modelo do carro:', mo);writeln;writeln('Rg do cliente:', rg);writeln;writeln('Telefone do cliente:', te);writeln;writeln('Endereo do cliente:', em);writeln;writeln('Placa do carro:', pl);writeln;writeln('Entrada do carro:',en:4:2);writeln;writeln('Saida do carro:', sa:4:2);writeln;readln;end;if pag = 'pm' thenbegin;writeln(' Pagamento Mensal');writeln;writeln('Digite o nome do cliente');readln(cl);writeln;writeln('Digite o modelo do carro ');readln(mo);writeln;writeln('Digite o rg do cliente');readln(rg);writeln;writeln('Digite o telefone do cliente');readln(te);writeln;writeln('Digite o endereo do cliente');readln(em);writeln;writeln('Digite a placa do carro do cliente');readln(pl);writeln;writeln('O valor a ser pago ao ms de R$ 70,00');writeln;writeln('Seu cadastro foi concluido com sucesso');writeln;writeln('Nome do cliente:', cl);writeln;writeln('Modelo do carro:', mo);writeln;writeln('Rg do cliente:', rg);writeln;writeln('Telefone do cliente:', te);writeln;writeln('Endereo do cliente:', em);writeln;writeln('Placa do carro:', pl);writeln;readln;end;end. Codigo para somar qualquer numeros :Public Class Form1 Dim soma As Integer Dim quant As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click soma = soma + Convert.ToInt16(TextBox4.Text) TextBox2.Text = soma quant = quant + 1 TextBox3.Text = quant End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click