vb编程 随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数,并统计0—9,10-19...对应区
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/18 20:21:56
![vb编程 随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数,并统计0—9,10-19...对应区](/uploads/image/z/1799444-20-4.jpg?t=vb%E7%BC%96%E7%A8%8B+%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%90100%E4%B8%AA0-99%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B0%2C%E5%B9%B6%E4%BB%A510%2A10%E7%9A%84%E6%A0%B7%E5%BC%8F%E5%AF%B9%E9%BD%90%E6%98%BE%E7%A4%BA%2C%E7%84%B6%E5%90%8E%E8%AE%A1%E7%AE%97%E6%AF%8F%E8%A1%8C%E6%95%B0%E5%AD%97%E7%9A%84%E5%B9%B3%E5%9D%87%E6%95%B0%E9%9A%8F%E6%9C%BA%E7%94%9F%E6%88%90100%E4%B8%AA0-99%E7%9A%84%E9%9A%8F%E6%9C%BA%E6%95%B0%2C%E5%B9%B6%E4%BB%A510%2A10%E7%9A%84%E6%A0%B7%E5%BC%8F%E5%AF%B9%E9%BD%90%E6%98%BE%E7%A4%BA%2C%E7%84%B6%E5%90%8E%E8%AE%A1%E7%AE%97%E6%AF%8F%E8%A1%8C%E6%95%B0%E5%AD%97%E7%9A%84%E5%B9%B3%E5%9D%87%E6%95%B0%2C%E5%B9%B6%E7%BB%9F%E8%AE%A10%E2%80%949%2C10-19...%E5%AF%B9%E5%BA%94%E5%8C%BA)
vb编程 随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数,并统计0—9,10-19...对应区
vb编程 随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数
随机生成100个0-99的随机数,并以10*10的样式对齐显示,
然后计算每行数字的平均数,并统计0—9,10-19...对应区间数字的个数.
vb编程 随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数随机生成100个0-99的随机数,并以10*10的样式对齐显示,然后计算每行数字的平均数,并统计0—9,10-19...对应区
先建一个大一点的label1框,然后...
Dim a As Integer
Dim b As String
Dim c As Integer
Dim d As String
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim n As Integer
Private Sub Form_Load()
For x = 1 To 10
For y = 1 To 10
a = Int(Rnd * 100)
Select Case a
Case Is < 10:
e = e + 1
Case Is < 20:
f = f + 1
Case a < 30:
g = g + 1
Case Is < 40:
h = h + 1
Case Is < 50:
i = i + 1
Case Is < 60:
j = j + 1
Case Is < 70:
k = k + 1
Case Is < 80:
l = l + 1
Case Is < 90:
m = m + 1
Case Is < 100:
n = n + 1
End Select
b = b & a & "、"
c = c + a
Next
c = c / 10
b = b & "avg:" & c & vbCrLf
c = 0
Next
Label1.Caption = b & "[0~9:" & e & "]、[10~19:" & f & "]、[20~29:" & g & "]、[30~39:" & h & "]、[40~49:" & i & "]、[50~59:" & j & "]、[60~69:" & k & "]、[70~79:" & l & "]、[80~89:" & m & "]、[90~100:" & n & "]"
End Sub