vb问题求解

来源：百度知道 编辑：UC知道 时间：2024/05/09 01:38:02
随机产生10个1~100的数存放在数组中，以蓝色18号字显示
将最小的数删除
将删除后的数组以蓝色18号字显示
求大家帮忙编一下啊

Private Sub Form_Click()
Dim a(1 To 10) As Integer

For i = 1 To 10
a(i) = 100 * Rnd
Print a(i)
Next i

For i = 1 To 9
If a(i + 1) > a(i) Then
a(i + 1) = a(i)
End If
Next i

Print "最小" & a(10)

End Sub

要自己多动手写程序

自己编啊，随机用rand嘛，然后用for循环获得最小值，记录好，再删除了