s = 0
For i = 1 To 100
s = s + 1 / i
Next i
MsgBox ("1+1/2+1/3+...+1/100 = " & s)
End Sub本回答被提问者采纳
VB编程题:1+1\/2+1\/3+...+1\/100=?用函数调用的方法
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 ...
用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\/100
dim a,b as double b=0 a=1 for a = 1 to 100 b = b + (1\/a)next msgbox "结果为" & b 思路是，用一个变量来储存得数，用for把a（表示计算到哪里）加上去
高一信息题 :编写程序计算s=1\/1+1\/2+1\/3+……1\/100的和。输出结果 流程...
如图
编写计算 1 + 1\/2 + 1\/3 + 1\/4 + ... + 1\/100的和 的程序
double s=0;for i=1 to 100 loop s=s+1.0\/i;print s
1+1\/2-1\/3+1\/4-1\/5……+1\/100如何编程,求变成高手解答
你确认ACCESS可以编程吗？\/\/vc 6.0 include <stdio.h> void main(){ int i=0;float fSum=0;for(i=1;i<=100;i++){ fSum+=(1.0\/i);} printf("1+1\/2+1\/3+...+1\/100=%f\\r\\n",fSum);}
编写程序,计算并输出S=1+1\/2+1\/4+1\/6+1\/8……+1\/100的值
int main(){ double result =1.0;int i;for(i=2;i<=100;i=i+2){ result = result + 1.0 \/ i;} printf("%f",result);getch();return 0;}
写出求1\/2+1\/3+1\/4...+1\/100的算法,并画出流程图?
算法如下(我用vb)Dim s as single = 0 For i=2 to 100 s=s+1\/i next
求用VB写出关于1+2+3+…+100累加和的代码
编写函数：Private Function S_GS(S_From As Long, S_To As Long) As Long If S_From > S_To Then Exit Function S_GS = (S_From + S_To) * (S_To - S_From + 1) \/ 2 End Function 调用：S_GS("第一个数值","累加至的数值")比如：计算从1加到100。表达：S＿GS(1,100)...
VB编程 利用循环实现计算1+2+3+4+…+100的值。 怎么做
Public Class Form1 Dim i As Integer Dim result As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For i = 1 To 100 result = result + i Next TextBox1.Text = result.ToString End Sub End Class 事件...
