求VB做一雙色球選號軟體 ,分為6個區 1:1----13 2:2-----20 ...........6:15-----33 QQ:550522511
uj5u.com熱心網友回復:
主要代碼:
Private Function Get_RANDOM(lowerbound As Integer, upperbound As Integer) As Integer
' The RND formula!
' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Get_RANDOM = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/86809.html
標籤:VBA
