00问答网
所有问题
vb编程一个过程,用来计算并输出s=1/2+1/3+....+1/100的值。
如题所述
举报该问题
推荐答案 2010-10-19
sub jisuan()'自定义函数,供调用
dim s'定义变量
for x= 2 to 100 'For循环
s=s+1/x '累加
next
print s’输出打印
end sub
========================================
您的问题==我的课题 奉献知识==辉煌生命
黑龙江省 张志晨
========================================
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://00.wendadaohang.com/zd/DIDTe0jTr.html
相似回答
在
vb
用do~~~loop语句
计算
:1+1/
2+1
/
3+1
/4+~~~+1/
100
答:
Dim sum As Double, n As Doublesum = 0n = 1Do While n <=
100
a = 1 / n sum = sum + a n = n + 1Loop
2
.编写
一个
程序
,计算1+1
/2!+1/
3
!+1/4!+… +1/
100
!
的值
。
并输出
结果
答:
先解答
计算1+1
/2!+1/3!+ … +1/
100
!的值问题:Private Sub Command1_Click()Dim n%, i%, m#, s s = 0 For n = 1 To 100 m = 1 For i = 1 To n m = m / i Next i s = s + m Next n Print "1+1/2!+1/3!+...+1/100!="; s End Sub 运行程序,点击...
vb
试题
编程计算1
-1/
2+1
/
3
-1/4+...+1/99-1/
100的
四种方法是什么?
答:
s As Double\x0d\x0aFor i = 1 To
100
Step 2\x0d\x0as = s + 1 / i - 1 / (i + 1)\x0d\x0aNext\x0d\x0aPrint s\x0d\x0a\x0d\x0a3:\x0d\x0aDim i As Integer\x0d\x0aDim s As Double\x0d\x0ai = 1\x0d\x0aDo Until i >= 100\x0d\x0...
s=1+1
/
2+
2/
3+
3/5+5/8+...用
VB编程,输出
前20项的和从键盘输入
答:
代码如下:n=inputbox("输入n的值")s=0 a=1 b=1 for i=1 to n s=s+a/b b=a+b a=b-a next i print s
大家正在搜
输入一个三位数逆序输出编程
vb编写程序输出杨辉三角
vb编程输出九九乘法表
vb计算结果输出到文本框
vb编程输出三角形图案
vb输入三位数逆序输出
vb随机输入四位数逆序输出
vb数值输出至文本框中
vb输出结果
相关问题
编程;VB 编写一个过程,用来计算下列表达式的值,并在事件过...
编程输出1/1-1/2+1/3-1/4+1/5+…-1/10...
VB编程 编写一个过程,用来计算S=1+1/2+1/3+…+...
编写vb程序:s=1+1/2+2/3+3/5+… (30项)
用VB编写函数过程,计算s=1+1/2+1/3+…+1/10...
求助VB程序:编写一个SUB程序,用来计算并输出S=1+1/...
用VB语言编写程序:求s=1-1/2+1/3-1/4+......
利用循环编程计算并输出表达式S=1-1/2+1/3-1/4…...