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

admin2018-07-11  29

问题 以下程序的功能是随机产生10个两位的整数:
Option Base 1
Private Sub Commandl_Click()
    Dim a(10)As Integer
    Dim i As Integez
    Randomize
    For i=l 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)=hat(Rnd*100)+10
D、a(i)=Int(Rnd*101)

答案B

解析 由Rnd函数生成的随机数在0~1之间,包括0但不包括1,所以有可能产生0,与题目要求的两位的整数不符。所以语句a(i)=Int(Rnd*100)+l需要修改为a(i)=Int(Rnd$90)+10,这样就能正确产生丽位的整数了。
转载请注明原文地址:https://kaotiyun.com/show/NOGp777K
0

最新回复(0)