Private Sub Command1_Click()
Dim s As Double
s = 0
Do While s <> 5
s = s + 2
Loop
Label1.Caption = Str(s)
End Sub
该事件处理过程代码违背了算法特征中的( )