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

For i=1 To 100

For j=i To 100

If j Mod i=0 Then a(j)=a(j)+1

Next j

Next i

Text1. Text=Str(a(30))

数组a各元素的初值为0，执行上述程序段后，文本框Text中输出的内容为（  ）