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/06/30 00:18:32
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
你这个没有循环知道吗?假设输入一个数字3,你的程序过程是这样的:a=1,y=1,a=1>0.00001,然后进入if,执行里面的程序,结果y=1+1*3/1=4,好了完了跳出if,然后Print显示.
vb中Option Base
vb里Option Base
请问vb中option
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记录当前已
Option Explicit什么意思如题 VB语言
option
VB程序的fix是什么意思
计算5!+10!VB程序
VB程序Sgn(-5)是什么意思
VB 执行下面程序,第一行输出结果是_,第二行输出结果是_.程序如下,答案为11,-20.请问,第二空-20怎么算Option ExplicitPrivate Sub Form_Click()Dim i As Integer,n As Integern=10For i = 1 To ni = i + 1n = n - iNext iPrint iPr
关于vb问题
VB面积计算器问题
vb 下列程序段执行的结果是
求勾股定理程序,vb语言的
一道VB题,执行下面程序,单机COMMAND1,窗体上显示的结果中I的值是(),J的值是(),K的值是().OPTION EXPLICITPrivate Sub command1_clickdim I as integer ,J as integerdim K as integer I=1:J=2K=fun(I,fun(I,J))+I+Jprint I=
VB中option base 1是什么意思啊?是不是可以用option base 3来定义一组下届为3的数组啊?
vb求最大值的问题有一个m乘n的矩阵,用vb编写程序,找出其中最大的元素所在的行和列,并输出其值及行号和列号.
请编写下列图形的VB程序 For循环结构 1 333555557777777555553331第一个1有点问题啊这个图形是上下对称的