Section courante

A propos

Section administrative du site

Voici un exemple d'une classe permettant d'afficher un triangle Pascal :

  1. Sub Main()
  2.  Dim S As String
  3.  S = ""
  4.  For I=0 To 9
  5.     For J=0 to I
  6.        S = S & " " & CStr(J*I)
  7.     Next
  8.     S = S & vbCrLf
  9.  Next
  10.  
  11.  ' Dessin Triangle
  12.  
  13.  For I=0 To 12
  14.     For J=0 To 13-I
  15.         S = S & " "
  16.     Next
  17.     S = S & "< "
  18.      For J=0 To I+I
  19.         S = S & "x "
  20.     Next
  21.     S = S & "*" & vbCrLf
  22.  Next 
  23.  MsgBox S
  24. End Sub

on obtiendra le résultat suivant :

0
0 1
0 2 4
0 3 6 9
0 4 8 12 16
0 5 10 15 20 25
0 6 12 18 24 30 36
0 7 14 21 28 35 42 49
0 8 16 24 32 40 48 56 64
0 9 18 27 36 45 54 63 72 81
                            < x *
                          < x x x *
                        < x x x x x *
                      < x x x x x x x *
                    < x x x x x x x x x *
                  < x x x x x x x x x x x *
                < x x x x x x x x x x x x x *
              < x x x x x x x x x x x x x x x *
            < x x x x x x x x x x x x x x x x x *
          < x x x x x x x x x x x x x x x x x x x *
        < x x x x x x x x x x x x x x x x x x x x x *
      < x x x x x x x x x x x x x x x x x x x x x x x *
    < x x x x x x x x x x x x x x x x x x x x x x x x x *

Voir également

Science - Mathématique

Dernière mise à jour : Lundi, le 19 novembre 2012