有如下VB程序段：Dim a（1 To 5） As Integer, i As Integer, c As Integera（1） = 2: a（2） = 1: a（3） = 3: a（4） = 4: a（5） = 5c = 0For i = 1 To 4If a（i） <= a（i+1） Then c = c + 1Next iPrint c该程序的运行结果是（）