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

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

admin2010-03-30  36
问题 以下程序代码实现单击命令按钮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://kaotiyun.com/show/Me1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)