[填空題] 下面程序的功能是從鍵盤輸入—個大于100的整數(shù)m，計算并輸出滿足不等式
1+2²+3²+4²+…+n²＜m
的最大的n。請?zhí)羁铡?br> Private Sub Command1_Click()
Dim s,m,n As Integer
m=Val(InputBox("請輸入一個大于100的整數(shù)"))
n= 【6】
s=0
Do While s＜m
n=n+1
s=s+n*n
Loop
Print "滿足不等式的最大n是"; 【7】
End Sub

[6] 0

[7] n-1[評析] Do While…Loop是先判斷條件表達式的值是否為True，如果為True，則執(zhí)行循環(huán)體，如果為False，則執(zhí)行Loop后面的語句。由循環(huán)體可知該題的第1空應該填0。當循環(huán)條件不滿足時跳出循環(huán)，此時的n是滿足不等式1+22+32+42+…+n2＞=m的最小的n，所以該題的第2空應該填n-1。