EXERCICIOS_VB6

Capítulo 4
Estruturas de Repetição Condicionais Simples I
2. Codificação em Visual Basic:
Private Sub CmdGerar_Click()
Dim N As Integer, Total as Integer
LstNumeros.Clear
Randomize
Total = 0
Do
N = Int(Rnd * 60) + 1
LstNumeros.AddItem N
Total = Total + 1
Loop Until N=11
LblTotal.Caption = Total
End Sub
Exercícios Propostos
4.2 Elabore um programa em Visual Basic que gere números aleatórios inteiros, no intervalo [1, 200],
até sairem 10 números pares. O programa deve listar apenas os números pares gerados e
apresentar o maior deles.
Para a interface sugere-se o seguinte modelo:
4.3 Elabore um programa em Visual Basic que permita gerir a atribuição de lugares num avião. Ao ser
iniciado o Check-In, o funcionário deve introduzir para cada passageiro, através de uma inputbox, o
seu tipo de tarifa: 1 ou 2 (1ª ou 2ª classe). A seguir, o programa deve mostrar uma mensagem,
através de uma msgbox, com o número do lugar atribuído sabendo que:
• aos bilhetes com a tarifa 1 são atribuídos os lugares com os números 1, 2, .., 10 e aos de
tarifa 2, os lugares com os números 11, 12, .., 94;
• A atribuição de lugares deve ser sequencial;
Visual Basic 18