비공개 하위 명령 1_Click()

Dim X1은 다음과 같이 길다:Dim Y1은 다음과 같다

Dim X2는 다음과 같이 길다:Dim Y2는 다음과 같다

X1 = 0

Y1 = 2000

For i =... 1에서 11

X2 = (3000 / 150) * X(i)

Y2 = 2000 - (2000 / 100) * Y(i)

그림 1. 선 (X1, Y1) - (X2, Y2), vbRed

X1 = X2: Y1 = Y2

그렇다면

...

End Joint

Private Subform_Load()

그림 1. width = 3000

그림 1. height = 2000

For i = 1 to 10

X(i) = CInt(150 * Rnd)

Y(i) = CInt(100 * Rnd)

P > 디버깅. print " x = " & ampX(i) and amp" ;" & amp" y = " & ampY(i)

그렇다면

Dim minX는 다음과 같이 길다 :Dim minY는 다음과 같이 길다

For i = 1 to 9

For j = i + 1 to 10

If X(I) & gt; Then X(j)

Crazy Girl = X(i): X(i) = X(j): X(j) = Crazy Girl

다음이면 끝납니다...