1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
Dim i As Short
Dim result As String
Dim indNA, indNB As Integer
Dim NombreA, NombreB As Double
Dim outstrRaison As String
Dim NombreT1 As String
Dim Somme As String
Dim form3 As New Form3
NombreA = CDbl(Nombre1.Text)
NombreB = CDbl(Nombre2.Text)
indNA = CInt(indN1.Text)
indNB = CInt(indN2.Text)
outRaison(indNA, indNB, NombreA, NombreB, outstrRaison)
NombrT1(indNA, NombreA, outstrRaison, NombreT1)
Nombre = InputBox("Pour combien de nombre?", "Nombre")
If Nombre > 0 Then
ReDim Tableau(Nombre - 1)
For i = 0 To UBound(Tableau)
Tableau(i) = NombreT1 + (i * outstrRaison)
result = result & " Nombre" & (i + 1) & vbTab & Tableau(i) & vbCrLf
Next
form3.TextBox1.Text = result
form3.ShowDialog()
End If |
