1. (2019高三上·浙江月考) 某 VB段程序如下：

Dim a(1 To 5) As Integer Randomize

s = 0

Do While s<5

t = Int(Rnd * 5 + 1) a(t) = a(t) + 1

If a(t) = 1 Then s = s + a(t)

Loop

已知数组a(1)到 a(5)的初值均为0，该段程序运行后，下列说法正确的是（  ）