有关分析VB数据的问题

Option Explicit
Dim R As Integer

Private Sub Command1_Click()
  Picture1.Cls
  R = 0
  Timer1.Enabled = True
  Command1.Enabled = False
End Sub

Private Sub Form_Load()
  Picture1.Cls
  Timer1.Enabled = False
  Timer1.Interval = 100
  Command1.Caption = "开始"
  R = 10

  Picture1.ScaleWidth = 2
  Picture1.ScaleMode = 3
  Picture1.Scale (-500, 500)-(500, -500)

End Sub

Private Sub Timer1_Timer()
 Picture1.Circle (0, 0), R, vbRed, , , 0.5
 R = R + 10
 If R >= 500 Then
   Timer1.Enabled = False
   Command1.Enabled = True
 End If
End Sub
我想知道
1。程序里所使用的数据结构，函数中形式参数的类型及意义以及控件的属性设置等
2。程序结构的大概说明
3，程序中使用的核心算法
     急用，希望可以出手帮忙解决一下

追问：恩，知道，我主要是想知道下面的这3点
1。程序里所使用的数据结构，函数中形式参数的类型及意义以及控件的属性设置等
2。程序结构的大概说明
3，程序中使用的核心算法
 写论文答辩用的

答案：'界面上一个图片框Picture1，一个定时器Timer1，一个“重置”按钮Command1
Option Explicit
Dim R As Integer

Private Sub Command1_Click()  '"开始"按钮
    Picture1.Cls    '清图
    R = 0
    Timer1.Enabled = True   '定时器从新工作
    Command1.Enabled = False
End Sub

Private Sub Form_Load()   '初始化
      Picture1.Cls
      Timer1.Enabled = False    '定时器无效
      Timer1.Interval = 100    '时间间隔
      Command1.Caption = "开始"
      R = 10
    
      Picture1.ScaleWidth = 2
      Picture1.ScaleMode = 3
      Picture1.Scale (-500, 500)-(500, -500)
End Sub

Private Sub Timer1_Timer()
    Picture1.Circle (0, 0), R, vbRed, , , 0.5   '图片框中画了个圆，圆心(0,0)，半径R，颜色：红，0.5椭圆
    R = R + 10           '半径越来越大
    If R >= 500 Then      '半径大于500 停止画圆
        Timer1.Enabled = False   '定时器不工作
        Command1.Enabled = True   '重置按钮有效
    End If
End Sub

其他：你试下不就知道了,好像是在每隔100ms画一个红色的圆,圆的大少与R有关

上一个：用1分，2分，5分共100枚硬币组成1.5元钱。用vb的方法表示所有的可能。
下一个：VB 如何放大或缩小一个给定的图片啊？注意不是放大安装图片的框，而是图片本身