VB“超频”秘籍之隐藏的Variant变量_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

VB“超频”秘籍之隐藏的Variant变量

作者：闵涛文章来源：闵涛的学习笔记点击数：742 更新时间：2009/4/23 15:03:20

　　火眼识破隐藏的Variant变量

　　如果没有用As语句声明变量，默认类型就是Variants，比如：

Dim name ’ this is a variant
　　或者，当前模块下没有声明Option Explicit语句时，任何变量都是Variants类型。

　　许多开发者，特别是那些先前是C程序员的人，都会深信下面的语句将声明2个Interger类型变量：

Dim x, y As Integer
　　而实际上，x被声明为了variant类型。由于variant类型变量要比Integer类型慢很多，所以要特别注意这种情况。正确的一行声明方法是：

Dim x As Integer, y As Integer
　　GoSub在编译程序中速度变慢

　　编译为本地代码的VB应用程序中，如果使用 GoSubs 命令，就会比通常的 Subs 或者 Function 调用慢5-6倍；相反，如果是p-code模式，就会相当快。减少DoEvents语句的数量

　　不要在代码中放置不必要的DoEvents语句，尤其是在时间要求高的循环中。遵循这个原则，至少能在循环中的每N次反复时才执行DoEvents语句，从而增强效率。比如使用下面的语句：

If (loopNdx Mod 10) = 0 Then DoEvents
　　如果只是使用DoEvents来屏蔽鼠标以及键盘操作，那么就可以在事件队列中存在待处理项目时调用它。通过API函数GetInputState来检查这个条件的发生：

Declare Function GetInputState Lib "user32" Alias "GetInputState" () As Long

’ ...

If GetInputState() Then DoEvents
　　为常量定义合适的类型

　　VB在内部使用最简单、最可能的数据类型保存符号数值，这意味着最通常的数字类型－比如0或者1－都按照Integer类型存储。如果在浮点表达式中使用这些常量，可以通过常量的合适类型来加速程序运行，就象下面的代码：

value# = value# + 1#.
　　这个语句强迫编译器按照Double格式存储常量，这样就省却了运行时的隐含转换工作。还有另外的一种处理方法就是：在常量声明时就进行相应类型的定义，代码如下：

Const ONE As Double = 1
　　And、Or和Xor：让我们来优化表达式

　　要检测一个整数值的最高有效位是否有数值，通常要使用如下的代码（有二种情况：第一组If判断表明对Integer类型，第二组对Long类型）：

If intValue And &H8000 Then

’ most significant bit is set

End If

If lngValue And &H80000000 Then

’ most significant bit is set

End If
　　但由于所有的VB变量都是有符号的，因此，最高有效位也是符号位，不管处理什么类型的数值，通过下面的代码就可以实现检测目的：

If anyValue < 0 Then

’ most significant bit is set

End If
　　另外，要检测2个或者更多个数值的符号，只需要通过一个Bit位与符号位的简单表达式就可以完成。下面是应用这个技术的几段具体代码：

　　1、判断X和Y是否为同符号数值：

If (x < 0 And y < 0) Or (x >= 0 And y >=0) Then ...

’ the optimized approach

If (x Xor y) >= 0 Then
　　2、判断X、Y和Z是否都为正数

If x >= 0 And y >= 0 And z >= 0 Then ...

’ the optimized approach

If (x Or y Or z) >= 0 Then ...
　　3、判断X、Y和Z是否都为负数

If x < 0 And y < 0 And z < 0 Then ...

’ the optimized approach

If (x And y And z) < 0 Then ...
　　4、判断X、Y和Z是否都为0

If x = 0 And y = 0 And z = 0 Then ...

’ the optimized approach

If (x Or y Or z) = 0 Then ...
　　5、判断X、Y和Z是否都不为0

If x = 0 And y = 0 And z = 0 Then ...

’ the optimized approach

If (x Or y Or z) = 0 Then ...
　　要使用这些来简单化一个复杂的表达式，必须要完全理解boolean型的操作原理。比如，你可能会认为下面的2行代码在功能上是一致的：

If x <> 0 And y <> 0 Then

If (x And y) Then ...
　　然而我们可以轻易地证明他们是不同的，比如X＝3（二进制＝0011），Y＝4（二进制＝0100）。不过没有关系，遇到这种情况时，我们可以对上面的代码进行局部优化，就能实现目的。代码如下：

If (x <> 0) And y Then ...

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： VB中使用水晶报表编程的一种简单方法

下一篇教程：浅议VB6字节数组和字符串的相互转换

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……