用while語句求隨機十個數個的和

Private Sub Command1_Click()im Cls Dim n As Integer Dim a(10) As Integer n = 1 While n <= 10 a(n) = Int(Rnd * 1000) Print a(n) n = n + 1 Wend Dim sum As Integer s = 0 n = 1 While n <= 10 sum = sum + a

>>阅读原文<<