以下程序的功能是随机产生10个两位的整数: Option Base 1 Private Sub Command1_Click()   Dim a(10)As Integer   Dim i As Integer   Randomize   For i=1

admin2020-07-22  33

问题 以下程序的功能是随机产生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,这样就能正确产生两位的整数了。
转载请注明原文地址:https://kaotiyun.com/show/rgHp777K
0

最新回复(0)