[填空題] 以下程序代碼實(shí)現(xiàn)單擊命令按鈕Command1時(shí)生成20個(gè)(0，100)之間的隨機(jī)整數(shù)，存于數(shù)組中，打印數(shù)組中大于50的數(shù)，并求這些數(shù)的和。 Pri
2021-07-20
[填空題] 以下程序代碼實(shí)現(xiàn)單擊命令按鈕Command1時(shí)生成20個(gè)(0，100)之間的隨機(jī)整數(shù)，存于數(shù)組中，打印數(shù)組中大于50的數(shù)，并求這些數(shù)的和。
Private Sub Command.Click()
Dim arr(1 To 20)
For i=1 To 20
arr(i)= (14)
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= (15)
End If
Next x
Print Tab(20);"Sum=";Sum
End Sub
正確答案：Int(Rnd*99+1)
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。