关于VB 一个二维数组问题··········高手帮下忙

来源：百度知道 编辑：UC知道 时间：2024/07/01 14:16:06
定义F（X,Y）后 如何循环 使他得到F（1，1），F（1，2）···F（1，Y） 然后是F（2，1）F(2,2)```F(2,Y) 如此循环直到F（X,Y） 想用这些点带进公式计算 但是如果用FOR X=0 TO X FOR Y=0 TO Y 只能得到F（1，1）F（2，2）···F（X,Y）

Dim X As Integer
Dim Y As Integer
Dim i As Integer
Dim j As Integer

X = 100
Y = 100

ReDim F(X, Y)

For i = 1 To X
For j = 1 To Y
F(i, j) '代入公式计算
Next j
Next i

For x = 0 To UBound(F, 1)
For y = 0 To UBound(F, 2)
S = F(x, y) 'S 这就是你要的数据
Next
Next