VB如何给函数传动态vb 数组作为函数参数？

来源：蜘蛛抓取(WebSpider) 时间：2015-10-21 13:47 标签： vb函数返回数组
如何把数组传递到函数中 (VB6)_百度知道
如何把数组传递到函数中 (VB6)
如何把数组传递到函数中 (VB6)
提问者采纳
你有个数组: myArray=Array(&&#47：输出;A&把指传递进去;)//:&#47:function ABC(a)
for i=0 to ubound(a)
ABC=ABC & a(i)
nextend function/B&你还有个涵数;;/C&&#47,&quot,&quot例如：msgbox ABC(myArray)/结果
提问者评价
其他类似问题
为您推荐：
您可能关注的推广回答者：
vb6的相关知识
其他1条回答
不直接返回，而外部输出没办法。 所以大家通常用Sub来代替Function
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb如何定义函数的返回值为数组？
求大神帮我看下这段vb代码：'定义绘制多段分离的函数直线,p1代表起始点，length代表钢筋的长度，distance代表钢筋的水平距离，n代表钢筋的根数Public
Function drawlines(ByVal p1 As Variant, ByVal length As Double, ByVal distance
As Double, ByVal n As Integer) As AcadLine()Dim p(2) As
'定义p2用于存储直线的终点坐标
'Dim i As Integer
'Dim objlines() As
AcadLineReDim objlines(n - 1)
'n根钢筋需要将函数定义为n-1维For i = 0 To n - 1p(0) = p1(0) + i * distance: p(1) = p1(1): p(2) =
p1(2)Set objlines(i) = drawline(p(0), length)
‘调用绘制直线的函数Next iSet
drawlines = objlinesEnd Function
错误提示是Set drawlines =
objlines“不能给数组赋值”vb中关于数组变量在函数中传递_百度知道
vb中关于数组变量在函数中传递
这种类型，我的问题是能不能传递单个数组比如Fun(SZ1(1)，请问高手如何修改,SZ2(3)),在子程序中使用单个数组就会出错,SZ2())vb函数中传递数组可以使用 Fun(SZ1()？
我有更好的答案
把子程序中的接收
变量 从 数组 改为 普通变量Function Fun(T(),M())Function Fun(T,M)
其他类似问题
为您推荐：
您可能关注的推广回答者：
数组变量的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB程序如何用ADO向Oracle存储过程传递数组参数？_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：82,024贴子：
VB程序如何用ADO向Oracle存储过程传递数组参数？收藏
　　应用需求是每次要插入5万条记录，数据库是Oracle 11g，客户端是VB6程序，用ADO连接数据库。
这样的数量选择ado的方式会很慢，建议楼主使用sqlldr或者imp/import这些命令工具，用vb写个shell就行了。
上边的代码注释符号被贴吧系统自动替换了，修正如下： *先将所有数据（p0数组和d0数组）按记录构成数组pds，以便下边一次性磁盘I/O写成数据文件。这比每条记录调用一次WriteLine，5万条记录从0.8秒减少为0.27秒。 For i = 1 To lpds(i) = p0(i) & &,& & d0(i) & &,&
’两个字段，以英文逗号分隔Next *将记录数组拼成一个大字符串，然后一次性写成数据文件Dim fs As New Scripting.FileSystemObject, ts As TextStreamlpath = &F:\document\接口程序源代码\Test源代码\&‘Set ts = fs.CreateTextFile(lpath & &array_insert.csv&, True, False)ts.WriteLine Join(pds, vbCrLf)
‘Join函数拼字符串飞快，5万条记录拼起来只消耗几十毫秒（不算WriteLine写文件的时间）；若自己用代码拼，则要几分钟。ts.Close *调用sqlldr工具，批量装载，全过程只需1秒多。加上direct参数减少数据库的开销后，全过程只需0.3秒，其中还有0.2秒是工具启动的用时，真正装载只用了0.1秒。Shell &sqlldr analyst/a & & lpath & &array_insert.ctl data=& & lpath & &array_insert.csv log=& & lpath & &array_insert.log silent=all direct=true&, vbHide
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或

我要回帖

更多关于 vb函数返回数组 的文章

 

随机推荐