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

　　Sub ClrScr40'从中间到上(顶)下(底)清屏

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

　　For i=ScaleHeight/2 To 0 Step -1

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

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

　　Next i

　　End Sub

　　Sub ClrScr50'菱形清屏，从四角向中心

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

　　For i=0 To ScaleWidth Sep 200

　　For j=0 To ScaleHeight Step200*ScaleHeight/ScaleWidth

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

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

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

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

　　Next j

　　Next i

　　End Sub

　　Sub ClrScr60'圆形清屏，由大至小从外围向中心

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

　　For i=ScaleWidth To 0 Step-3

　　Circle(ScaleWidth/2,ScaleHeight/2,i/2,color

　　Next i

　　End Sub

　　Sub ClrScr70'圆形清屏，由小至大从中心向外围

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

　　For i=0 To ScaleHeight Step 3

　　Circle(ScaleWidth/2,ScaleHeight/2),i/2,color

　　Next i

　　End Sub

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

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

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

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