1 Dim iAs Integer
2 Private Sub Command1_Click( )
3 i= Rnd*①+ 1
4 i= Int (i)
5 Image1.Picture②( AppPath & "" & i &"jpg") '加载相应点数的图片
6 End Sub