[单项选择题] 以下程序的功能是随机产生10个两位的整数： Option Base 1 Private Sub Command1

[单项选择题] 以下程序的功能是随机产生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)

B

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