問答題

【簡答題】
下面的程序功能是找出滿足下列條件的四位整數；（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

答案： Private Sub Form_Click（）
Dim i As Integer，m As Integer，...

你可能感興趣的試題

【簡答題】
輸入任意長度的字符串，要求將字符順序倒置，例如“ABCDEFG”變換為“GFEDCBA”。

答案： Private Sub Command1_Click（）
Dim a As String，c As Strin...

【簡答題】
下面程序段要輸出結果如圖所示，試將程序段填寫完整。

答案： Private Sub Command1_Click() 　　
For a =1 To __6__ 　　