Erreur avec Visual Basic
cranouf
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je suis débutant sur VB et j'ai crée un programme 'simple pour calculer un moyenne. Or une fois que je le lance il m'affiche toujours la valeur '0' ?
je suis perdu, serait-il possible de m'indiquer mon erreur ? Merci
Private Sub CommandButton1_Click()
Dim T(1 To 10, 1 To 10) As Single
Dim s As Single
Dim n As Single
Dim il As Integer
Dim ic As Integer
Dim nbl As Integer
Dim nbc As Integer
nbl = InputBox("Analyseur", "Veuillez indiquez le nombre de ligne à analyser", 5)
nbc = InputBox("Analyseur", "Veuillez indiquez le nombre de colonne à analyser", 5)
s = 0
n = nbl * nbc
For il = 1 To nbl Step 1
For ic = 1 To nbc Step 1
s = s + T(il, ic)
Next ic
Next il
s = s / n
Call MsgBox(s)
End Sub
Private Sub CommandButton2_Click()
End
End Sub
Je suis débutant sur VB et j'ai crée un programme 'simple pour calculer un moyenne. Or une fois que je le lance il m'affiche toujours la valeur '0' ?
je suis perdu, serait-il possible de m'indiquer mon erreur ? Merci
Private Sub CommandButton1_Click()
Dim T(1 To 10, 1 To 10) As Single
Dim s As Single
Dim n As Single
Dim il As Integer
Dim ic As Integer
Dim nbl As Integer
Dim nbc As Integer
nbl = InputBox("Analyseur", "Veuillez indiquez le nombre de ligne à analyser", 5)
nbc = InputBox("Analyseur", "Veuillez indiquez le nombre de colonne à analyser", 5)
s = 0
n = nbl * nbc
For il = 1 To nbl Step 1
For ic = 1 To nbc Step 1
s = s + T(il, ic)
Next ic
Next il
s = s / n
Call MsgBox(s)
End Sub
Private Sub CommandButton2_Click()
End
End Sub
A voir également:
- Erreur avec Visual Basic
- Visual basic - Télécharger - Langages
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
- Visual paradigm - Télécharger - Gestion de données
- Quick basic - Télécharger - Édition & Programmation