我有6個問題不會,因為我只是個新手而已,所以不要覺得太簡單而刪掉(拜託)
以下6題我實在是百思不得其解,所以才發表這篇文章來請教各位高手們
請附上詳解,謝謝
=============================================================
1.(已解決)
Private Sub Good(s As Integer)
s=s+1
End Sub
Private Sub Bad(By Val t As Integer)
t=t-2
End Sub
Private Sub Form_Activate()
Dim a As Integer
a=0
Call Good(a)
Call Bad(a)
Print a
End Sub a=?
Good 以傳址方式 所以 a = 1
bad 以傳值方式 但因為沒有回傳 所以 a = 1
感謝ziele
=============================================================
2.
Private Sub Form_Activate()
10 SUM=0
20 For I=1 To ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

第一題

Good 以傳址方式 所以 a = 1
bad   以傳值方式 但因為沒有回傳 所以 a = 1

Private Sub Good(s As Integer)
s=s+1
End Sub
Private Sub Bad(By Val t As Integer)
t=t-2
End Sub
Private Sub Form_Activate()
Dim a As Integer
a=0
Call Good(a)
Call Bad(a)
Print a
End Sub       a=?

第二題
I         SUM       N         J
                  1         1
1         1
                  1         1
                  2         2
2         3
                  1         1
                  2         2
                  6         3
3         9
                  1         1
                  2         2
                  6         3
                  24         4
4         33
SUM= 33

第三題

從第11個元位，取11個位元，自己數一下吧

第四題

答案應該是 1700

雞婆補充一下

第二題是在求 1 到 4 階的和，當 I=1 時把 1! 加到 SUM，當 I=2 時把 2! 加入 SUM，所以 SUM=1!+2!+3!+4! = 1+2+6+24

20   For I=1 To 4
30   Go Sub 80
40   SUM=SUM+N
50   Next I

第四題則是由第 11 個字本身算起抓 11 個字(含空白，中文也算成一個字)

PK$="TERASA IS A BEAUTIFUL GIRL"

第五題

5.下列程式的結果如何?
Dim A(5)
A(1)=15
A(2)=8
A(3)=5
A(4)=20
A(5)=35
將五個不同的數值放入數值陣列 A 中  

For X=4 To 1 Step-1
For Y=1 To X
  If A(Y)<A(Y+1) Then
    B=A(Y)
    A(Y)=A(Y+1)
    A(Y+1)=B
  End If
Next Y
Next X
將上面那五個數值氣泡排序，由大排到小 (遞增) 排序

For X=1 To 5
PrintA(X);"";
Next X
Print
顯示排序後的結果，所以執行結果應該是 35 20 15 8 5  

第六題

A$="ABCD":S$=""
SL%=Len(A$)
For I%=SL% To 1 Step-1
S$=S$+Right$(A$,1)+Mid$(A$,I%,1)
Next I%
Print S$       S$=?

以字串變數 A$ 長度執行迴圈 (本題為執行四圈)，每圈各從 A$ 的最右邊取一個字 "D" 及由右依序取一個字加到字串變數 S$ 中，因此

第一圈執行結果 S$="DD"
第二圈執行結果 S$="DDDC"
第三圈執行結果 S$="DDDCDB"
第四圈執行結果 S$="DDDCDBDA" (這也是本題的執行結果了)