执行如图所示的程序框图。若输入p的值是7,则输出S的值是____.
展开全部
'当p=7时结果为:0.984375
'程序如下:
Private Sub Command1_Click()
Dim p As Integer, n As Integer
p = Val(InputBox("请输入P值"))
n = 1
s = 0
Do While (n < p)
DoEvents
s = s + 2 ^ -n
n = n + 1
Loop
Print s
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询