下列程序运行后的输出结果是 下列程序运行后的输出结果是 Option base 1Private Sub Command1_Click()Dim a(10),p(3) as integerk=5for i= 1 to10a(i)=inext ifor i=1 to 3p(i)=a(i)*inext ifor i=1 to 3k=k+p(i)*2next iprint kend sub
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 12:57:32
![下列程序运行后的输出结果是 下列程序运行后的输出结果是 Option base 1Private Sub Command1_Click()Dim a(10),p(3) as integerk=5for i= 1 to10a(i)=inext ifor i=1 to 3p(i)=a(i)*inext ifor i=1 to 3k=k+p(i)*2next iprint kend sub](/uploads/image/z/13606370-26-0.jpg?t=%E4%B8%8B%E5%88%97%E7%A8%8B%E5%BA%8F%E8%BF%90%E8%A1%8C%E5%90%8E%E7%9A%84%E8%BE%93%E5%87%BA%E7%BB%93%E6%9E%9C%E6%98%AF+%E4%B8%8B%E5%88%97%E7%A8%8B%E5%BA%8F%E8%BF%90%E8%A1%8C%E5%90%8E%E7%9A%84%E8%BE%93%E5%87%BA%E7%BB%93%E6%9E%9C%E6%98%AF+Option+base+1Private+Sub+Command1_Click%28%29Dim+a%EF%BC%8810%EF%BC%89%2Cp%283%29+as+integerk%3D5for+i%3D+1+to10a%28i%29%3Dinext+ifor+i%3D1+to+3p%28i%29%3Da%28i%29%2Ainext+ifor+i%3D1+to+3k%3Dk%2Bp%28i%29%2A2next+iprint+kend+sub)
下列程序运行后的输出结果是 下列程序运行后的输出结果是 Option base 1Private Sub Command1_Click()Dim a(10),p(3) as integerk=5for i= 1 to10a(i)=inext ifor i=1 to 3p(i)=a(i)*inext ifor i=1 to 3k=k+p(i)*2next iprint kend sub
下列程序运行后的输出结果是
下列程序运行后的输出结果是
Option base 1
Private Sub Command1_Click()
Dim a(10),p(3) as integer
k=5
for i= 1 to10
a(i)=i
next i
for i=1 to 3
p(i)=a(i)*i
next i
for i=1 to 3
k=k+p(i)*2
next i
print k
end sub
下列程序运行后的输出结果是 下列程序运行后的输出结果是 Option base 1Private Sub Command1_Click()Dim a(10),p(3) as integerk=5for i= 1 to10a(i)=inext ifor i=1 to 3p(i)=a(i)*inext ifor i=1 to 3k=k+p(i)*2next iprint kend sub
k=5
a(1)=1……a(10)=10
p(1)=a(1)*1=1,p(2)=2*2=4,p(3)=9
k=0+p(1)*2=2
k=2+p(2)*2=10
k=10+p(3)*2=28