2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB輔導(dǎo)實(shí)例編程(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月計(jì)算機(jī)等級(jí)考試成績(jī)查詢(xún)時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB輔導(dǎo)實(shí)例編程匯總