计算随机十个数的和 1 Private Sub Command1_Click()ClsDim n As IntegerDim s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wend Other 2023-05-16 53 点赞 0 评论 80 浏览
