题目内容
（请给出正确答案）
下面程序的功能是从键盘输入—个大于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
如搜索结果不匹配，请 联系老师 获取答案
更多“下面程序的功能是从键盘输入—个大于100的整数m，计算并输出…”相关的问题
第1题
下列程序的执行结果是______。
m1=1
m2=1
Do Whilem2＜＞6
m1=m1*m2
m2=m2+1
Loop
Printm1
第3题
程序运行后，如果单击命令按钮，则标签开始闪烁，每秒钟“炊迎”二字显示、消失各一次，如图2所示。以下是实现上述功能的程序，请填空。
Prirate Sub Form_L．aad()
Labell．Caption=“欢迎”
Timer1．Enabled=False
Timer1．Interval=【 】
Commandl．Caption=“开始闪烁”
End sut)
Private Sub Timer1_rrimer()
Label1．visible=【 】
Emi sub
PTivate Sub Commandl_Click()
【 】
End sub
.jpg){kind=spacer}
第5题
有如下事件过程：
Private Sub Form. Active ( )
Dim Score (1 to 3) As Integer
Dim i As Integer
Dim t As Variant
Fori=3 To 1 step-1
Score (i) = 2 * i
Next
For Each t In Score
Print t
Next
End Sub
程序运行后窗体上显示的值为【 】。
第6题
下列程序的功能是：当x＜50时，y =0.8 xx;当50≤x≤100时，y=0.7 xx;当x＞100时,
Private Sub Command1_Click()
Dim x As Single
x = InputBox("请输入x的值" )
Select Case x
Case Is＜50
y=0.8 * x
Case 50 To 100
y=0.7 * x
【 】
Print "输入数据出界!"
End Select
Print x, y
End Sub
第7题
下面程序实现将预先装载在Picture1中的图形清除，在横线上填写正确的语句。
Private Sub Form_Load()
Picture1．Picture=LoadPicture("face.bmp")
End Sub
Private SubCommand1 Click()
【 】
End Sub
第8题
入321和456，则输出结果为【 】。
Private Sub Command1_Click()
a=InputBox("请输入一个整数")
b=InputBox("请再输入一个整数")
Print a+b
End Sub
第9题
对于长度为n的顺序表，插入或删除表中元素的时间复杂度为【 】 ；对于顺序栈或队列，插入或删除表中元素的时间复杂度为【 】。
为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
上学吧
微信搜一搜
上学吧
