Exercícios de Desenvolvimento de Software

1)Faça um programa para conversões de medidas.O programa deve exibir a mensagem "Digite a medida em milhas",obtenha esta medida como entrada de dados e converta para kilômetros.
O programa deve exibir a mensagem " a medida em kilômetros é: ".Declare o fator de conversão como uma constante chamada Fator e seu valor deve ser = 1,61.
A constante Fator deve ser ultilizada no calculo da conversão.

R.: Dim milha As Single Const Fator As Double = 1.61 Dim km As Single

milha = InputBox("Digite a medida em milhas: ") km = milha * Fator MsgBox("A medida em kilômetros é: " & km)

2)Faça um programa no SQL que exiba o nome do curso e o nome das disciplinas em ordem alfabetica pelo nome do curso e das disciplinas.
O relatório deve exibir somente as disciplinas com menos de 3 créditos ou com mais de 5 créditos.

R.: Select curso.descricao as "Nome do curso", disciplina.descricao as "Nome da disciplina", num_credito from curso join disciplina on curso.cod_curso = disciplina.cod_curso where num_credito < 3 or num_credito > 5 order by 1 asc, 2 asc;

3)Quantos aluno existem no banco de dados ?

R.: Select * from aluno;

4)Listar matricula e nota final dos alunos com nota final entre 9 e 10.

R.: Select matricula,nota_final from aluno_na_disciplina where nota_final between 9 and 10;

5)Listar todas as informações da familia Saud.

R.:Select * from aluno where nome like'%Saud%';

Conexão com o Banco de dados pelo VB.net

Imports System.Data.OleDb
Public Class Form1 Dim strConn, strSql As String Dim objConn As OleDbConnection Dim objCmd As OleDbCommand Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load strConn = "Provider=MSDAORA.1;Password=tomjobim2013;User ID=system;Persist Security Info=True" objConn = New OleDbConnection(strConn) strSql = "insert into emp values('399','Avelino', 10000,