请在窗体文件form1中,编写程序代码,实现以下功能:
当单击命令按钮Button1时,要求程序运行时,
1 随机生成10个两位整数,并显示在输出窗口中.
2 求这10个随机数的平均数,结果显示在输出窗口中
3 找出其中的最大数和最小数,结果显示在输出窗口中.
输出窗口显示信息如下所示:
生成的十个随机数为:73, 58, 62, 36, 37, 79, 11, 78, 83, 73,
平均数为:52.2
最大数为:83
最小数为:11
Private Sub Command1_Click()
Print "生成的十个随机数为:";
For i = 1 To 10
x = Int(Rnd * 90) + 10
If i = 1 Then
Max = x
Min = x
Else
If Max < x Then
Max = x
Else
If Min > x Then Min = x
End If
End If
s = s + x
Print x; ",";
Next i
Print "平均数为:"; s / 10
Print "最大数为:"; Max
Print "最小数为:"; Min
End Sub
追问谢谢!辛苦啦
?直接发就好了
追答有限制大不了
发不了