略過巡覽連結                          

vbsql:

 資料起日:                 迄日:                                                                
 查詢欄位:      排序欄位     排序方法:    (相似查詢:     )    密碼: 


 識別碼名稱備註程式碼日期
編輯  選取  刪除 1   快速諮詢: Ctrl+K, Ctrl+I  
編輯  選取  刪除 2   自動完成 Alt+向右鍵  
編輯  選取  刪除 3   參數: Ctrl+Shift+Space  
編輯  選取  刪除 4   按 F8 逐行偵錯,退出則消失  
編輯  選取  刪除 5   F9 中斷點  
編輯  選取  刪除 6    
編輯  選取  刪除 7   指令 stop 處中斷,隨程式儲起來  
編輯  選取  刪除 8    
編輯  選取  刪除 9   if-then-goto  
編輯  選取  刪除 10    
編輯  選取  刪除 11   if 條件式 then  
編輯  選取  刪除 12   敘述1  
編輯  選取  刪除 13   敘述2  
編輯  選取  刪除 14   .  
編輯  選取  刪除 15   end if  
編輯  選取  刪除 16    
編輯  選取  刪除 17    
編輯  選取  刪除 18   if 條件式 then  
編輯  選取  刪除 19   敘述1  
編輯  選取  刪除 20   else  
編輯  選取  刪除 21   敘述2  
編輯  選取  刪除 22   end if  
編輯  選取  刪除 23    
編輯  選取  刪除 24    
編輯  選取  刪除 25   if 條件式1 then  
編輯  選取  刪除 26   敘述1  
編輯  選取  刪除 27   elseif 條件式2 then  
編輯  選取  刪除 28   敘述2  
編輯  選取  刪除 29   .  
編輯  選取  刪除 30   elseif 條件式n then  
編輯  選取  刪除 31   敘述n  
編輯  選取  刪除 32   else  
編輯  選取  刪除 33   敘述n+1  
編輯  選取  刪除 34   end if  
編輯  選取  刪除 35    
編輯  選取  刪除 36    
編輯  選取  刪除 37   Function 績效獎金計算(銷售金額)  
編輯  選取  刪除 38   Select Case 銷售金額  
編輯  選取  刪除 39   Case 0 To 999999  
編輯  選取  刪除 40   績效獎金計算 = 銷售金額 * 0.005  
編輯  選取  刪除 41   Case 1000000 To 3000000  
編輯  選取  刪除 42   績效獎金計算 = 5000 + (銷售金額 - 1000000) * 0.01  
編輯  選取  刪除 43   Case 3000000 To 5000000  
編輯  選取  刪除 44   績效獎金計算 = 25000 + (銷售金額 - 3000000) * 0.015  
編輯  選取  刪除 45   Case 5000000 To 8000000  
編輯  選取  刪除 46   績效獎金計算 = 55000 + (銷售金額 - 5000000) * 0.02  
編輯  選取  刪除 47   Case 8000000 To 10000000  
編輯  選取  刪除 48   績效獎金計算 = 115000 + (銷售金額 - 8000000) * 0.025  
編輯  選取  刪除 49   Case Is >= 10000000  
編輯  選取  刪除 50   績效獎金計算 = 190000 + (銷售金額 - 10000000) * 0.03  
編輯  選取  刪除 51   End Select  
編輯  選取  刪除 52   End Function  
編輯  選取  刪除 53    
編輯  選取  刪除 54    
編輯  選取  刪除 55   for i=1 to 10 step 1  
編輯  選取  刪除 56   next i  
編輯  選取  刪除 57   For i = 1 To 10  
編輯  選取  刪除 58   MsgBox(i)  
編輯  選取  刪除 59   Next  
編輯  選取  刪除 60    
編輯  選取  刪除 61    
編輯  選取  刪除 62    
編輯  選取  刪除 63   while 條件式  
編輯  選取  刪除 64   敘述1  
編輯  選取  刪除 65   敘述2  
編輯  選取  刪除 66   wend  
編輯  選取  刪除 67   j = 1  
編輯  選取  刪除 68   While j <= 5  
編輯  選取  刪除 69   MsgBox("while end " & j)  
編輯  選取  刪除 70   j = j + 1  
編輯  選取  刪除 71   End While  
編輯  選取  刪除 72    
編輯  選取  刪除 73    
編輯  選取  刪除 74   do while 條件式  
編輯  選取  刪除 75   敘述1  
編輯  選取  刪除 76   敘述2  
編輯  選取  刪除 77   loop  
編輯  選取  刪除 78   k = 1  
編輯  選取  刪除 79   Do While k <= 5  
編輯  選取  刪除 80   MsgBox("do loop: " & k)  
編輯  選取  刪除 81   k = k + 1  
編輯  選取  刪除 82   Loop  
編輯  選取  刪除 83    
編輯  選取  刪除 84    
編輯  選取  刪除 85   do  
編輯  選取  刪除 86   敘述1  
編輯  選取  刪除 87   敘述2  
編輯  選取  刪除 88   loop until  
編輯  選取  刪除 89   m = 1  
編輯  選取  刪除 90   Do  
編輯  選取  刪除 91   MsgBox("do loopuntil: " & m)  
編輯  選取  刪除 92   m = m + 1  
編輯  選取  刪除 93   Loop Until m > 5  
編輯  選取  刪除 94    
編輯  選取  刪除 95    
編輯  選取  刪除 96   do  
編輯  選取  刪除 97   .  
編輯  選取  刪除 98   if 條件式 then exit do  
編輯  選取  刪除 99   .  
編輯  選取  刪除 100   loop  

 
識別碼 name1 mail1 word1 時間戳記
15313 aaa ddd ccc
15312 End Class
15311 End Sub