Emergency, to see where is wrong, thank you-CodePudding

 Private Sub Command3_Click () 
Dim I %, useful! , jh! , zc! , Ux! , X! , z! 
For I=1 To 8 
Useful (I)=Text (I). The Text 
Jh (I)=Text (I + 8) Text 
Next I 
For I=1 To 8 
Z (I)=(useful (I) + jh (I))/2 
Next I 
For I=1 To 4 
Zc (I)=Abs (z (I + 4) - z (I)) 
The Text (I + 16). The Text=Round (zc (I), 2) 
Next I 
Ux=STD (zc) 
Text22. Text=Round (Ux, 2) 
X=avr (zc) 
Text21. Text=Round (X, 2) 
End Sub

CodePudding user response:

For your "problem", I can only say: this code is no syntax errors,
Therefore: code that's right, wrong is "people" !!!!!!

If there is wrong, you will only use undeserved,

CodePudding user response:

Code is no problem, just don't know what do you expect the effect of

CodePudding user response:

You don't say you want to achieve the effect, or of the mistakes, how do you know what is wrong,