Question

请问哪位VB高手帮忙解决解释一下下面的代码：（逐句解释，小弟初学，一句都不懂啊 灰常感谢）

Public Sub ShowWave()
Dim a(1000) As Single
Dim yc!, xc!, xl!, yt!
Dim ii As Integer
Dim tmpstr$
Picture1.Cls
Picture2.Cls
yc = Picture1.ScaleTop + Picture1.ScaleHeight / 2
xl = Picture1.ScaleLeft
xs = Picture1.ScaleWidth / AdNumber
ys = Picture1.ScaleHeight / 65536!
Picture1.Line (xl, yc)-(xl + Picture1.ScaleWidth, yc), QBColor(4)
'Picture1.PSet (xl, yc)
Picture1.PSet (X1, yc + (ys * wV0(0)))
For ii = 1 To AdNumber - 1
Picture1.Line -(xl + (xs * ii), yc - (ys * wV0(ii)))
Next ii
yc = Picture2.ScaleTop + Picture2.ScaleHeight / 2
xl = Picture2.ScaleLeft
xs = Picture2.ScaleWidth / AdNumber
ys = Picture2.ScaleHeight / 65536!
Picture2.Line (xl, yc)-(xl + Picture2.ScaleWidth, yc), QBColor(4)
'Picture2.PSet (xl, yc)
Picture2.PSet (X1, yc + (ys * wV1(0)))
For ii = 1 To AdNumber - 1
Picture2.Line -(xl + (xs * ii), yc - (ys * wV1(ii)))
Next ii
tmpstr$ = ""
For ii = 0 To AdNumber - 1
tmpstr$ = tmpstr$ + Str$(ii) + " -> " + "CH1 : " + Hex(wV0(ii)) + " CH2 : " + Hex(wV1(ii)) + CR + LF
Next ii
Text1.Text = tmpstr$
End Sub

Answer 1

参考答案: 你没那么多观众，别那么累。