Sélectionnez le "EXE standard" modèle après le chargement de Visual Basic. Trouvez le "Étiquette" icône dans la Boîte à outils sur la gauche de l'écran. Cette icône ressemble à une lettre majuscule A. Cliquez et faites-la glisser vers le haut de la forme dans le centre de l'écran. Lorsque vous relâchez la souris, une croix apparaît. Cliquez dessus et utiliser la petite carrés glisser-poignées d'élargir l'étiquette. Répéter trois fois cette action, en plaçant chaque étiquette au-dessous de la précédente et de le rendre plus large. Ajouter un cinquième étiquette à la droite de la quatrième et élargir ainsi.
Cliquez sur le "Zone de texte" contrôle dans la boîte à outils, un petit carré contenant les lettres "ab," et faites-le glisser sur le formulaire à droite de l'étiquette supérieure. Relâchez la souris et utiliser les poignées de glissement pour élargir la zone de texte. Répétez cette action deux fois de plus, en plaçant chaque encadré ci-dessous la précédente. Cliquez sur le "De commande," une petite place dans la boîte à outils, trouvé sous l'icône de texte et faites-le glisser sur le formulaire, élargissant ainsi.
Cliquez sur l'un "Étiquette" à la fois en partant du haut. Localisez le correspondant "Légende" propriété dans le "Propriétés" colonne dans le panneau de droite. Pour chaque étiquette, double-cliquez sur le "Légende" ligne et faire ces changements du texte par défaut que vous voyez:
Top Label: Nommez ce "Montant du prêt:"
Deuxième Label: Nommez ce "Taux d'intérêt mensuel:"
Troisième Label: Nommez ce "Nombre de mois:"
Quatrième Label: Nommez ce "Paiement Mensuel:"
Cinquième Label: Supprimer le nom de la légende.
Cliquez sur chaque "Zone de texte" à son tour, et de supprimer le "Texte" nom de la propriété dans la section Propriétés. Changer la "CommandButton" légende à lire "Calculer."
Double-cliquez sur le nouvellement nommé "Calculer" contrôle, ce qui ouvre la fenêtre de vue Code. Vous trouverez deux lignes déjà entrés, "Private Sub Command1_Click ()" et "End Sub." Entrez les lignes de code entre ces deux lignes suivantes:
Dim AmtBorrow, NumMonths As Integer
Taux Dim, MonthPay As Double
Taux = Text2.Text
NumMonths = Text3.Text
MonthPay = Text1.Text (1 + taux) ^ NumMonths Taux / ((1 + taux) ^ NumMonths - 1)
Label5.Caption = Format (MonthPay, "## $. ##")
Presse "F5" pour exécuter le programme et de fournir les montants sur l'écran, en appuyant sur "Calculer" finir.