Cours, Exemples et Exercices de VB.NET et ASP.NET

Extrait des exercices

Exercice 1:

En utilisant la commande InputBox saisr une valeur i de type integer et puis effectue les test

suivant :

i

0 i = 0

11=i = 0

i>20

En utilisant une structure if et une structure select case.

Affiche pour chaque cas un message indiquant le resultat

Exercices 2 :

Ecrire le code VB qui saisie les valeurs d‟un vecteur A(5) en utilisant une boucle et le control inputbox et par suite additionner ce vecteur et afficher son résultat, on considère que c’est un vecteur d‟entier. (En utilisant deux boucles : For et While).

Plan de cours

Utiliser Listbox

Les modules et création des classes

Ajouter des valeurs avec InputBox

Get et Set

Création de namespace

Exemple avec Delegate

Exercices

Première Méthode

Deuxième Méthode

Troisieme Methode

Quatrieme methode

Primary Key

Package et Sous Package

Overrides

Overridable

Shared

Solutions

Profitez de ce manuel de formation en PDF pour comprendre mieux le vbnet et enrichir votre connaissance.

Commencez à télécharger ce cours adapté pour vous et à apprendre vbnet.

Cours, Exemples et Exercices de la matière VB.NET et ASP.NET Préparé par Elie Matta Copyright © 2010 -2011, eliematta.com . All rights reserved Page 10 Exe rcice 3 : En utilisant inputbox, upperbound(dimension courante) et ReDim preserve. Ecrire le code qui contient un bouton avec le code correspondant qui a chaque fois qu‟on clique sur ce bouton affiche un inputbox NB : int i = UBOUND(A) Dim A(0) As Int16 Dim v As Int16 Dim i As Int16 Private Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click v = InputBox( « enter value » ) i = UBound(A) A(i) = v ReDim Preserve A(i + 1) MessageBox.Show( « La grandeur du vecteur A maintenant est  » & i) End Sub Exercice 4: Form1: Public Class Form1 Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load End Sub Public Structure customer Dim ID As Integer Dim FN As String Dim LN As String Dim DOB As Date End Structure Public acustomer(0) As customer Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cust As customer cust.FN = TextBox1.Text cust.LN = TextBox2.Text cust.DOB = CDate (TextBox3.Text) cust.ID = UBound(acustomer) acustomer(UBound(acustomer)) = cust ReDim Preserve acustomer(UBound(acustomer) + 1) MessageBox.Show( « Customer  » & acustomer(cust.ID).FN.ToString &  » has been added SUCCESSFULLY!!!! » ) TextBox1.Clear() TextBox2.Clear() TextBox3.Clear()