Private Sub Command3_Click()
Dim i%, zh!, jh!, zc!, Ux!, X!, z!
For i = 1 To 8
zh(i) = Text(i).Text
jh(i) = Text(i + 8).Text
Next i
For i = 1 To 8
z(i) = (zh(i) + jh(i)) / 2
Next i
For i = 1 To 4
zc(i) = Abs(z(i + 4) - z(i))
Text(i + 16).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
uj5u.com熱心網友回復：
對于你的“問題”，我只能說：這段代碼沒有語法錯誤。因此：代碼沒錯，出錯的是“人”！！！
如果有錯，只能是你使用不當。
uj5u.com熱心網友回復：
代碼沒有問題，只是不知道你期望達到的效果是啥uj5u.com熱心網友回復：
你不說你想要達到的效果，或是出現的錯誤，怎么知道哪錯了。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/72144.html
標籤：VB基礎類
上一篇：VB6如何去除指定文字