Question

vb用call调用sub时里总是有缺少子程序函数，属性的提示，为什么？

Dim a() As IntegerPrivate Sub Command1_Click() Dim m As Integer, n As Integer, i As Integer, j As Integer m = InputBox("数组行数", "数组处理", "4") n = InputBox("数组列数", "数组处理", "5") ReDim a(m, n) For i = 1 To m For j = 1 To n a(i, j) = Int(Rnd * 51 + 30) Picture1.Print a(i, j); Next Picture1.Print NextEnd Sub

Private Sub Command2_Click() Dim i As Integer, min As Integer, t As Integer min = 100 For i = 1 To UBound(a) Call min(a, i, t) If t < min Then min = t Text1.Text = Text1.Text & t & vbCrLf Next Text2.Text = minEnd Sub
Private Sub min(a() As Integer, m As Integer, k As Integer) Dim i As Integer, j As Integer k = a(m, 1) For i = 1 To UBound(a, 2) If a(m, i) > k Then k = a(m, i) NextEnd Sub

Answer 1

min As Integer
Private Sub min(a() As Integer, m As Integer, k As Integer)
不能 min即是变量 又是过程 冲突了 修改其中一个的名称即可

Answer 2

min的变量定义有问题，不能返回结果，建议你用全局变量吧