End Sub

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 …

Private Sub CBok_Click() 'checar dados do UserForm 'produto If CBProduto.Text = "" Then MsgBox "Escolha o produto", vbCritical, "Alerta" CBProduto.SetFocus Exit Sub End If 'Configurações If CBTamanho.Text = "" Or CBProcessador.Text = "" Or CBMemoria.Text = "" Or CBArmazenamento.Text = "" Or CBTeclado.Text = "" Then MsgBox "Escolha todas as Configurações", vbCritical, "Alerta" CBProduto.SetFocus Exit Sub End If 'Opcionais If CBiwork.Value = False And CBaperture =…

Dim WordApp As New Microsoft.Office.Interop.Word.Application() Dim thisDoc As Microsoft.Office.Interop.Word.Document Dim vtotalhoras As Integer Private Sub btntotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load lbldata.Text = timedata inicio() End Sub CRIAR A GRIDVIEW Não esquecer que temos de criar a Gridview no Formulário. Exercício a funcionar Frequência do Bexiga…

EXEMPLO DE TESTE CONDICIONAL Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer i = Val(TextBox1.Text) If i >= 18 Then Label2.Text = "maior de idade" Else Label2.Text = "Menor de idade" End If End Sub End Class EXERCÍCIOS 1. Leia três notas. Calcule a média. Se média for maior ou igual a seis, exiba…

executa uma série de comandos sem retornar valores. Na seção de declaração do módulo podemos declarar variáveis e outros comandos especiais que terão efeito sobre todos os componentes do módulo. Macro – Definição e Aplicação: A Macro, ou sub-rotina, é uma seqüência de comandos e Funções armazenados no VBA que pode ser criada para, por exemplo, automatizar uma tarefa que seria executada várias vezes no Excel. O que implica principalmente ganho de tempo, integridade da…

foram digitados. Resolução – Exercício 1.1 Sub Main() Dim i As Integer i = 1000 Do Until (i > 2000) Console.WriteLine(i) i = i + 1 Loop Console.ReadKey() 'Para parar a tela End Sub Resolução – Exercício 1.2 Sub Main() Dim i, x, y As Integer x = InputBox("Digite o limite inferior") y = InputBox("Digite o limite superior") i = x Do Until (i > y) Console.WriteLine(i) i = i + 1 Loop Console.ReadKey() End Sub Resolução – Exercício 1.3 Sub Main() Dim i As…

separar a definição de uma classe da sua implementação. Exemplo: Interface Mensagem Sub MensagemCompleta(ByVal Titulo As String, ByVal corpo As String) Sub Mensagem(ByVal corpo As String) End Interface Public Class Classe1 Implements Mensagem Public Overloads Sub Mensagem(ByVal corpo As String) Implements Mensagem.Mensagem MessageBox.Show(corpo) End Sub Public Sub MensagemCompleta(ByVal Titulo As String, ByVal corpo As String) Implements…

Tipo Record 2 2. Tipos Definidos Pelo Usuário e Constantes 4 2.1 Tipos Definidos Pelo Usuário 4 2.2 Constantes 5 3. Sub-Rotinas 7 3.1 Procedure 7 3.2 Variáveis Globais e Locais 8 4. Passagem de Parâmetros 10 5. Function 14 6. Recursividade 16 7. Unit 19 8. Arquivos 21 8.1 Arquivos FILE 21 8.2 Arquivos TEXT 28 8.3 Sub-Rotinas para Tratamento de Arquivos TEXT. 28 9. Alocação Dinâmica 33 9.1 Introdução 33 9.2 Definição de…

evento Load do formulário digite o código : Private Sub Form_Load()Dim temp Set wShell = New IWshShell_ClassFor Each temp In wShell.SpecialFolders lst.AddItem temp If InStr(temp, "Start Menu") 0 Then lst.ListIndex = lst.ListCount - 1 Next End Sub | 3- Agora no evento click dos componentes : DriveListBox , DirListBox e ListBox temos o código: Private Sub Drive1_Change() Dir1.Path = Drive1.Drive & "" End Sub | Private Sub Dir1_Change() File1.Path =…

±X^(2n+1)/(2n+1)Ị Respostas Exercício 1 Sub compra_venda() Dim compra As Single Dim venda As Single compra = InputBox("digite o valor da compra") If compra < 10 Then venda = compra * 0.7 Else If compra >= 10 And compra < 30 Then venda = compra * 0.5 Else If compra >= 30 And compra < 50 Then venda = compra * 0.4 Else venda = compra * 0.3 End If End If End If MsgBox ("valor do lucro da venda=") & venda End Sub Exercício 2 Sub função_x() Dim…