vb中赋值

来源：百度知道 编辑：UC知道 时间：2024/06/05 06:31:56
想要这样
g（）=x^3
g(1)=1^3=1
g(2)=2^3=8
该怎样，谢谢！！！！！

dim g(1 to 20),i%

for i=1 to 20
g(i)=i^3
next

定义g()为函数
然后取得你要的效果

Private Function g(i As Long) As Long
g = i * i * i
End Function

Private Sub Command1_Click()
Print g(1), g(2), g(3), g(4)'输出1、8、27、64
End Sub

dim g(x)% ,i% 例如你想乘到五，把X换成5就行
for i=1 to x
g(i)=i^3
print g(i)
next i