随机生成10个数（使用9种循环）

最新推荐文章于 2024-10-14 14:52:12 发布

原创最新推荐文章于 2024-10-14 14:52:12 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

本博客展示了使用VBA宏实现对10个随机数求和的过程，并通过两种不同的循环方式来完成任务：一种是使用`For...Next`循环，另一种是使用`Do While...Loop`循环。通过对比这两种循环的实现方式，读者可以了解循环结构在编程中的灵活应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

《三》
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim sum As Integer
sum = 0
For i = 1 To 10 Step 2
a = Int(Rnd * 1000)
sum = sum + a
MsgBox “10个随机数的和为:” & sum
Next
End Sub

《四》
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim sum As Integer
sum = 0
Do While i <= 10
a = Int(Rnd * 1000)
sum = sum + a
MsgBox “10个随机数的和为:” & sum
Loop
End Sub
《五》
Private Sub Command1_Click()
Dim i As Integer
Dim s As Integer
Dim sum As Integer
sum = 0
Do While i <= 10
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop
MsgBox “10个随机数的和为:” & sum
End Sub