问题 单项选择题

以下程序的功能是随机产生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,这样就能正确产生两位的整数了。

多项选择题
单项选择题