作业帮 > 综合 > 作业

怎样用VB做随机产生10个1-100以内的整型数,求出其的最大值,最小值,平均值

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/02 14:07:58
怎样用VB做随机产生10个1-100以内的整型数,求出其的最大值,最小值,平均值
怎样用VB做随机产生10个1-100以内的整型数,求出其的最大值,最小值,平均值
这样才对 初始化应加在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 Su