填空题
以下程序代码实现单击命令按钮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
【参考答案】
[12] Int (Rnd*99+1) [13] arr
点击查看答案
<上一题
目录
下一题>
热门
试题
填空题
VB中的控件分为内部控件、ActiveX控件和 【7】 三类。
点击查看答案
填空题
设有一个10个元素的数组,下列程序将该数组的第一个元素与第十个元素交换,第二个元素与第九个元素交换……,第五个元素与第六个元素交换,请补充完该程序。 Private Sub Commnd1_Click() Dim a(1 To 10)As Integer Dim i As Integer Dim p As Integer Dim t As Integer Dim j As Integer For i=1 To 10 a(i)=i Next i For j=1 To 5 【9】 【10】 【11】 Next j For i=1 To 10 Print a(i) Next i End Sub
点击查看答案
相关试题
在C盘当前文件夹下建立一个名为StuData.tx...
有如下Sub过程: Sub ind(a As Intege...
窗体中有两个命令按钮:“显示”(控件名为...