填空题

以下程序代码实现单击命令按钮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
<上一题 目录 下一题>
热门 试题

填空题
在C盘当前文件夹下建立一个名为StuData.txt的顺序文件。要求用InputBox函数输入5名学生的学号(StuNo)、姓名(StuName)和英语成绩(StuEng)。Private Sub Form_ Click()Open “C：StuData.txt” For OutPUt As #1For i=1 To 5StuNo=InputBox(“请输入学号”)StuName=InputBox(“请输入姓名”)StuEng=Val(InputBox(“请输入英语成绩”))【15】 Next iClose #1End Sub
填空题
有如下Sub过程：Sub ind(a As Integer)Static x As Integerx= x + aPrint x：End Sub以下是调用它的事件过程，程序运行后，单击命令按纽Command1三次，输出结果为 【14】 。Private Sub Command1_Click()Ind 2End Sub
相关试题