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

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

admin2015-08-28  40
问题 以下程序的功能是随机产生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/P2Lp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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