1樓：
第一：private sub form_command1錯了，應該是private sub command1_click()。
第二，format(now, "hh:mm ")，mm後面多了個空格。
改後程式是：
private sub command1_click()timer1.interval = 1000timer1.enabled = trueend sub
private sub form_load()end sub
private sub timer1_timer()if format(now, "hh:mm") = trim(text1.text) & ":
" & trim(text2.text) then
shell "d:\ttplayer\ttplayer.exe "
end if
end sub
2樓：沙慧月
format(now, "hh:mm ")輸出的是時間格式，trim(text1.text)輸出的是字串格式，兩個格式的相同數字是不等的，要加乙個val()把字元型轉化為數字型，同時一旦執行後，要timer1.
interval = 0才不會不斷開啟ttplayer，正確為
private sub command1_click()timer1.interval = 1000timer1.enabled = trueend sub
private sub timer1_timer()if hour(now) = val(trim(text1.text)) and minute(trim(text2.text)) then
shell "d:\ttplayer\ttplayer.exe "
timer1.interval = 0
end if
end sub
3樓：匿名使用者
timer為計時器，從程式啟動後timer自動執行。如果你想定死時間 比如鬧鐘：8.00鐘想 你用 gettickcount() 函式獲取當前的系統時間。做個簡單的判斷就行了
4樓：範永熙喆
這樣當然不行了。因為trim(text1.text) & ":
" & trim(text2.text)是乙個字串，而format(now, "hh:mm ") 是資料格式，所以要把它轉化成字串，寫成：
private sub form_load()timer1.enabled = falseend sub
private sub command1_click()timer1.interval = 1000timer1.enabled = trueend sub
private sub timer1_timer()dim sj as string
sj=format(time, "hh:mm")if sj= trim(text1.text) & ":" & trim(text2.text) then
shell "d:\ttplayer\ttplayer.exe "
endend if
end sub
這樣就可以了。
概率問題,高手請進，概率高手請進，概率問題。
1.恰好摸出2個黑球的概率 2 6 2 6 c3 下標 2 上標 1 9 3 1 3 2.恰好摸出紅球,黑球和無色透明球各1個的概率 1 6 2 6 3 6 3 1 6 3.摸出的3個球中至少有1個是有色的概率.就是 1 全是無色球的概率 1 3 6 3 6 3 6 1 1 8 7 8。1 3,1 ...
電腦問題。高手請進
用任務管理器開啟explorer.exe 找不到就真的給刪了，用360應該可以恢復 到正常的機子上覆制explorer檔案 覆蓋原來那個 位置 c windows explorer是桌面程式 出錯了 所以桌面沒東西 覆蓋原來那個 簡潔方便 沒有的話 我可以發給你 用鍵盤開啟任務管理器執行.在 程序 ...
系統問題，高手請進
上面錯了。載入的是登錄檔 而msconfig是啟動程式！執行regedit進登錄檔。然後按ctrl f查詢把找到的關於這個檔案的都刪了就行了。別只查詢乙個就刪了哦 查乙個刪了以後按f3繼續找 一般都在 hkey current user software microsoft windows curr...