VB 作业 帮我编写一下代码 谢谢!!!

请在窗体文件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

Print "平均数为:"; s / 10

Print "最大数为:"; Max

Print "最小数为:"; Min

End Sub

追问

谢谢!辛苦啦

温馨提示:答案为网友推荐,仅供参考
第1个回答  2017-06-14
写好了,怎么找你啊追问

?直接发就好了

追答

有限制大不了

发不了

相似回答