随机生成10个数并求和方法二 Private Sub Command1_Click()ClsDim n As Integer, s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wends = 0 Other 2023-11-30 52 点赞 0 评论 78 浏览
