VB程序问题Option Explicit'这是老师给的答案:Private Sub Form_Click()Dim y
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/24 14:33:19
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
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
你这个没有循环知道吗?假设输入一个数字3,你的程序过程是这样的:a=1,y=1,a=1>0.00001,然后进入if,执行里面的程序,结果y=1+1*3/1=4,好了完了跳出if,然后Print显示.
VB程序问题Option Explicit'这是老师给的答案:Private Sub Form_Click()Dim y
VB中 Option ExplicitPrivate Sub Form_Click()Dim 5Fg Integer (
在vb中 ,输入一个正整数,编程判断该数是奇数还是偶数. Private Sub Form_Click() Dim X
Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As In
vb Scale问题Private Sub Form_Click()X1 = -100Y1 = 100X2 = 100Y
用vb 求π Private Sub Form_Click()Dim i As Long,pi As Double,k
问一道VB填空题:Private Sub Form_Click() Dim x As Integ
VB里面Private Sub form_click()什么意思
VB编程option base 1private sub command1_click() dim d d=array(
access下面程序运行后输出的是 Private Sub Form_Click() For i=1 To 4 x=1
Private Sub Form_Click()
1.Private Sub Form_Click()