下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择-找考题网

下列程序代码实现生成20个0～100之间的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段是( )，完成程序。 Private Sub Commandl_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)=______ Textl.Text=Textl.Text & arr(i)& Chr(13)& Chr(10) Next i Sum=0 For Each X ______ If X＞50 Then Print Tab(20)；X Sum=Sum+X End If Next X Print Tab(20)；'Sum='；Sum End Sub
A.Int(Rnd*99+1) In arr
B.Int(RnD)In arr
C.Int(Rnd*99+1) In arr()
D.Int(RnD)In arr()

A.Text=Textl.Text
B.Int(Rnd*99+1)
C.Int(RnD)In
D.Int(Rnd*99+1)
E.Int(RnD)In

【参考答案】

A
解析：Rnd函数用于产生一个小于1但大于或等于0的实数，题中要求0～100之间的随机整数，所以需要对Rnd产生的实数进行计算处理Int(Rnd*99+1)。要处理数组中的元素，使用For Each…Next语句处理数组元素时，Each后只需写出数组名，不能使用小括号。

未分类题王某在某机票代理处购买四天后起飞的打折机票一张。第二天，由于特殊原因，王某向该机票代理处提出退票申请。机票代理处虽同意退票，但告知王某打折机票的退票费需按机票原价的50%扣除，王某对此提出异议。日后，王某又与承运人某航空公司交涉。航空公司认为，本承运合同的当事人应是王某与机票代理处，自己不存在违约问题，尽管机票上印有退票条款，但退票费的收取应按航空行政管理部门有关内部文件的规定执行。王某认为，航空公司的行为违反了诚信原则，并且未尽告知义务，已构成违约。在协商未果的情况下，王某向法院提起诉讼，要求航空公司及代理处返还扣除的退票费。相关背景资料：①机票上有关退票的规定：旅客在客票上列明的航班规定离站时间24小时以前要求退票的，退票手续费由承运人规定；在航班规定离站时间24小时以内至2小时以前要求退票的，收取客票价10%的退票费。②航空行政管理部门有关“打折机票收取50%的退票费”的规定，未曾正式向外公告，只是在管理部门指定的航机读物，即行业报纸上以新闻形式出现。③机票上有关退票的规定是执行航空旅客货物运输规则中的相关规定。④航空行政管理部门有关打折机票退票费的文件实施时间，晚于航空旅客货物运输规则的实施时间。⑤对机票上“退票手续费由承运人规定”的条文，航空公司没有证据证明原告已经知道。根据法律规定，本案中，( )。E.原告有权对航空公司提起民事诉讼