i = 1 Do Randomize a = Int(1000 * Rnd) sum = sum + a i = i + 1 Loop Until i > 10 MsgBox "10个随机数和为:" & sum