在线VB编程

来源：百度知道 编辑：UC知道 时间：2024/06/22 04:42:10
编写程序，满足
1。该数的位数为N（N=3，4）
2。该数的数字全部由偶数数字组成
3。该数等于另一个由偶数数字组成的数的平方

Private Sub Form_Click()
Dim i&

For i = 1 To 1000
If 2 * i * 2 * i >= 100 And 2 * i * 2 * i <= 9999 Then
Print 2 * i; Space(1); 2 * i * 2 * i; Space(3);
m = m + 1
If m Mod 5 = 0 Then Print
End If
Next i
End Sub

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 i; k
End If
EEE:
Next i
End Sub