1樓：遠風的夢想家
如果不想用timer，那麼就用api的timer吧：
新增一個窗體和一個模組
窗體里加一個按鈕，貼上**
private sub command1_click()
mytid = settimer(0, 0, 60000, addressof mytimerproc)'這裡60000表示10分鐘，自己可以改成1000先做一下實驗
end sub
新增一個模組：
public declare function killtimer lib "user32" (byval hwnd as long, byval nidevent as long) as long
public declare function settimer lib "user32" (byval hwnd as long, byval nidevent as long, byval uelapse as long, byval lptimerfunc as long) as long
public mytid as long
public sub mytimerproc(byval hwnd as long, byval msg as long, byval tid as long, byval dt as long)
debug.print hwnd, msg, tid, dt'這裡新增你要觸發的事件的**
killtimer 0, mytid'如果想連續觸發就把這行刪掉就可以了
end sub
'再沒別的方法了
2樓：匿名使用者
1、必須用timer，否則得不償失；
2、用minute(now) mod 10 = 0，可以判斷現在是否分鐘最末位是否是0。
3樓：匿名使用者
不知道是不是這個意思
dim td as date
td = "2010-08-12 14:30:00"
if minute(td) mod 10 = 0 thenmsgbox "整數分鐘" & minute(td)end if
4樓：
提供一種思路: for i = 1 to 2 step 0 是否為符合條件的時間的判定 doevents next 雖是死迴圈卻不會使程式致死,沒用到timer
5樓：匿名使用者
private sub timer1_timer()dim x as string
x=time
if mid(x,5,1)=0 and mid(x,7,2) then
事件end if
end sub
VB中程式設計判斷數是否為迴文數。如9229等都是迴文數
private sub command1 click 迴文數for i 100 to 200 ge i mod 10 shi i 10 mod 10 bai i 100 if ge bai then print i,geshu geshu 1 if geshu mod 9 0 then printe...
VB判斷計算機是否在學校
不要想太複雜了，學校機器一定有些特點是家裡電腦不一定完全具有的，比如學校機房電腦有某個或某幾個特定軟體，學校機房有某個硬體驅動，學校電腦的windows下有某個日誌檔案，這樣只要判定是否同時具有某幾個資料夾，或特定位置有沒有某幾個檔案就行了，至少這在程式設計上更容易實現 通過wmi方式取得系統還原卡...
如何自己判斷是否有口臭，如何自己判斷是否有口臭？
周若兔 用自己的舌頭舔一下手背等唾液後發乾了以後聞一聞如果味道刺鼻就說明有口臭 甜甜笑容的小彬 教你如何判斷自己是否口臭 zjc 座 和別人談話期間。別人扭頭不對著你。故意躲著你。這說明你已經有口氣了。有了這種情況。自己要常備口香糖。除了出門兒之前刷牙漱口。您見客人之前抓時間嚼上口香糖最好了。不要怕...