以下程序的功能是随机产生10个两位的整数：
Option Base 1
Private Sub Command1_Click()
Dim a (10) As Integer
Dim i As Integer
Randomize
For i=1 To 10
a(i)=Int(Rnd*100)+1
Print a(i)
Next i
End Sub
运行以上程序，发现有错误，需要对产生随机数的语句进行修改。以下正确的修改是（　　）。

A.a（i）=Int（Rnd*100）

B.a（i）=Int（Rnd*90）+10

C.a（i）=Int（Rnd*100）+10

D.a（i）=Int（Rnd*101）