ListaIII VB1 Emanuel J

ListaIII-VB1 - Lista de Exercícios sobre VB.Net (Etapa III)
Aluno : Emanuel j. j. Dutra RA : 1096344

1 - O Visual Studio é:
A ( ) Uma linguagem de programação na plataforma .net
B ( X ) Um ambiente de desenvolvimento em linguagens na plataforma .net.
C ( ) Uma ferramenta de cálculo numérico.
D ( ) Uma toolbox para desenvolvimento em três camadas.
E ( ) Uma IDE para planilhas eletrônicas.

2 - Crie uma interface em VB.Net tal como a mostrada abaixo, executando as seguintes ações:
O usuário entra com um número na primeira caixa; ao clicar no botão [OK] o fatorial desse número deve ser exibido na segunda caixa. Clicando no botão [Limpar] as duas caixas deverão ser limpas e o foco deve ficar na primeira caixa. Clicando no botão [Fechar] a aplicação deve ser encerrada após confirmação do usuário.
Nota: O número de entrada dever ser validado, pois não existe fatorial de número negativo.

Public Class Form1

Private Sub btnFechar_Click(sender As Object, e As EventArgs) Handles btnFechar.Click Dim x As Integer

x = MsgBox("Confirma encerrar o programa ?", MsgBoxStyle.YesNo)

If x = 6 Then Close() End Sub

Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click Dim num, i As Integer Dim Total As Long

TextBox2.Text = ""

If Not IsNumeric(TextBox1.Text) Then MsgBox("Valor digitado não é numérico", MsgBoxStyle.Information) TextBox1.Clear() TextBox1.Focus() ElseIf Val(TextBox1.Text) < 0 Then MsgBox("Valor digitado não pode ser negativo", MsgBoxStyle.Information) TextBox1.Clear() TextBox1.Focus() ElseIf TextBox1.Text = 0 Then TextBox2.Text = 1 Else num = TextBox1.Text Total = 1 For i = 1 To num Total = Total * i TextBox2.Text = Total Next