小吳 VBQA 程式設計討論

我真很糟，請各位幫幫我吧，拜託您們。 感謝您們~!!

不是不幫你 是真的看不懂你的問題 不相關的兩段程式也不知你要合成什麼樣子(合起來有用嗎??) 我下面還是依你說的寫出來 但我想可能不會是你想要的吧 另外你可以用Timer物件 在INTERVAL屬性中設下你想要發動的時間(1000約為1秒) private sub Main() call sub1() 　call sub2() end sub private sub sub1() for i = 1 to 10 　　print i 　next i end sub private sub sub1() for i = 1 to 10000 　　j = j + i 　next 　print j end sub

我的意思：將以下的兩個副程式，利用一個主程式來連結呼叫它， 第二個問題是，給一段時間，當時間超過時，執行下一個副程式。 請問這樣子的敘述，可以嗎?謝謝您回答我的問題，感謝您~!! 請推薦一本不錯的 VB 學習書藉，謝謝各位~!! (1) output 10 次? for i = 1 to 10 print i next i (2) 加總 1 到 10000，output 1　次? for i = 1 to 10000 j = j + i 　next print j

請問 brl 網友，您編寫的程式， 我無法執行，請問您一下，問題出現在那兒呢? 將您所寫的程式，貼在Command 圖型鈕中， 就可以執行了嗎?謝謝您抽空為我解答~!

如果kai兄要用command鈕則可以將private sub Main() 改成private sub command_click() brl前輩指導的 可能是在無form的情況下吧 如有講錯請各位大大指正

以下是我的想法： 主程式： Private Sub Command1_Click() n = 1 For n = 1 To 2 If n = 1 Then 　　　 Call sub1 　　Else 　　　 n = 2 　　　 Call sub2 　　End If Next n End Sub 副程一 Private Function sub1() As Integer For i = 1 To 10 Print i Next End Function 副程式二 Private Function sub2() As Integer For i = 1 To 10000 j = j + i 　　Next Print j End Function 請問如何在主程式中，加入一些變數的宣告， 如：i＞0 時， 程式即會判斷要執行那個副程式， 且在日後加入新工作時， 不用再增加新工作及主程式中的指令。 而以分時的方式，如何在主程式中， 加入什麼指令，即會於一段時間後， 執行一個副程式， 請各位幫幫忙，謝謝您~!!

我上面的想法是錯誤的，我今天去詢問老師， 他所要的程式，是當副程式(1) Print 1 後， 會先跳到副程式(2) 去執行加總的程式， 加總完再跳到副程式(1)，去 Print 2 3 4 5 6 7 8 9 10 執行結果如下： 1 50005000 2 3 4 5 6 7 8 9 10 請問以上看的懂的嗎? 我以下再放我們老師以 C 語言所寫的程式給各位看看， 請各位幫幫我解答一下，謝謝各位~!! # include ＜ studio.h ＞ # include ＜ dos.h ＞ # include ＜ time.h ＞ void sleep ( int n ) { for ( int i = 1 ; i ＜ 10000 * n ; i ++ ); } bool work1 ( int & begin ) { if ( begin == 10 ) 　　　　　return false; 　　 printf ( " work1 result is %d\n ", begin ); 　　 sleep ( 50 ); 　　 begin ++; 　　 return true; } bool work1 ( int & begin, int & result ) { int i; 　　 for ( i = begin; i ＜= 1000; i ++ ) 　　 { 　　　result + = i; 　　　if (( i % 100 ) == 0 ) 　　　 { 　　　printf ( " sum from 1 to %d is %d\n ", i , result ); 　　　 } 　　 } 　　 return false; } void main() { int work1_begin,work2_begin,work2_result; 　　bool work1_stat,work2_stat; 　　work1_stat = true; 　　work2_stat = true; 　　work1_begin = 1; 　　work2_begin = 1; 　　work2_result = 0; while ( work1_stat !! work2_stat ) { while (( work1_stat = work1 ( work1_begin )) == true ); 　while (( work2_stat = work2 ( work2_begin,work2_result )) == true);