vba编程 求1+2+3...+100的值
来自：白云都 更新日期：早些时候
C语言编程求1+2+3+4+...+100。~
Dim i&, x&
i = 1
Do While i < 101
x = x + i
i = i + 1
Loop
MsgBox x
End Sub
或
Sub aa1()
Dim i&, x&
For i = 1 To 100
x = x + i
Next i
MsgBox x
End Sub
两种循环方式，值为5050
Private Sub Command1_Click()
Dim a, sum As Long
sum = 0
For a = 1 To 100
sum = sum + a
Next a
Print sum
End Sub
一共有6种方法
1
sum=0
for i = 1 to n
sum = sum+i
next i
2
i = 0
Do While i <= n
Sum = Sum + i
i = i + 1
Loop
3
i = 0
Do Until i > n
Sum = Sum + i
i = i + 1
Loop
4
Sum = (1 + n) * n / 2
5
While i <= n
Sum = Sum + i
i = i + 1
Wend
6
While i > n
Sum = Sum + i
i = i + 1
Wend
sum=0
for i=1 to 100
sum=sum+i
next
vba编程 求1+2+3...+100的值视频
相关评论：
#include"stdio.h"
intsum(intn)
{
intsum=0;
for(inti=0;i<=n;i++)
{
sum+=n;
}
returnsum;
}
voidmain(void)
{
intsum=0;
sum=sum(100);
printf("sumis%d",sum);
}
扩展资料
C语言1、2、3、4组成互不相同且无重复数字
#include"stdio.h"
#include"conio.h"
main()
{
inti,j,k;
printf_s("
");
for(i=1;i<5;i++)//以下为三重循环
for(j=1;j<5;j++)
for(k=1;k<5;k++)
{
if(i!=k&&i!=j&&j!=k)//确保三位数值不会相同
printf_s("%d%d%d
",i,j,k);
}
system("pause");//屏幕打印保持
}
'S=171700
Sub abc()
s = 1
For i = 2 To 100
For j = 1 To i
s = s + j
Next
Next
MsgBox "S=" & s
End Sub
Dim i&, x&
i = 1
Do While i < 101
x = x + i
i = i + 1
Loop
MsgBox x
End Sub
或
Sub aa1()
Dim i&, x&
For i = 1 To 100
x = x + i
Next i
MsgBox x
End Sub
两种循环方式，值为5050
Private Sub Command1_Click()
Dim a, sum As Long
sum = 0
For a = 1 To 100
sum = sum + a
Next a
Print sum
End Sub
一共有6种方法
1
sum=0
for i = 1 to n
sum = sum+i
next i
2
i = 0
Do While i <= n
Sum = Sum + i
i = i + 1
Loop
3
i = 0
Do Until i > n
Sum = Sum + i
i = i + 1
Loop
4
Sum = (1 + n) * n / 2
5
While i <= n
Sum = Sum + i
i = i + 1
Wend
6
While i > n
Sum = Sum + i
i = i + 1
Wend
sum=0
for i=1 to 100
sum=sum+i
next
vba编程 求1+2+3...+100的值视频
相关评论：
