VB 中form1中有二维数组out(i,o),我想让该数组在form2中显示 怎么做,该怎么显示,请高手指点,

PrivateSubForm_Load()DimjAsInteger,qAsIntegerForj=1To(total_way+1)Fori=0To10A(j,i)=St... Private Sub Form_Load()

Dim j As Integer, q As Integer

For j = 1 To (total_way + 1)
For i = 0 To 10
A(j, i) = Str(Format(Form1.out(0, i), ".00"))
q = q + 1
Print A(j, i)
If q Mod 11 = 0 Then
Print
End If

Next i
Next j

End Sub
展开
 我来答
归萱pN
2012-05-09 · TA获得超过989个赞
知道大有可为答主
回答量:1068
采纳率:0%
帮助的人:1477万
展开全部
插入一个模块
在模块中定义一个public 数组,如果是动态数组直接定义为public out(),如果知道维数那就直接指定,比如public out(10,10)
然后你可以在任何一个form中赋值或引用计算、输出等。
追问
怎么输出呢 我不会 能举一个具体的例子吗比如怎么把form1中的数组显示在form2中 谢谢
追答
‘模块:--------------
Option Explicit
Public mydata
'form1:---------------
Private Sub Form_Load()
mydata = Time()
Me.Hide
Form2.Show
End Sub
'form2:---------------------
Private Sub Form_Activate()
Print mydata
End Sub
Bengbeng01
2012-05-09 · TA获得超过747个赞
知道小有建树答主
回答量:400
采纳率:80%
帮助的人:122万
展开全部
再添加一个窗体form2
然后将上述代码的print改成form2.print
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式