Section Trois exercices

Partie 1 - Si les états

Démarrez un nouveau projet. Ajouter une zone de texte, une étiquette et un bouton pour votre nouveau formulaire. Ensuite, écrire un programme qui effectue les opérations suivantes:

1. Demande aux utilisateurs d'entrer un nombre entre 10 et 20.
2. Le numéro sera entré dans la zone de texte.
3. Lorsque le bouton est cliqué, votre code Visual Basic va vérifier le nombre entré dans la zone de texte.
4. S'il est compris entre 10 et 20, puis un message s'affiche.
5. La boîte de message affiche le numéro de la zone de texte.
6. Si le numéro saisi n'est pas entre 10 et 20, l'utilisateur sera invité à essayer de nouveau, et tout ce qui était entré dans la zone de texte sera effacé

REP

Dim number_in_textbox As Integer

number_in_textbox = Val (TextBox1.Text)

Si number_in_textbox> 10 Et number_in_textbox <20 alors

MessageBox.Show ("numéro saisi est:" & number_in_textbox)

Else

MessageBox.Show ("numéro entré n'est pas entre 10 et 20")
TextBox1.Text = ""

End If

Partie 2 - Select Case

Ajouter une zone de liste déroulante et un autre bouton à votre formulaire. Créer une liste d'articles à votre liste déroulante. La liste des éléments dans votre boîte Combo peut être quelque chose que vous aimez - des groupes pop, des équipes de football, les aliments préférés, quelque chose de votre choix. Ensuite, essayez ce qui suit:
Utilisez une instruction Select Case pour tester ce que l'utilisateur a choisi de la liste déroulante. Donner à l'utilisateur un message approprié lorsque le bouton a été cliqué.

rep

 deuxième partie

Point One, Two Point, point trois ci-dessous peut être remplacé par n'importe quel articles que vous avez dans votre liste de combo.

MyVariable Dim As String

MyVariable = ComboBox1.Text

Sélectionnez MyVariable de cas

Case "Point One"

MsgBox ("Vous aimez" et MyVariable & ", je vois - bon choix")

Case "Point Deux"

MsgBox ("Vraiment?" Et MyVariable et "?")

Case "Point Three"

MsgBox (MyVariable & "? Maintenant, vous êtes juste d'être stupide!")

End Select

 

Posted in: Visual Basic .NET