标题: 谁帮我把这按键的代码转成TC的，非常感谢 [打印本页] 作者: badcwytga 时间: 2016-6-20 19:00 标题: 谁帮我把这按键的代码转成TC的，非常感谢 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