问答题

下面的程序功能是找出满足下列条件的四位整数;(1)是一个完全平方数;(2)第一,二位数相等,第三、四位数相等,同时统计满足条件的数的个数,完善程序。
Private Sub Form_Click()
Dim i As Integer,m As Integer,n As Integer
n = 0
For i = 32 To 99
m = i * i
If ()Then
Print m;
()
End If
Next i
Print
MsgBox "共找出" & s & "个符合条件的四位数"
End Sub


您可能感兴趣的试卷

你可能感兴趣的试题