Vb程序代码,当图片框中的项数为十时。清除图片框中的内容?

如题所述

窗体中做一个Picture控件和一个定时器控件,加上以下的代码,即可运行:
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static n
Picture1.Print Int(Rnd * 101);
If n < 10 Then n = n + 1 Else Picture1.Cls: n = 0
End Sub
温馨提示:答案为网友推荐,仅供参考