Question

如何用vb调用一个窗体中的数组到另一个窗体中进行加法运算，请高手帮忙，万分感激！！！

Answer 1

声明模块级变量
添加一个模块，写入
public a() as （你要的类型）

这样，这个数组可以在各个窗体间调用

追问

一个窗体中有两个文本框text1，text2，一个按钮command1
通过按钮把两个文本框的数据储存到两个数组中dim A(10) dimB(10)
在另一个窗体中有一个command按钮，通过按钮把上一个窗体的两个数组中的值赋给函数y=a*X*X+b*X+c*X*X+d*X如把a(0) b(0)赋给a b，a(1) b(1)赋给c d请高手帮忙，万分感激！！！！！！！！！！！

追答

声明模块级变量
添加一个模块，写入
public A(10),B(10)
窗体1中
private sub command1_click()
static i as integer
if i>10 then msgbox "数组赋值完成":exit sub
a(i)=val(text1.text)
b(i)=val(text2.text)
end sub
窗体2中
private sub command1_click()
a=a(0):b=b(0)
c=a(1):d=b(1)
y=a*X*X+b*X+c*X*X+d*X
end sub

追问

高手，按照您的代码执行以后，怎么不行啊？希望高手指点，谢谢，为什么a b c d 的值赋不过去呢

追答

哦，忘了
数组a和变量a重名了
可以把变量a,b 改成a1,b1

Answer 2

假如你已经有了两个窗体，
那就工程-添加模块，把你两个窗体中要共用的数组（也就是变量）定义删除，放在在模块中，
这样你就可以在两个窗体中共享这变量了。

追问

一个窗体中有两个文本框text1，text2，一个按钮command1
通过按钮把两个文本框的数据储存到两个数组中dim A(10) dimB(10)
在另一个窗体中有一个command按钮，通过按钮把上一个窗体的两个数组中的值赋给函数y=a*X*X+b*X+c*X*X+d*X如把a(0) b(0)赋给a b，a(1) b(1)赋给c d请高手帮忙，万分感激！！！！！！！！！！！

追答

说得不清楚。另外你不能针对每个回答者不同的追问么？
如果你不针对别人提问，那别人也不针对你回答好了。

追问

恩，高手说的是，以后我会注意的，只不过这个问题一直没解决，心里着急，所以就采取了这样的做法，以后我会改的，谢谢高手的提醒，谢谢！！

追答

也许你确实很急，所以你的追问仍然没有把问题表述清楚。

Answer 3

莫名其妙。麻烦说的详细点。

追问

一个窗体中有两个文本框text1，text2，一个按钮command1
通过按钮把两个文本框的数据储存到两个数组中dim A(10) dimB(10)
在另一个窗体中有一个command按钮，通过按钮把上一个窗体的两个数组中的值赋给函数y=a*X*X+b*X+c*X*X+d*X如把a(0) b(0)赋给a b，a(1) b(1)赋给c d请高手帮忙，万分感激！！！！！！！！！！！