1樓：瘋狂的老賈
你這個函式不標準，為什麼沒有返回值呢？
如果不需要返回值，你可以改用sub來宣告，然後在需要進行延時的地方呼叫
delayt(你要延時的毫秒數)
就可以。
注意:1秒等於1000毫秒。
我注意到你這個函式中用到了sleep函式，這是乙個windows api 函式，你應該先宣告後使用。宣告方法為：
declare sub sleep lib "kernel32" alias "sleep" (byval dwmilliseconds as long)
2樓：
private declare sub sleep lib "kernel32" alias "sleep" (byval dwmilliseconds as long)
public sub delayt(byval num as long)
dim i as long
for i = 1 to num
doevents
sleep 1
next
end sub
理論上是成立的
3樓：呆兔子
這個程式根本不行，不準確。
【stime = stime + 1
doevents
】這兩句**的執行也需要時間，而且遠遠大於1ms。這就會導致延遲時間變長。
其實直接用sleep就行了。
重寫函式如下：
【private declare sub sleep lib "kernel32" alias "sleep" (byval dwmilliseconds as long)
public sub delayt(byval num as long)
doevents
sleep num
end sub】
4樓：
private sub command1_click()debug.print now
delayt 10
debug.print now
end sub
5樓：水瓶座的小強
你這個函式中呼叫了sleep函式，sleep 1 就是延時1ms咯延時10s的話，你呼叫函式就要寫call delayt（10000）其實，你是不是可以直接用sleeo（10000）呢？？？
只要宣告一下api函式declare sub sleep lib "kernel32" alias "sleep" (byval dwmilliseconds as long)
6樓：令狐腫
直接引用：call delayt 10000 '1萬個微妙，就是10個秒。
VB怎麼新增ShellExecute函式宣告
在模組宣告段加 declare function shellexecute lib shell32.dll alias shellexecutea byval hwnd as long,byval lpoperation as string,byval lpfile as string,byval ...
vb6 0繪製函式圖象，怎麼用VB畫函式影象？
這個有點複雜哦.你可參考編譯系統教程 兄弟，表示式的識別有困難的，程式設計可能比較複雜，演示效果你可以使用matlab數學函式分析這個軟體。具體的程式設計你可以參考簡易的編譯系統，這個你可以到網上搜尋的到的。找到後可以把裡面的函式拿過來你自己程式設計用。詳細點說就是如y 5x 6x 4 這個函式，你...
vb怎麼實現這個功能
給你一種新的方法！dimstarttime,nowtime asinteger private subcommand1 click nowtime mid now,13,2 print nowtime starttime ifabs nowtime starttime 0then msgbox 成功...
VB裡for next這個怎麼用
1 首先要了解for next語句的基本語法結構，其語句的基本結構是for 變數 初值 to終值 step 步長值，其中像for next step是vb中保留字，變數應該符合vb中命名規範，步長值根據自己的需要進行設定。2 for後面的變數應該滿足vb中命名原則，變數的開頭必須是漢字或者是字母開頭...
怎麼用matlab自己定義函式，使這個函式可以將陣列從小到大排列並取整
看你想用什麼排序方法了，簡單一些的話就是o n 2 的方法如氣泡排序 插入排序和選擇排序，複雜一些的有o n logn 的快速排序等。乙個簡單的選擇排序可如下寫 function s floorsort a s zeros size a for i 1 length a a,b min a s i ...