安徽学业水平测试信息学专项练习题.pdfVIP

安徽学业水平测试信息学专项练习题 2015 新题库 VB 专项练习 12 题 第 1 题： 代码如下： （红色字体部分是参考答案） Private Sub Command1_Click() Dim i As Integer, a(1 To 10) As Integer Me.Cls Randomize For i = 1 To 15 此行有一处错误 For i = 1 To 10 a(i) = Int(Rnd * (99 - 80) + 80) 此行有一处错误 以下四种答案都应该对，但是系统判分一个都不对 Int(Rnd * (99 - 80) + 80)+1 Int(Rnd * (100 - 80) + 80) Int(Rnd * (99 - 79) + 80) Int(Rnd * (99 - 80) + 81) Print