(1) 1 - 1000 이내 의 모든 완전한 제곱 수 를 구한다. 1. 1 - 1000 이내 의 모든 완전한 제곱 수 를 구한다. 2. 키보드 에서 몇 개의 수 를 입력 하고 0 으로 끝 내 며 양수 와 음수 의 개 수 를 통계 한다.

(1) 1 - 1000 이내 의 모든 완전한 제곱 수 를 구한다. 1. 1 - 1000 이내 의 모든 완전한 제곱 수 를 구한다. 2. 키보드 에서 몇 개의 수 를 입력 하고 0 으로 끝 내 며 양수 와 음수 의 개 수 를 통계 한다.

Private Sub Command 1Click () Dim i%, k% For i = 1 To 1000 If Int (Sqr (i) = Sqr (i) Then Print i,: k = k + 1If k Mod 5 = 4 ThenPrint: k0NextEnd SubPrivate Sub Command 2Click () Dim OS%, JS%, m $m = InptBox (...