快讯
首页 > 软件 > 开发特区 > 开发语言 > VB > 正文
世界杯

VB超频快餐，让我一次用个够！（四）

2004-02-14 09:34  出处：eNet学院  作者：听风  责任编辑：pjl 

在本页浏览全文
未公开的返回数组型函数加速秘诀 在VB6中，函数是能够返回数组对象的。这种情况下，我们不能象返回对象或者数值的其他函数一样使用函数名当做局部变量来存储中间结果，因此不得不生成一个临时局部数组，函数退出前再分配这个数组给函数名，就象下面的代码一样： ’ 返回一个数组，其中含有N个随即元素 ’ 并且将平均值保存在AVG中 Function GetRandomArray(ByVal n As Long, avg As Single) As Single() Dim i As Long, sum As Single ReDim res(1 To n) As Single ’ 以随机数填充数组，并计算总和 Randomize Timer For i = 1 To n res(i) = Rnd sum = sum + res(i) Next ’ 赋值结果数组，计算平均值 GetRandomArray = res avg = sum / n End Function 难以置信的是，只需要简单地颠倒最后2条语句的顺序，就能使上面这段程序变得快些： ’ ... ’ 赋值结果数组，计算平均值 avg = sum / n GetRandomArray = res End Function 例如，在一个Pentium II 333MHz 机器上，当N＝100,000时，前段程序运行时间为0.72秒，后段程序则为0.66秒，前后相差10%。 原因何在呢？前段程序中，VB将拷贝res数组到GetRandomArray对应的结果中，当数组很大时，花费的时间是很长的。后段程序中，由于GetRandomArray = res是过程的最后一条语句，VB编译器就能确认res数组不会被再使用，因此将直接交换res和GetRandomArray的地址数值，从而节省了数组元素的物理拷贝操作以及随后的res数组释放操作。 总结如下：当编写返回数组的函数时，一定要将分配临时数组到函数名的语句放在最后，就是其后紧挨者Exit Function 或者End Function的位置。
123在本页浏览全文
键盘也能翻页，试试“← →”键
软件频道本周热门文章
今日聚超值 更多>>
IT热词搜索 来源：360新闻
软件论坛精选 进入论坛>>
软件论坛帖子排行
  1. 1
    太平洋电脑网
    楼
  2. 2
    win10vpn在哪里连接 win10vpn连接方法【详解】
    楼
  3. 3
    为啥win10不推荐用火绒安全的详细介绍【详解】
    楼
  4. 4
    %E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E5%8F%AF%E4%BB%A5%E5%9C%A8%E4%BB%80%E4%B9%88%E5%9C%B0%E6%96%B9%E4%BD%BF%E7%94%A8%EF%BC%9F%E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E6%80%8E%E4%B9%88%E6%8F%90%E7%8E%B0%E5%87%BA%E6%9D%A5%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D
    楼
  5. 5
    %E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E8%81%94%E7%B3%BB%E5%AE%A2%E6%9C%8D%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D%20%E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E5%A5%BD%E7%94%A8%E5%90%97
    楼
  6. 6
    ps清理剪贴板技巧分享
    楼
  7. 7
    局域网内网速度慢的原因及解决方法
    楼
  1. 1
    太平洋电脑网
    楼
  2. 2
    win10vpn在哪里连接 win10vpn连接方法【详解】
    楼
  3. 3
    为啥win10不推荐用火绒安全的详细介绍【详解】
    楼
  4. 4
    %E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E5%8F%AF%E4%BB%A5%E5%9C%A8%E4%BB%80%E4%B9%88%E5%9C%B0%E6%96%B9%E4%BD%BF%E7%94%A8%EF%BC%9F%E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E6%80%8E%E4%B9%88%E6%8F%90%E7%8E%B0%E5%87%BA%E6%9D%A5%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D
    楼
  5. 5
    %E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E8%81%94%E7%B3%BB%E5%AE%A2%E6%9C%8D%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D%20%E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E5%A5%BD%E7%94%A8%E5%90%97
    楼
  6. 6
    ps清理剪贴板技巧分享
    楼
  7. 7
    局域网内网速度慢的原因及解决方法
    楼
  1. 1
    太平洋电脑网
    楼
  2. 2
    win10vpn在哪里连接 win10vpn连接方法【详解】
    楼
  3. 3
    为啥win10不推荐用火绒安全的详细介绍【详解】
    楼
  4. 4
    %E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E5%8F%AF%E4%BB%A5%E5%9C%A8%E4%BB%80%E4%B9%88%E5%9C%B0%E6%96%B9%E4%BD%BF%E7%94%A8%EF%BC%9F%E5%BE%AE%E4%BF%A1%E5%88%86%E4%BB%98%E6%80%8E%E4%B9%88%E6%8F%90%E7%8E%B0%E5%87%BA%E6%9D%A5%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D
    楼
  5. 5
    %E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E8%81%94%E7%B3%BB%E5%AE%A2%E6%9C%8D%E6%96%B9%E6%B3%95%E4%BB%8B%E7%BB%8D%20%E5%92%AA%E5%92%95%E5%96%84%E8%B7%91%E5%A5%BD%E7%94%A8%E5%90%97
    楼
  6. 6
    ps清理剪贴板技巧分享
    楼
  7. 7
    局域网内网速度慢的原因及解决方法
    楼
高清壁纸
相关文章

相关软件：

腾讯QQ2012
大小：52.93 MB 授权：免费
腾讯QQ2012
立即下载
腾讯QQ2013
大小：49.32 MB 授权：免费
腾讯QQ2013
立即下载
最热搜索

无线路由器怎么用 会说话的汤姆猫电脑版 12306网上订火车票 跳舞吧 flash player 下载 PP助手电脑版 Adobe Reader(pdf阅读) iOS6正式版12项新功能 QQ空间克隆器 9158视频KTV 植物大战僵尸辅助工具 Win8怎么关机 QQ空间进不去 2013年春节是几月几号 QQ昵称 QQ空间皮肤 PPT模板 电脑输入法不见了怎么办 2012中秋节是几月几日 word安全模式 qq输入法怎么点亮 IE修复 感恩节是几月几日 CSS布局 PS快捷键 Outlook设置 声卡驱动器官方免费下载 格式工厂怎么用 桌面图标有阴影怎么去掉 Windows RT是什么意思 2013年日历设计 Word打不开怎么办 Win8专区 腾讯微云网 windows8激活工具 剑灵什么时候公测 QQ通讯录怎么用 开心斗地主 拖拉机小游戏 麻将游戏 中国象棋 德州扑克 黄金矿工中文版 保皇扑克游戏 四国军棋 万圣节是几月几日 ps抠图教程 12306订票助手 万圣节小游戏大全 rar文件怎么打开 Photoshop CS6教程 iOS6完美越狱 QQ个性签名