VB编程题：1+1/2+1/3+...+1/100=?用函数调用的方法

Answer 1

Option Explicit
Private Sub Command1_Click()
Print MyJ(100)
End Sub
Private Function MyJ(ByVal J As Integer) As Double
Dim i As Integer
Dim JJ As Double
JJ = 0
For i = 1 To J
JJ = JJ + 1 / i
Next i
MyJ = JJ
End Function

Answer 2

Private Function MyJ(ByVal J As Integer) As Double
Dim i As Integer
Dim JJ As Double
JJ = 0
For i = 1 To J
JJ = JJ + 1 / i
Next i
MyJ = JJ
End Function

调用时call myj(100)

Answer 3

for(i=1;i<=100;i++){
No=No+1/i

}
你学计算机应用专业的吧

追问

你这个不对啊，我要的是FUNCATION什么的，函数调用

追答

！-_-~~你一点都不会VB啊，这个是执行程序，贴进去就可以的(此乃传说中的1+1/2+1/3+...+1/100=?)规律

Answer 4

- >

Answer 5

以LAMP兄弟连的课程安排来说主要学习一下内容：
1.SpringSecurity：目前最主流的JavaEE安全解决方案，基于Spring。为基于JavaEE企业开发提供全面安全服务。
2.WebSphere：企业级应用服务器。包含了编写、运行和监视全天候的工业强度的随需应变 Web应用程序和跨平台、跨产品解决方案所需要的整个中间件基础设施。
3.负载均衡：高并发解决方案。能利用一个集群中的多台单机，响应更多的并发请求。
4.分布式系统：由网络互联的多处理机体系结构上执行任务的系统。可有效提高系统的可扩展性、稳定性和执行效率