VB正确例题随机动画图像代码.pdf

Private Declare Sub Sleep Lib kernel3 2(ByVai dwMilliseconds As Long)Private Sub Commandl_Click()Dim i As LongFor i=0 To 9Picturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.Print”;Picturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintNextEnd SubPrivate Sub Command2_Click()Picturel.CisEnd SubPrivate Sub Command3 _Click()SavePicture Picturel.Image,App.Path&我的图片.jpeg”End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form Load()Picturel.AutoRedraw=TruePicturel.AutoSize=TrueEnd SubPrivate Sub TimerITimer()Call Command1_C1ickSleep 1Call Command2_ClickSleep 1Call Command1_C1ickEnd Sub