00问答网
所有问题
VB程序设计作业 编写一个函数过程,计算:1+1/2+1/3+…+1/100。
急
举报该问题
推荐答案 2009-05-17
这是楼主要的函数过程(先在窗体上添加一个命令按钮)
Private Sub Command1_Click()
Dim n As Integer
n = 100
f n
End Sub
Function f(n As Integer) As Single
Dim i As Integer
For i = 1 To n
f = f + 1 / i
Next i
Print "1+1/2+1/3+…+1/100结果为:" & f
End Function
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://00.wendadaohang.com/zd/I000eIre.html
其他回答
第1个回答 2009-05-17
dim i
dim sum=0
for i=1 to 100
sun=sum+1/i
next
大概就应该是这样的,我没有实际测试过,不过也十不离八九了。
第2个回答 2009-05-17
Private Sub Command1_Click()
Dim n As Double
Dim sum As Double
For n = 1 To 100 + 1
sum = sum + 1 / n
Next
Text1.Text = Str(sum)
End Sub本回答被提问者采纳
相似回答
在
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
用
VB编写函数过程,计算
s=
1+1
/
2+1
/
3+…+1
/
100
。运行
程序
时,单击窗体...
答:
private sub Form_Click()dim i as long dim s as currency s=1 for i=2 to
100
s=s+(1/i)next i msgbox s end sub '这个程序会弹出精确到4位小数的结果,如果需要更高精度的,可以试着把currency换成double。
VB
编程
计算
S=
1+1
/
2+1
/
3+1
/4+...+1/n 要求最后一项不小于0.0001
答:
Private Sub Command1_Click()Dim s As Single n = Val(InputBox("输入 一个整数"))If 1 / n < 0.0001 Then MsgBox "1/n要不小于0.0001"Exit Sub End If For i = 1 To n s = s + 1 / i Next Print s End Sub
求助
VB程序:编写一个
SUB程序,用来
计算
并输出S=
1+1
/
2+1
/
3+…+1
/
100
...
答:
Dim s, i Sub qh()s = 0 For i = 1 To
100
Step 1 s = s + 1 / i Next Print s End Sub Private Sub Command1_Click()Call qh End Sub
大家正在搜
用高级程序设计语言编写程序
用高级程序设计语言编写的程序称为
程序设计函数
函数式程序设计
c语言程序设计函数
函数程序设计体会
用函数实现模块化程序设计
程序设计编程
函数程序设计实验报告
相关问题
用VB编写函数过程,计算s=1+1/2+1/3+…+1/10...
VB编程题:1+1/2+1/3+...+1/100=?用函数...
vb编程一个过程,用来计算并输出s=1/2+1/3+.......
vb利用循环结构编程计算表达式1+1/2+1/3+........
VB 中编写函数fun(n),计算s=1+1/2!+1/3!...
编写一个vb程序,求 1+1/2+1/3+1/4+……+1/...
编写一个vb程序计算1/1!+1/2!+…+1/n!,要求定...
VB程序查错 函数过程求1+1/2+1/3+......+1...