Application("Counter") = Application("Counter") + 1
當前重繪一次只能增加1，
我想修改成 重繪一次在10-20之間隨機去增加次數，而不是只增加1次， 這代碼怎么寫？比如重繪一次增加10次 或15或16，最低是10增加最高是增加20.
謝謝！！
If txt.AtEndOfStream Then
Application("Counter")=0 '如果檔案中沒有資料，則初始化Application("Counter")的值（為了容錯）
Else
Application("Counter")=txt.ReadLine
End If
txt.close()
Set txt=Nothing
Application.Lock '利用Application特性防止并發寫入
Application("Counter") = Application("Counter") + 1
SaveNum(Application("Counter")) '寫入新資料
Application.UnLock
End Function
'顯示計數函式
Function ReadNum()
Init()
ReadNum=PrintNumber(Application("Counter")) '呼叫顯示方式函式
End Function
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/216637.html
標籤：JavaScript