2011年计算机等级考试二级VB辅导实例编程(11)

　　五彩缤纷的清屏效果

　　在一些软件演示中，这一屏内容到下一屏内容间往往以一些有趣的清屏图案来相互切换，有的像演出舞台上的开幕、闭幕，有的像百叶窗，也有一些圆形、菱形等形态各异的清屏图案。VB作为一门优秀的WINDOWS下的开发语言，其图形功能也很强。我们完全可以用其提供的画线语句作出上述的清屏图案，下面的程序给出了常见的清屏图案程序：

　　Sub FilSCrO'设置背景色

　　Me.BackColor=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))

　　End Sub

　　Sub ClrScrl()'从左右两边到中间清屏

　　Dim i As Integer：Randomize：color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))

　　For i=0 To ScaleWidth/2

　　Line(i,0)-(i,ScaleHeight),color

　　Line(ScaleWidth-i,0)-(ScaleWidth-i,ScaleHeight),color

　　Next i

　　End Sub

　　Sub ClrSer20'从中间到左右两边清屏

　　Dim i As Integer：Randomize：color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))

　　for i=ScaleWidth/2 To 0 Step -1

　　Line(i,0)-(i,ScaleHeight-1),color

　　Line(ScaleWidth-i,0)-(ScaleWidth-i,ScaleHeight),color

　　Next i

　　End Sub

　　Sub ClrScr30'从上(顶)下(低)到中间清屏

　　Dim i As Integer：Randomize：color=RGB(Int(Rnd*256),Int(Rnd*256),Int(Rnd*256))

　　For i=0 To ScaleHeight/2

　　Line(0,i)-(ScaleWidth,i),color

　　Line(0,ScaleHeight-i)-(ScaleWidth,ScaleHeight-i),color

　　next i

　　End Sub

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等级考试二级VB辅导实例编程汇总