[二级VB试题天天练]VB考试试题15

全国等级考试资料网 2019-01-23 14:16:16 177
19.数组练习(3)

下列程序段运行后,k的值是多少?
    Dim x(1 To 10) As Integer
    Dim p(1 To 4) As Integer
    Dim k As Integer
    Dim i As Integer
    For i = 1 To 10
        x(i) = i + 1
    Next
    For i = 1 To 4
        p(i) = x(i * 2)
        k = k + p(i) * 2
    Next
    Print k


相关资料

相关阅读