利用vb一级编写程序

Question

统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与第3位数字之和为10，第2位与第4位数字之积为12。

是求个数哦 麻烦高手解答 不要用C语言 我还没学 看不懂 谢谢啊

Answer 1

性质1：完全平方数的末位数只能是0,1,4,5,6,9。

Private Sub Form_Click()
Cls
Print "统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与第3位数字之和为10，第2位与第4位数字之积为12。"
Print
Print "性质1：完全平方数的末位数只能是0,1,4,5,6,9。 "
Print "要求第2位与第4位数字之积为12"
Print "所以第4位数字=4 or 6"
Dim f As Integer, n As Integer
For i = 1000 To 9999
f = Right(i, 1)
If (f = 4 Or f = 6) Then
If Sqr(i) = Int(Sqr(i)) Then
Print i, Int(Left(i, 1)) + Int(Mid(i, 3, 1)), Int(Mid(i, 2, 1)) * Int(Mid(i, 4, 1))
If Int(Left(i, 1)) + Int(Mid(i, 3, 1)) = 10 And Int(Mid(i, 2, 1)) * Int(Mid(i, 4, 1)) = 12 Then n = n + 1
End If
End If
Next
Print
Print "个数=" & n
End Sub

Answer 2

Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim m As Integer, n As Integer
For a = 1 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
m = 1000 * a + 100 * b + 10 * c + d
If a + c = 10 And b * d = 12 And Sqr(m) / Fix(Sqr(m)) = 1 Then
n = n + 1
End If
Next d
Next c
Next b
Next a
Print n
End Sub本回答被提问者采纳