【用VB编程：随机产生10个0~100之间的随机整数,存放在-查字典问答网

来自龙勇的问题

　　【用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计大于平均值的元素个数并把它们显示出来.】

　　用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计

　　大于平均值的元素个数并把它们显示出来.

1回答

2020-03-0216:20

我要回答

提示：回答问题需要登录哦！

刘俊林

　　PrivateSubForm_Load()

　　Dima(10),i,x,jAsInteger

　　DimyAsString

　　Fori=0To9

　　Randomize

　　a(i)=Int(Rnd(1)*101)

　　x=x+a(i)

　　Nexti

　　Print"元素和="&x

　　Print"平均值="&x/10

　　Fori=0To9

　　Ifa(i)>(x/10)Thenj=j+1:y=y&CStr(a(i))&""

　　Nexti

　　Print"大于平均值的元素个数="&j

　　Print"大于平均值的元素："&y

　　Me.Refresh

　　EndSub

2020-03-02 16:23:35

大家都在问