Resolução dos exercícios de revisão para a Prova 1 de Linguagem de Programação II

1) Faça um programa que tenha: 1 textbox, 1 commandbutton e 1 label. Funcionamento do programa: Ao clicar no botão, o que estiver escrito na textbox será mostrada na label.

Resolução:

Private Sub Command1_Click()
Label1.Caption = Text1.Text
End Sub

2) Faça um programa que tenha: 1 textbox e 1 commandbutton
Funcionamento do programa: Ao clicar o botão, o que estiver escrito na textbox será mostrado em uma msgbox.

Resolução:

Private Sub Command1_Click()
MsgBox (Text1.Text)
End Sub

3) Faça um programa que tenha: 1 commandbutton e 1 label
Funcionamento do programa: Ao clicar o botão, deverá aparecer uma InputBox e o que for escrito nela deverá, após clicar “OK”, aparecer na label.

Resolução:

Private Sub Command1_Click()
Label1.Caption = InputBox("Entre com alguma mensagem")
End Sub

4) Faça um programa que tenha: 1 textbox e 1 commandbutton
Funcionamento do programa: Ao clicar o botão, o que estiver escrito na textbox deverá aparecer escrito no botão.

Resolução:

Private Sub Command1_Click()
Command1.Caption = Text1.Text
End Sub

5)Faça um programa que tenha: 2 textbox, 1 commandbutton e 1 label
Funcionamento do programa: O programa serve para mostrar o maior entre dois números. Com o programa em execução, em cada textbox deverá entrado um número. Ao clicar-se o botão, o maior deles deverá aparecer na label.

Resolução:

Private Sub Command1_Click()
If Text1.Text > Text2.Text Then
Label1.Caption = Text1.Text
Else
Label1.Caption = Text2.Text
End If
End Sub



6) Faça um programa que tenha: 2 textbox, 1 listbox com opções “maior” e “menor”, 1 commandbutton e 1 label
Funcionamento do programa: Cada uma das textbox receberá um número. Se na listbox estiver selecionada a opção “maior”, a label irá mostrar o maior dos números. Se na listbox estiver selecionado “menor”, então a label mostrará o menor dos dois números.

Resolução:

Private Sub Command1_Click()
Select Case List1.Text
Case "maior"
If Text1.Text > Text2.Text Then
Label1.Caption = Text1.Text
Else
Label1.Caption = Text2.Text
End If
Case "menor"
If Text1.Text > Text2.Text Then
Label1.Caption = Text2.Text
Else
Label1.Caption = Text1.Text
End If
End Select
End Sub

7) Faça um programa que tenha: 2 textbox, 1 listbox com as opções da figura, 1 commandbutton e 1 label.
Funcionamento do programa: Cada textbox receberá um número e ao clicar no botão, será realizada a operação selecionada na listbox e o resultado será mostrado na label.

Resolução:

Private Sub Command1_Click()
Select Case List1.Text
Case "soma"
Label1.Caption = Val(Text1.Text) + Val(Text2.Text)
Case "subtração"
Label1.Caption = Text1.Text - Text2.Text
Case "multiplicação"
Label1.Caption = Text1.Text * Text2.Text
Case "divisão"
Label1.Caption = Text1.Text / Text2.Text
Case "potenciação"
Label1.Caption = Text1.Text ^ Text2.Text
End Select
End Sub