请教vb试题

来源：百度知道 编辑：UC知道 时间：2024/05/11 18:14:14
窗体添加如下图所示控件，其相应属性及主要功能如下表。填写适当代码。
控件 属性 属性值 功能
列表框 Name List1
菜单：随机产生10个数据 Name Chansheng 每次在列表框中产生10个两位数，并将原数据删除
Enabled True
菜单：删除最小值 Name Min 删除当前列表框中的最小值
Enabled False
菜单：升序 Name Paixu 将列表框中数据安升序排序
Enabled False
说明：以上菜单，后两项的操作时在第一项操作之后才可用，但两者不存在相互冲突。即：先删除再排序，先排序在删除都能实现。

Private Sub chansheng_Click()
End Sub

Private Sub min_Click()
End Sub

Private Sub Paixu_Click()
End Sub

Private Sub Chansheng_Click()
List1.Clear
Randomize
For i = 1 To 10
List1.AddItem 10 + Int(90 * Rnd)
Next
Min.Enabled = True
Paixu.Enabled = True
End Sub

Private Sub Min_Click()
n = List1.ListCount - 1
If n < 0 Then Exit Sub

ReDim a(n) As Integer
For i = 0 To n
a(i) = List1.List(i)
Next
amin = a(0)
For i = 2 To n
If amin > a(i) Then amin = a(i)
Next

For i = 0 To n
If a(i) = amin Then List1.RemoveItem i
Next

List1.Refresh
End Sub

Private Sub Paixu_Click()
n = List1.ListCount - 1
If n < 0 Then Exit Sub

ReDim a(n) As Integer
For i = 0 To n
a(i) = List1.List(i)
Next

For i = 0 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next j
Next i

List1.Clear

For i = 0 To n
List1.AddItem a(i)<