写出程序运行时单击窗体后的结果。 Private Sub Form_Click() Dim i As Integer For i = 1 To 1000 Call Circledemo Next i End Sub Sub Circledemo() Dim Radius As Single, XPos As Single, YPos As Single R = 255 * Rnd: G = 255 * Rnd: B = 255 * Rnd XPos = ScaleWidth * Rnd: YPos = ScaleHeight * Rnd Radius = ((YPos * 0.9) + 1) * Rnd / 10 Circle(XPos, YPos), Radius, RGB(R, G, B) End Sub