Question

求VB程序设计代码！拜托了！

求VB程序设计代码！拜托了！编写程序代码，实现以下功能：随机生成10个两位正整数，存入一维数组b，将数组b的所有元素和数组b的最小值显示在窗体上。设计并调用输出数组b的最小值的子过程bmin。

Answer 1

事件是用什么？
Private Sub Command5_Click()
Dim b(10) As Integer, i
Randomize
For i = 1 To 10
b(i) = Int(Rnd * (99 - 10 + 1) + 10)
Next i
Call bnim(b())
End Sub
Private Sub bnim(ByRef a() As Integer)
Dim i, j As Integer
j = a(1)
For i = 1 To 10
If j > a(i) Then
j = a(i)
End If
Next i
Print j
End Sub
我用的控件是command,事件是click你自己看一下吧

Answer 2

Private b(10) As Integer '数组b
'生成随机数
Private Sub Command1_Click()
    For i = 0 To 9
        b(i) = Int(Rnd * (99 - 10 + 1)) + 10
    Next i
End Sub
'输出数组b中所有值
Private Sub Command2_Click()
    If b(0) = 0 Then
        MsgBox ("请先生成随机数")
        Exit Sub
    End If
    
    List1.Clear
    For i = 0 To 9
        List1.AddItem (b(i))
    Next i
End Sub
'显示最小值
Private Sub Command3_Click()
    Text1.Text = GetMinValue(b)
End Sub
'获取最小值子函数
Private Function GetMinValue(x() As Integer) As Integer
    Dim y As Integer
    y = x(0)
    If b(0) = 0 Then
        MsgBox ("请先生成随机数")
        Exit Function
    End If
    
    For i = 0 To UBound(x) - 1
        y = IIf(y < x(i), y, x(i))
    Next i
    GetMinValue = y
End Function