神马品牌网药女晶晶网盘:一个VB题目
来源：百度文库 编辑：神马品牌网 时间：2024/05/04 17:50:14
这个题目 帮我算算 我算不出来
Private Sub Command_Click()
Dim a ( 1 to 10 )
Dim p ( 1 to 3 )
k = 5
For i = 1 To 10
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
程序运行后 输出的结果为33,为什么呢?详细点 谢谢啦
我自己算的也是103了 郁闷 麻烦再看看
Private Sub Command_Click()
Dim a ( 1 to 10 )
Dim p ( 1 to 3 )
k = 5
For i = 1 To 10
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
程序运行后 输出的结果为33,为什么呢?详细点 谢谢啦
我自己算的也是103了 郁闷 麻烦再看看
33？？ 不会吧
我的运行结果是103呀！
-----------------------------------
对呀，我在纸上算的是103
在VB里也是103呀！
怎么可能是33,光9的平方就81了,我算着怎么是103