Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As Integer,c As Integer,d As Singlea = 1b = 1c = 0d = 0Do While Abs(b / a) > 0.000001d = d + b / ac = c + 1a = a * cb = -bLoopPrint dEnd Sub-学生作业帮-兵器谱
兵器谱——汇集古今中外经典兵器
学生作业帮

Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As Integer,c As Integer,d As Singlea = 1b = 1c = 0d = 0Do While Abs(b / a) > 0.000001d = d + b / ac = c + 1a = a * cb = -bLoopPrint dEnd Sub

来源:学生作业帮 编辑:作业帮 时间:2019/03/23 12:55:12

Vb求N的阶层
我自己做的,
Private Sub Form_Click()
Dim a As Single,b As Integer,c As Integer,d As Single
a = 1
b = 1
c = 0
d = 0
Do While Abs(b / a) > 0.000001
d = d + b / a
c = c + 1
a = a * c
b = -b
Loop
Print d
End Sub

Do While Abs(b / a) > 0.000001 这条语句应该就不是对的.
而且.你这个题出的也不全.没有给出n.如果这样.你应该自己生成一个.
然后.就不是Do While Abs(b / a) > 0.000001
应该是do while c

Vb求N的阶层我自己做的,Private Sub Form_Click()Dim a As Single,b As Integer,c As Integer,d As Singlea = 1b = 1c = 0d = 0Do While Abs(b / a) > 0.000001d = d + b / ac = c + 1a = a * cb = -bLoopPrint dEnd Sub 怎么用VB计算N的阶层 vb求n的阶乘n 一道关于VB的题!计算1的阶乘分之一 加 2的阶乘分之一 加 3的阶乘分之一 加 4的阶乘分之一下面是我自己编的代码 Private Sub Command1_Click()n = 1s = 1Do While n < 5For i = 1 To ns = s * iNext im = m + 1 / sn = n + VB里的“Private Sub Command1_Click()”是什么意思?那个横, VB 求1000以内素数的和 这个哪里错了 不能用for语句Private Sub Command1_Click() n = 0 '0-1000的一个数 s = 0 '素数和 i = 1 '求余变量 Do While n VB 求10000-99999之间的全部回文式素数我写的程序如下,始终显示ByRef的参数类型错误,Private Function fact(n%) As BooleanDim s%fact = TrueFor s = 2 To n - 1If n Mod i = 0 Thenfact = FalseExit ForEnd IfNext iEnd FunctionPrivate VB 求10000-99999之间的全部回文式素数我写的程序如下,始终显示ByRef的参数类型错误,Private Function fact(n%) As BooleanDim s%fact = TrueFor s = 2 To n - 1If n Mod i = 0 Thenfact = FalseExit ForEnd IfNext iEnd FunctionPrivate 但是VC比VB功能多吧 他俩是完全两立的还是VC能做VB做的软件 也能做自己的软件呢 还是VC 做VC的 VB 做VB的啊 我不学VB能学会VC吗VB能做的VC能做吗 vb的问题,求一个算法!每个字母改为它后面的第N个字母.我大概写了下,这看来好像没有问题,但是当输入最后三个字母后(包括大写),x,y,z 就有问题了.Private Sub Command1_Click()n$ = Text1.TextFor i = 1 T 一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_Click()a = Val(Text1.Text)If Int(n / 2) = n / 2 Thenb = 这个数是偶数ElseIf Int(n / 1) = n / 1 Thenb = 这个数是 vb编程:求a=1+3+5+.+(2n-1)的值Private Sub Form_click()Dim a As IntegerDim i As IntegerDim n As Integern = InputBox(n=)For i = 1 To n a = a + 2 * n - 1Next iPrint n=; n, a=; aEnd Sub怎么不对呢? vb循环语句中sqr(n)是什么意思for i=2 to sqr(n) 中sqr(n)代表什么意思?我只能肯定不是开根号的意思!Private Sub Form_Click()Dim n As Integern = InputBox(请输入一个正整数(>=3))k = 0For i = 2 To Sqr(n)If n Mod i = 0 Th 士是什么阶层的? 儒家思想代表的阶层 求Fibonacci数列的第n项的VB程序 用VB编程求Fibonacci数列的第n项 vb:求两自然数m,n的最小公倍数?
  • 男孩应该体谅女孩子的十个地方
  • 时尚文化十大掌门人
  • 歧视女人的,自己对号!
  • 俺升官了!
  • 十分奇怪~~~~
  • 俄空军欲驾轰炸机着陆华府 美断然拒绝
  • 来啊,食狗肉噶
  • 灌水笑话四则
  • 俄四大战略轰炸机
  • 山哥来呀?和小弟讨论下。
  • 原创:读兰德公司报告有感于中华的复兴
  • 美、台在挑逗中国大陆仓促开战
  • 有杭州的朋友吗?请教一个问题!
  • 大家都别吵了,接故事好不好?
  • [原创]半潜舰
  • 中国新一代火箭仅次于日本H2A的----!
  • 在你心中有这样的一个人吗?~~(看过
  • 什么是超大的最高利益?
  • 《世界安全》特稿:中国的核力量
  • 参赛
  • 超级幻想Apple手机
  • 已知y=三次根号x+1加根号2-x除以根号x,求使y有意义的x的取值范围
  • 225的开方减负0.16的开方怎么算?
  • 2,至今,人们发现体积最大的恐龙叫什么名字,他有多大
  • 抗菌整理剂的主要功能是?
  • 一台起重机将重3600N的货物提高4m,如果该起重机的机械效率是60%,求:⑴ 起重机做的有用功是多少?⑵ 总功是多少?⑶额外功又是多少?
  • 起重机将货物举得越高,机械效率越高吗?是那种用杠杆的起重机,区别于滑轮组
  • 根号3-X+根号X-3 X的取值范围是?
  • 根号x+1-根号x-1,x的取值范围
  • 若根号x/根号3 - x=根号下x/3-x,则x的取值范围是
  • 笔尖上蘸石灰歇后语写白字
  • 根号2-x+根号x,求x取值范围
  • 毛尖蘸石灰( 打一歇后语)
  • 根号下1+1/x分之1 求x取值范围
  • 偕音歇后语:笔尖上蘸石灰————谐音!
  • 有没有比人还大的蚂蚁
  • 石灰水怎样可以变成澄清石灰水求大神帮助
  • 二次根号根号6-x中x的取值范围是
  • k的音标是什么
  • 怎样证明气门是气体进入蝗虫身体的门户?(要有实验步骤)
  • K.K.音标表与国际音标对照表.哪位兄弟姐妹提供提供.小弟正在学李阳疯狂英语.
  • 英语的k.k音标是指什么?两个k代表什么?我是想问两个字母课是什么的缩写或者代表什么词。
  • 兵器谱,汇集天下名器。查啊作业帮整容说文库