窗体上有一个名称为Command1的命令按钮,有程序如下: Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer ’第1个For For i = 1 To 1

admin2015-06-30  57

问题 窗体上有一个名称为Command1的命令按钮,有程序如下:
Option Base 1
Private Sub Command1_Click()
    Dim a(10) As Integer
    ’第1个For
    For i = 1 To 10
        a(i) = Int(Rnd * 100 + 100)
        Print a(i);
    Next
    x = a(i)
    y = x
   ’第2个For
    For i = 1 To 10
        If x < a(i) Then x = a(i)
        If y > a(i) Then y = a(i)
        s = s + a(i)
    Next
    Print x, y, s
End Sub
关于上述程序的叙述中,正确的是

选项 A、程序运行出错,第1个For循环之后的x=a(i)赋值语句错
B、程序正常运行,x是10个随机数中的最大值
C、程序正常运行,s是10个随机数的和
D、程序正常运行,10个随机数的范围是100-200

答案A

解析 第一个For循环中缺省Step,步长为1,退出循环时下标为10,第1个For循环之后的x=a(i)赋值语句下标越界,出错。选A)。
转载请注明原文地址:https://jikaoti.com/ti/b160FFFM
0

最新回复(0)