例程如下：

　　PrivateSubCommand4—Click()

　　　　DimfsoAsNewFileSystemObject,txtfileAsTextStream,fil1AsFile,fil2AsFile

　　　　Settxtfile=fso.CreateTextFile(″c: estfile.txt″,True)

　　　　txtfile.Write(″这是一个测试文件!″)

　　　　txtfile.Close

　　　　Setfil1=fso.GetFile(″c: estfile.txt″)

　　′获得一个文件句柄

　　　　fil1.Copy(″c: emp1 estfile.txt″)　　

　　′将该文件复制到 emp1目录下

　　　　fil1.Move(″c: emp2 estfile.txt″)　　

　　′将该文件移动到 emp2目录下

　　　　Setfil1=fso.GetFile(″c: emp1 estfile.txt″)

　　　　′获得这些文件当前位置的句柄

　　　　Setfil2=fso.GetFile(″c: emp2 estfile.txt″)

　　　　fil1.Delete

　　　　fil2.Delete

　　EndSub->

与栈类似，队列中可以操作数据的位置也有一定的限制if (!this.dialect.afterCount(count, parameter, rowBounds)) {在API文本浏览器里，当我们在搜索栏输入任意字母，“可用项”里以该字母开头的项目以高亮显示以引起我们注意该项是不是我们所需的

在forml中编制程序如下：

DimScreenhWnd％，ScreenDC％，rc％

′WindowsAPI函数

DeclareFunctionBitBlt％Lib＂GDI＂（ByValhDest?DC％，ByValdx％，ByValdy％，ByValnWidth％，ByValnHeight％，ByValhSrcDC％，ByValsx％，ByValsy％，ByValdwRop＆）

DeclareFunctionGetDesk?topWindow％Lib＂USER＂（）

DeclareFunctionGetDC％Lib＂US?ER＂（ByValhWnd％）

DeclareFunctionReleaseDC％Lib＂USER＂（ByValhWnd％，ByValhDC％）

SubForm－Load

′form1窗体大小、位置与屏幕重合

form1?Width＝Screen?Width

form1?Height＝Screen?Height

form1?left＝0

form1?top＝0

′form2窗体大小、位置与屏幕重合

form2?Width＝Screen?Width

form2?Height＝Screen?Height

form2?left＝0

form2?top＝0

′将整屏画面抓到form1中

ScreenhWnd％＝GetDesktopWindow％（）

ScreenDC％＝GetDC％（ScreenhWnd％）

rc％＝BitBlt％（form1?hDC，0，0，form1?ScaleWidth，form1?ScaleHeight，

ScreenDC％，0，0，＆HCC0020）

rc％＝ReleaseDC％（ScreenhWnd％，ScreenDC％）

′显示form1和form2

form2?Show

form1?Show

′上下移动form1

WhileTrue

form1?Top＝form1?Top＋500

′500为移动速度

ifform1?Top＞Screen?HenghtThen

′超出屏幕下界时回到最上面

form1?Top＝－Screen?Height

Endif

DoEvents′响应其它事件

Wend

EndSub

′点击鼠标结束滚幕

SubForm－MouseDown（）

End

EndSub

实现效果二：整屏画面连续不断地翻滚

FunctionCheckSpell(IncorrectTextasstring)asstring

DimWordAsObject,retText$

OnErrorResumeNext

'建立对象并打开WORD

SetWord=CreateObject("Word.Basic")

'把需要检查的STRING放到WORD

Word.AppShow

Word.FileNew

Word.InsertIncorrectText

'运行WORD拼写检查

Word.ToolsSpelling

Word.EditSelectAll

'取返回值

retText=Word.Selection$()

CheckSpell=Left$(retText,Len(retText)-1)

'关闭文件并回到VB应用

Word.FileClose2

Show

SetWord=Nothing

EndFunction->

运行以下命令,运行完成后，在work-node1与work-node2中也执行一下：

cad当前页面发生下面是应用这个技术的几段具体代码：

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

If(x<0Andy<0)Or(x>=0Andy>=0)Then...

'theoptimizedapproach

If(xXory)>=0Then

2、判断X、Y和Z是否都为正数

Ifx>=0Andy>=0Andz>=0Then...

'theoptimizedapproach

If(xOryOrz)>=0Then...

3、判断X、Y和Z是否都为负数

Ifx<0Andy<0Andz<0Then...

'theoptimizedapproach

If(xAndyAndz)<0Then...

4、判断X、Y和Z是否都为0

Ifx=0Andy=0Andz=0Then...

'theoptimizedapproach

If(xOryOrz)=0Then...

5、判断X、Y和Z是否都不为0

Ifx=0Andy=0Andz=0Then...

'theoptimizedapproach

If(xOryOrz)=0Then...

要使用这些来简单化一个复杂的表达式，必须要完全理解boolean型的操作原理this.taskName=taskName;。