杭州交通信息网特征提取的例子:请问这个语句是什么意思?我这个是VB.
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/01 02:36:55
Dim 苹果(20, 2) As Double
Dim sc As Double
Private Sub Timer1_Timer()
frmxingbo.Cls
For i = 1 To 20
苹果(i, 2) = Sin(sc + i * 75) * 78 + 110
frmxingbo.PaintPicture Picture1, i * 25 + 14, 苹果(i, 2)
Next
sc = sc + 1
'Label1 = sc
End Sub
Dim sc As Double
Private Sub Timer1_Timer()
frmxingbo.Cls
For i = 1 To 20
苹果(i, 2) = Sin(sc + i * 75) * 78 + 110
frmxingbo.PaintPicture Picture1, i * 25 + 14, 苹果(i, 2)
Next
sc = sc + 1
'Label1 = sc
End Sub
'定义一个名为苹果的20*2的DOUBLE型数组
Dim 苹果(20, 2) As Double
'定义一个名为sc的DOUBLE变量
Dim sc As Double
'Timer1的Timer事件
Private Sub Timer1_Timer()
'清屏
frmxingbo.Cls
'循环1到20
For i = 1 To 20
'为苹果的2维数组付值
苹果(i, 2) = Sin(sc + i * 75) * 78 + 110
frmxingbo.PaintPicture Picture1, i * 25 + 14, 苹果(i, 2)
'循环到下一个
Next
'sc+1
sc = sc + 1
'这句注释了，没有用了
'Label1 = sc
'结束
End Sub
循环语句