在线VB编程

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim k As Single

For i = 100 To 9999 '认为0是偶数

For j = 1 To Len(CStr(i))

If Val(Mid(CStr(i), j, 1)) Mod 2 <>0 Then

GoTo EEE

End If

Next j

k = Sqr(i)

If k = Int(k) Then

For j = 1 To Len(CStr(k))

If Val(Mid(CStr(k), j, 1)) Mod 2 <>0 Then

GoTo EEE

End If

Next j

Print ik

End If

EEE:

Next i

End Sub

Private Sub Command1_Click()

Dim a

Static zs, fs

a = InputBox("请输入数据，0结束")

Print a

If a <>0 Then

If Val(a) >0 Then zs = zs + 1 Else fs = fs + 1

Else

Print "正数个数="zs, "负数个数="fs

End If

End Sub

---