大神们，跪求帮做VB啊，今年能不能继续上学就靠你们了

Question

RT 老师要求做1个VB成就 我是小白 求帮助啊。。。。要求随机产生10个数据 在0到100之间统计其中的最大值，最小值 平均值 统计是个按钮。。。删除最大值，删除最小值。添加新的数据。 大神们 帮帮忙吧

Answer 1

好好学习啊！！！

Dim myrnd(9) As Integer
Dim a%,b%,c%
Dim i As Integer

Private Sub Command1_Click() '统计
'最大值
For i = 0 To 9
If i = 0 Then
a = myrnd(i)
ElseIf myrnd(i) > a Then
a = myrnd(i)
End If
Next i
MsgBox a, , "最大值"
'最小值
For i = 0 To 9
If i = 0 Then
b = myrnd(i)
ElseIf myrnd(i) < b Then
b = myrnd(i)
End If
Next i
MsgBox b, , "最小值"
'平均值
c = 0
For i = 0 To 9
c = c + myrnd(i)
Next
MsgBox c / 10, , "平均值"
End Sub

Private Sub Command2_Click() '删除最大值
For i = 0 To 9
If List1.List(i) = a Then List1.List(i) = ""
Next
End Sub

Private Sub Command3_Click() '删除最小值
For i = 0 To 9
If List1.List(i) = b Then List1.List(i) = ""
Next
End Sub

Private Sub Form_Load() '生成随机数
For i = 0 To 9
Randomize
myrnd(i) = Int(101 * Rnd)
List1.AddItem myrnd(i)
Next
End Sub

Answer 2

忘记了 c++ 用多了 大概吧
随手打 你看看吧 参考
option base 0
Dim A(9) //忘记vb的数组规则了
Dim i,z,max,min
Randomize

private sub PrintRandom
for i = 0 to 9
A(i) = (101*rnd)
z = z + A(i)
print A(i)
if max < A(i) then m = A(i)
if min > A(i) then n = A(i)
next
平均值 = z/10
最小值 = min
最大值 = max
end sub

Private sub Delete()
dim i
cls //清屏 大概也不是很记得了
for i = 0 to 9
if A(i)<> max or A(i) <> min then print A(i)
next
End Sub

private sub AddData(D as Integer)
Dim k
k = uBound(A)
ReDim A(k+1) //重定义数组
A(k+1) = D
cls
for
打印
next
end sub