摘要: Function randnumber() '随机加字母大小写,加的位数不一样,2-6位 Dim temprnd, temprnd2 As String Dim temprndnum As Long temprnd2 = "" temprndnum = Int((4 * Rnd) + 2) '随机数 阅读全文
posted @ 2018-12-13 15:46 小九家的丫头 阅读(774) 评论(0) 推荐(0) 编辑
摘要: Public Function delay(t As Single)Dim T1 As SingleT1 = TimerDoDoEventsLoop While Timer - T1 < tEnd Function 阅读全文
posted @ 2018-12-13 15:45 小九家的丫头 阅读(601) 评论(0) 推荐(0) 编辑