vb 上机题:利用随机函数产生25个10到99之间的整数,求其平均值(要求保留3位小数,第4位四舍五入).(写出代码)

板牙飞扬 1年前 已收到1个回答 举报

imqun 幼苗

共回答了23个问题采纳率:100% 举报

所要求的程序如下:请采纳:Private Sub Command1_Click()s = 0RandomizePrint "25个数是:"For i = 1 To 25 x = Int(90 * Rnd) + 10 Print x; If i Mod 10 = 0 Then Print s = s + xNext iPrintPrint "平均数="; Format(s / 25, "0.000")End Sub

1年前

1
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 17 q. 0.620 s. - webmaster@yulucn.com