(1) Find all complete squares within 1-1000 1 find all complete squares within 1-1000 2 input a number of numbers from the keyboard, end with 0, count the number of positive and negative numbers

(1) Find all complete squares within 1-1000 1 find all complete squares within 1-1000 2 input a number of numbers from the keyboard, end with 0, count the number of positive and negative numbers

Private Sub Command1_ Click()Dim i%,k%For i = 1 To 1000If Int(Sqr(i)) = Sqr(i) Then Print i,:k = k + 1If k Mod 5 = 4 Then Print:k = 0NextEnd SubPrivate Sub Command2_ Click()Dim OS%,JS%,m$m = InputBox("...