2. 计算机
  3. 下面程序的功能是从键盘输入—个大于100的整数m，计算并输出满足不等式 1+22+32+42+…+n2＜m 的最大的n。请填空。 Private Sub Command1_Click() Dim s,m,n As Integer m=Val(InputBo

下面程序的功能是从键盘输入—个大于100的整数m，计算并输出满足不等式 1+22+32+42+…+n2＜m 的最大的n。请填空。 Private Sub Command1_Click() Dim s,m,n As Integer m=Val(InputBo

admin2009-03-17  36
问题 下面程序的功能是从键盘输入—个大于100的整数m，计算并输出满足不等式
1+22+32+42+…+n2＜m
的最大的n。请填空。
Private Sub Command1_Click()
Dim s,m,n As Integer
m=Val(InputBox("请输入一个大于100的整数"))
n=【  】
s=0
Do While s＜m
n=n+1
s=s+n*n
Loop
Print "满足不等式的最大n是";【  】
End Sub
选项
答案0 , n-1
解析 Do While…Loop是先判断条件表达式的值是否为True，如果为True，则执行循环体，如果为False，则执行Loop后面的语句。由循环体可知该题的第1空应该填0。当循环条件不满足时跳出循环，此时的n是满足不等式1+22+32+42+…+n2＞=m的最小的n，所以该题的第2空应该填n-1。
转载请注明原文地址:https://kaotiyun.com/show/Nj1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)