小九家的丫头

摘要： Function randnumber() '随机加字母大小写，加的位数不一样，2-6位 Dim temprnd, temprnd2 As String Dim temprndnum As Long temprnd2 = "" temprndnum = Int((4 * Rnd) + 2) '随机数 阅读全文

摘要： Public Function delay(t As Single)Dim T1 As SingleT1 = TimerDoDoEventsLoop While Timer - T1 < tEnd Function 阅读全文