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

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

admin2012-03-22  32
问题 以下程序代码实现单击命令按钮Command1时生成20个(0，100)之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。
   Private Sub Command.Click()
   Dim arr(1 To 20)
   For i=1 To 20
   　arr(i)=  _______
   　Text1.Text=Text1.Text&arr(i)&Chr(13)&chr(10)
   Next i
   Sum=0
   For Each x In arr
   　If x＞50 Then
   　　Print Tab(20);x
   　　Sum=  ______
   　End If
   Next x
   　Print Tab(20);"Sum=";Sum
   　End Sub
选项
答案Int(Rnd*99+1) Sum+x
解析
转载请注明原文地址:https://jikaoti.com/ti/SmO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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