vba:定义一个包含10元素的整形数组,并用rnd为其赋值(值处于100~200),计算数
vba:定义一个包含10元素的整形数组,并用rnd为其赋值(值处于100~200),计算数组中所有不小于150的数据的和。...
vba:定义一个包含10元素的整形数组,并用rnd为其赋值(值处于100~200),计算数组中所有不小于150的数据的和。
展开
1个回答
展开全部
Randomize
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 101) + 100
If a(i) >= 150 Then s = s + a(i)
Print a(i);
Next i
Print
Print "数组中所有不小于150的数据的和="; s
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(Rnd * 101) + 100
If a(i) >= 150 Then s = s + a(i)
Print a(i);
Next i
Print "数组中所有不小于150的数据的和="; s
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
