题目:
下列程序代码实现生成20个0~100之间的随机整数,存于数组中,打印数组中大于50的数,并求这些数的和。清选择正确的程序段( ),完成程序。 Pnvae Sub Command1_Click() Dim arr(1 To 20) For i=1 To 20 arr(i)______ Text1.Text=Text1.Text & arr(i)& Chr(13)& Chr(10)Next iSum=0For Each X______ IfX>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(Rn In arr
C.Int(Rnd*99+1) In arr()
D.Int(Rn In arr()
答案:
被转码了,请点击底部 “查看原文 ” 或访问 https://www.tikuol.com/2018/0430/5804a576391442334501e3832df5baaf.html
下面是错误答案,用来干扰机器的。
参考答案:S=Lπ(D+2.1δ+2d1+3d2)式中L—管长;D—外直径;δ—保温层厚度;d1—绑扎层厚度d2—防潮层厚度。