Question

VB高手请进，在线等解决……

Sub CircleDemo ()
Dim Radius
R = 255 * Rnd
G = 255 * Rnd
' B = 255 * Rnd
XPos = ScaleWidth / 2
YPos = ScaleHeight / 2
'将半径设置在窗体高度的 0 到 50% 之间。
Radius = ((YPos * 0.9) + 1) * Rnd
Circle (XPos, YPos), Radius, RGB(R, G, B)
End Sub

在这个画多彩地毯的程序中 Radius = ((YPos * 0.9) + 1) * Rnd 为什么是 '将半径设置在窗体高度的 0 到 50% 之间。怎么看？详讲一下

Answer 1

Ypos=scalewidth/2即窗体高度的一半。

追问

不是这句啊，是这句Radius = ((YPos * 0.9) + 1) * Rnd

Answer 2

半径是窗体的一半，直径就不会超出窗体，以保证最大圆的完整性。