我有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" (这也是本题的执行结果了)