VB分别用各种循环语句编写求1+2+3+……….100的和。

答案:3 悬赏:20 手机版

解决时间 2021-02-24 07:18

提问者网友：欲望失宠
2021-02-23 19:15

最佳答案

五星知识达人网友：撞了怀
2021-02-23 20:40

Private Sub Command1_Click()
i = 1
Do While i <= 100
s = s + i
i = i + 1
Loop
Print s
s = 0
For i = 1 To 100
s = s + i
Next i
Print s
i = 1
s = 0
Do Until i > 100
s = s + i
i = i + 1
Loop
Print s
End Sub

全部回答

1楼网友：woshuo
2021-02-23 23:19

1):
Private Sub Command1_Click()
For i = 1 To 100
Sum = Sum + i
Next i
Print Sum
End Sub
加以命令按钮哦
2）：Private Sub Command1_Click()
i = 1
Do While i <= 100
Sum = Sum + i
i = i + 1
Loop
Print Sum
End Sub 加以命令按钮哦
3）:Private Sub Command1_Click()
i = 1
Do Until i > 100
Sum = Sum + i
i = i + 1
Loop
Print Sum
End Sub加以命令按钮哦
呵呵！祝你好运~

2楼网友：三千妖杀
2021-02-23 21:42

for i=1 to 100
sum=sum+i
next
i=1
do while i<=100
sum=sum+i
i=i+1
loop
i=1
do until i>100
sum=sum+i
i=i+1
loop

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息