以下程序代码实现单击命令按钮Command1时生成20个(0,100)之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。 Dim arr(1 To 20) For i=1 To 20 arr(i)=【 】

admin2010-03-30  35

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

选项

答案Int (Rnd*99+1), arr

解析
转载请注明原文地址:https://jikaoti.com/ti/1uq0FFFM
0

最新回复(0)