题目内容:
以下程序代码实现单击命令按钮Command1时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。 Dim arr(1 To 20) For i=1 To 20 arr(i)= 【12】 Next i Sum=0 For Each X In 【13】 If X>50 Then Print Tab(20);X Sum=Sum+X End If Next X Print Tab(20);“Sum=”;Sum
参考答案:
以下程序代码实现单击命令按钮Command1时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。 Dim arr(1 To 20) For i=1 To 20 arr(i)= 【12】 Next i Sum=0 For Each X In 【13】 If X>50 Then Print Tab(20);X Sum=Sum+X End If Next X Print Tab(20);“Sum=”;Sum