VB程序问题Option Explicit'这是老师给的答案:Private Sub Form_Click()Dim y As Single,x As Single,a As Single,i As Integerx = InputBox("输入x")a = 1 '递推公式,a0=1,ai=x*ai-1/i i>0y = a 'y用来保存运算结果i = 0 'i记录当前已
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 18:08:00
![VB程序问题Option Explicit'这是老师给的答案:Private Sub Form_Click()Dim y As Single,x As Single,a As Single,i As Integerx = InputBox(](/uploads/image/z/8800728-24-8.jpg?t=VB%E7%A8%8B%E5%BA%8F%E9%97%AE%E9%A2%98Option+Explicit%27%E8%BF%99%E6%98%AF%E8%80%81%E5%B8%88%E7%BB%99%E7%9A%84%E7%AD%94%E6%A1%88%3APrivate+Sub+Form_Click%28%29Dim+y+As+Single%2Cx+As+Single%2Ca+As+Single%2Ci+As+Integerx+%3D+InputBox%28%22%E8%BE%93%E5%85%A5x%22%29a+%3D+1+%27%E9%80%92%E6%8E%A8%E5%85%AC%E5%BC%8F%2Ca0%3D1%2Cai%3Dx%2Aai-1%2Fi+i%3E0y+%3D+a+%27y%E7%94%A8%E6%9D%A5%E4%BF%9D%E5%AD%98%E8%BF%90%E7%AE%97%E7%BB%93%E6%9E%9Ci+%3D+0+%27i%E8%AE%B0%E5%BD%95%E5%BD%93%E5%89%8D%E5%B7%B2)
VB程序问题Option Explicit'这是老师给的答案:Private Sub Form_Click()Dim y As Single,x As Single,a As Single,i As Integerx = InputBox("输入x")a = 1 '递推公式,a0=1,ai=x*ai-1/i i>0y = a 'y用来保存运算结果i = 0 'i记录当前已
VB程序问题
Option Explicit
'
这是老师给的答案:
Private Sub Form_Click()
Dim y As Single,x As Single,a As Single,i As Integer
x = InputBox("输入x")
a = 1 '递推公式,a0=1,ai=x*ai-1/i i>0
y = a 'y用来保存运算结果
i = 0 'i记录当前已经累加的项数
While a >= 0.00001 '判出条件
i = i + 1
a = a * x / i
y = y + a
Wend
Print "y="; y
End Sub
自己写的这个为什么不对?
Private Sub Form_Click()
Dim y As Single,x As Single,a As Single,i As Integer
x = InputBox("请输入x")
i = 0
a = 1
y = a
If a > 0.00001 Then
i = i + 1
a = a * x / i
y=y+a
end if
print y
end sub
VB程序问题Option Explicit'这是老师给的答案:Private Sub Form_Click()Dim y As Single,x As Single,a As Single,i As Integerx = InputBox("输入x")a = 1 '递推公式,a0=1,ai=x*ai-1/i i>0y = a 'y用来保存运算结果i = 0 'i记录当前已
你这个没有循环知道吗?假设输入一个数字3,你的程序过程是这样的:a=1,y=1,a=1>0.00001,然后进入if,执行里面的程序,结果y=1+1*3/1=4,好了完了跳出if,然后Print显示.