这样才对 初始化应加在For 循环里 s要变为双精度(这样平均数才有小数点后几位)
楼主试我这个:
Private Sub Command1_Click()
Dim i%,j%,max%,min%,s%
For i = 1 To 10
Randomize
j = Int(Rnd * 100 + 1)
If i = 1 Then min = j
If j > max Then max = j
If j < min Then min = j
s = s + j
Print j;
Next
Print
Print "最大值,最小值,平均数分别为:"; max; min; Cdbl(s) / 10
End Sub
怎样用VB做随机产生10个1-100以内的整型数,求出其的最大值,最小值,平均值
怎样用VB做随机产生10个1-100以内的整型数,求出其的最大值,最小值,平均值
其他人气:987 ℃时间:2020-06-09 19:17:57
优质解答
我来回答
类似推荐
猜你喜欢
- 1推荐一下有哪些练习英语口语比较好的书?除了VOA special english
- 2---Hello,my name is Jphnson.I believe you have a roo____for me.
- 3已知关于x的方程(3分之2x-a)-(2分之x-a)=x-1与方程3(x-2)=4x-6有相同的解,求a的值
- 4三角形ABC的面积S=1/4(b^2+c^2),求三内角的大小
- 5假分数都能化成带分数._(判断对错)
- 6已知一个单项式2x^5y^4,除以另一个单项式,得到一个五次单项式,试写出另一个单项式
- 7矩阵A是m乘n阶矩阵,矩阵B是n乘m阶矩阵.若m>n求证AB的行列式为0
- 8如图所示,有一块直角三角形纸片,两直角边AB=6,BC=8,将直角边AB折叠使它落在斜边AC上,折痕为AD,则BD=_.
- 9对有理数xy定义一种新的运算,x*y=ax+by+c(abc是常数),又知道1*0=2,2*1=9,(-3)*3=6,求2*(-7)的值
- 10定语从句与强调句的区别?HELP