1个回答
展开全部
Option Base 1
Private Sub Command1_Click()
Dim s(10) As Integer
For i = 1 To 10
s(i) = Rnd() * 100
Print s(i)
Next i
Print "以上是初始的10个随机整数"
For a = 10 To 1 Step -1
Print s(a)
Next a
Print "以上逆转顺序后的10个随机整数"
End Sub
Private Sub Command1_Click()
Dim s(10) As Integer
For i = 1 To 10
s(i) = Rnd() * 100
Print s(i)
Next i
Print "以上是初始的10个随机整数"
For a = 10 To 1 Step -1
Print s(a)
Next a
Print "以上逆转顺序后的10个随机整数"
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询