窗体之间传递数组

Question

有两个窗体： form1 form2假设form1 为主窗体,窗体内有一按钮单击按钮，出现form2form2中有text控件，可以输入数据在form2中输入数据后，单击form2中的 确定 按钮后，输入的数据存入一个数组中，同时form2关闭，form1窗体出现然后在FORM1窗体中调用 form2 中输入的数据(以数组形式)，进行运算如何实现谢谢

Answer 1

Form1 内添加：Dim str as stringPublic Sub SetData(byval strTmp as string)
    str = strTmp
End SubForm2 的按钮：private sub command1_click     Call Form1.SetData(Text1)end sub

Answer 2

在模块里面用Public声明比较好

Answer 3

Form2 内添加： public str as string 
.......相关赋值代码
Form1 的按钮： private sub command1_click 
     Form2.Show 1
     MsgBox Form2.str
end sub

Answer 4

str是一个函数的名字,是一个保留字,不能当作变量名称使用.

Answer 5

添加个模块 定义个全局数组变量 和状态变量form2关闭前 置状态变量trueform1出现时load事件中 检查状态变量 根据变量值 做相应操作
load 事件结束前把状态变量置false

Answer 6

模块中：Public a() As Doubleform1中：
Dim a() As DoublePrivate Sub Command1_Click()
Form2.Show
End SubPrivate Sub Command2_Click()
Dim a(1) As Double
Text1.Text = a(1)
End Subform2中：Dim a() As Double
Private Sub Command1_Click()
ReDim a(1) As Double
a(0) = Text1.Text
Form1.Show
Unload Form2
End Sub结果在form2输入10，在form1中输出是: 0请问错在哪里?

Answer 7

貌似inputbox比较适合你dim s
s=inputbox("请输入：")
if s<>"" then
debug.print s
end if

Answer 8

inputbox函数我知道我只是一一个数据为例而已，真实的是很多数据