下面的程序功能是找出滿足下列條件的四位整數(shù)；（1）是一個(gè)完全平方數(shù)；（2）第一，二位數(shù)相等，第三、四位數(shù)相等，同時(shí)統(tǒng)計(jì)滿足條件的數(shù)的個(gè)數(shù)，完善程序。
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 & "個(gè)符合條件的四位數(shù)"
End Sub
您可能感興趣的試卷
你可能感興趣的試題
下面程序段要輸出結(jié)果如圖所示，試將程序段填寫完整。
以下程序段執(zhí)行后整型變量n的值為？
程序運(yùn)行后，單擊窗體，輸出結(jié)果為？
最新試題
在VB中，過(guò)程分為（）過(guò)程和（）過(guò)程。
注釋語(yǔ)句是為方便閱讀而對(duì)程序進(jìn)行的說(shuō)明，VB提供了兩種注釋語(yǔ)句，當(dāng)使用（）時(shí)，單獨(dú)占一行，使用（）時(shí)，可以放在其他語(yǔ)句的行尾。
在VB中，錯(cuò)誤信息一般使用（）對(duì)象獲得，它的常用（）屬性存儲(chǔ)當(dāng)前錯(cuò)誤的編號(hào)，（）屬性存儲(chǔ)當(dāng)前錯(cuò)誤的描述。
（）函數(shù)用于計(jì)算表達(dá)式的值并據(jù)此返回兩個(gè)值中的一個(gè)。
模塊級(jí)變量使用（）或（）來(lái)聲明，全局變量使用（）聲明。
在VB中，任何非0值均可視為True，但是一般使用（）來(lái)表示True，使用（）來(lái)表示False。
（）和（）函數(shù)分別返回一個(gè)數(shù)組中指定維數(shù)的下標(biāo)下界和下標(biāo)上界值。
使用public語(yǔ)句在（）中聲明全局?jǐn)?shù)組，使用（）語(yǔ)句在過(guò)程中聲明靜態(tài)數(shù)組。
動(dòng)態(tài)數(shù)組是指計(jì)算機(jī)在執(zhí)行過(guò)程中才給數(shù)組開(kāi)辟內(nèi)存空間的數(shù)組。可以使用（）語(yǔ)句再次分配動(dòng)態(tài)數(shù)組的內(nèi)存空間，也可使用（）語(yǔ)句刪除它。
數(shù)組默認(rèn)下標(biāo)政界為（），假如希望下標(biāo)從1開(kāi)始，則應(yīng)通過(guò)（）語(yǔ)句來(lái)設(shè)置。