单选题以下程序的功能是随机产生10个两位的整数：Option Base 1Private 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 iEnd 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)

【正确答案】 B

【答案解析】解析：由Rnd函数生成的随机数在0～1之间，包括0但不包括1，所以有可能产生0，与题目要求的两位的整数不符。所以语句a(i)＝Int(Rnd * 100)＋1需要修改为a(i)＝Int(Rnd * 90)＋10，这样就能正确产生两位的整数了。