谁帮我把这按键的代码转成TC的，非常感谢

badcwytga

Dim myarr(4)
Randomize
For i = 0 To Ubound(myarr)
    myarr(i) = int(10 * rnd()) + 1
    TracePrint myarr(i)
Next
TracePrint Niu(myarr)
Function Niu(myarr)
    For i = 0 To Ubound(myarr)-2
        For j = i + 1 To Ubound(myarr) - 1
            For k = j + 1 To Ubound(myarr)
                If myarr(i) + myarr(j) + myarr(k) >= 10 and (myarr(i) + myarr(j) + myarr(k)) mod 10 = 0 Then
                    Niu = (myarr(0)+myarr(1)+myarr(2)+myarr(3)+myarr(4)) mod 10
                    Select case Niu
                    Case 0
                    Niu = "牛牛"
                    Case Else
                    Niu = "牛" & Niu
                    End Select                    
                    Exit Function
                End If
            Next
        Next   
    Next
    Niu="没牛"
End Function

badcwytga

不要沉！