1. (2019高一下·浦东月考) 有如下VB程序段：

Dim a(1 To 5) As Integer, i As Integer, c As Integer

a(1) = 2: a(2) = 1: a(3) = 3: a(4) = 4: a(5) = 5

c = 0

For i = 1 To 4

  If a(i) <= a(i+1) Then c = c + 1

Next i

Print c

该程序的运行结果是。