Dim CX, CY, Radius, Limit            'Declare variable.
ScaleMode = 1              '以像素为单位.
CX = ScaleWidth / 2        'X 位置.
CY = ScaleHeight / 2       'Y 位置.
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit          '半径.
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)

这个dim函数 语句不通，一般会定义为什么类型的函数。

不好意思，打错了，是定义变量，为什么声明定义什么变量，如 dim a as integer, a就是整数型变量。