on error resume next?小破绽

Question

有一个 4行4列的表格1    2     3     -  
5    0     7     -
8    9     10    -分别用每行的第一列去除以每行的第二列，结果分别放在每行的最后一列到了第二行  是5/0  如果发生这种情况 我希望是 第二行的最后一列是“”（没有任何内容） 该用什么样的语句啊on error resume next只是对其进行忽略处理~ 而我希望是的得到的结果是“”

Answer 1

private sub CalNum(a,b,c)
    if b=0 then 
        c=0
    else
        c=a/b
    end if
end sub

Answer 2

Private Function CalNum(a As Long, b As Long) As String
    If b = 0 Then
        CalNum = ""
    Else
        CalNum = Str(a / b)
    End If
End Function

Answer 3

On Error Resume NextFor j = 2 To a - 2
   tmp = 3   For i = 4 To b - 2
      If Val(MSHFlexGrid1.TextMatrix(a - 1, i)) > Val(MSHFlexGrid1.TextMatrix(a - 1, tmp)) Then tmp = i
   Next i   if Val(MSHFlexGrid1.TextMatrix(j, tmp))=0 then
        MSHFlexGrid1.TextMatrix(j, b - 1)=""
   else
        MSHFlexGrid1.TextMatrix(j, b - 1) = Val(MSHFlexGrid1.TextMatrix(j, 2)) / Val(MSHFlexGrid1.TextMatrix(j, tmp))
   end if
Next j

Answer 4

private sub CalNum(byval a,byval b,byref c) 
    if b=0 then 
        c=0 
    else 
        c=a/b 
    end if 
end sub