2. 计算机
  3. 以下程序的功能是随机产生10个两位的整数： Option Base 1 Private Sub Commandl＿Click() Dim a(10)As Integer Dim i As Integez Randomize

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

admin2018-07-11  32
问题 以下程序的功能是随机产生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://jikaoti.com/ti/EYy0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)