vb随机产生3个两位的整数,找出其中的最大值,最小值和平均数。

发布网友 发布时间:10小时前

我来回答

1个回答

热心网友 时间:10小时前

Dim a, b, c As Integer
Dim max, min, ave as Double
Randomize
a = Int( * Rnd + 10)
b = Int( * Rnd + 10)
c = Int( * Rnd + 10)‘这里产生了3个两位数,这里楼上错了。
min = a: max = a
If b < min Then
min = b
Else
max = b
End If
If c < min Then
min = c
Else
max = c
End If
ave = (a + b + c) / 3'这里找出了其中的最大值,最小值和平均数
msgbox"最大数是"&Cstr(max)&"。最小的是"&Cstr(min)&"。平均数为"&Cstr(ave)&"。"
'这里跳出了提示框

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com