1000以内任意十个整数之和

最新推荐文章于 2021-05-21 05:16:27 发布

原创最新推荐文章于 2021-05-21 05:16:27 发布 · 519 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个使用VBA编写的简单程序，该程序能够生成一组介于1到1000之间的随机整数，并计算这些随机数的总和。通过此示例，读者可以了解如何在VBA中使用数组、循环以及随机数生成等功能。

Option Explicit
Private Sub Command1_Click()
Font.Size = 30
    Dim i As Integer
    Dim a(10) As Integer
    Dim sum As Integer
    Randomize
    For i = 1 To 10
         a(i) = Int(Rnd * 1000) + 1
         sum = sum + a(i)
    Next i
    Print sum
End Sub