2015安学业水平测试信息学VB专项练习6题.docVIP

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 a(i); Next j 此行有一处错误 Next i End Sub 第2题： 代码如下：（红色字体部分是参考答案） Private Sub Command1_Click() Dim i As Integer, J As Integer, k As Integer Me.Cls For i = 2 To 1000 For J = 2 To Sqr(i) If i Mod J = 0 Then Exit For Next I 此