【分享】電腦課作業

[Cillin 10]

坐最後一排看的很清楚

大家都認真的盯著螢幕..

作業：

1.單位分數

2.abc組合

兩個VB檔提供參考

Dim List() As Integer

Dim Max As Integer, R As Integer, count As Integer

Function C(n As Integer) As Long

If n > R Then

For i = 1 To R

Debug.Print List(i);

Next

count = count + 1

Debug.Print

Else

For i = List(n - 1) + 1 To Max - R + n

List(n) = i

Call C(n + 1)

Next

End If

End Function

Sub Main()

Max = 5

R = 3

ReDim List®

Call C(1)

Debug.Print count

End Sub

Dim List() As Integer

Sub Main()

Debug.Print "共"; C(5, 3)

Debug.Print "共"; C(4, 4)

End Sub

---------------------------------------------------------------------------------------------------

Function C(Max, R) As Long

If R = 0 Then

C = 1

Exit Function

End If

Dim Count As Long, n As Integer

ReDim List®

n = 1

Do Until n = 0

' 對於每一格欄位，

If List(n) >= Max - R + n Then

n = n - 1

Else

List(n) = List(n) + 1

Do While n < R

List(n + 1) = List(n) + 1

n = n + 1

Loop

End If

If n = R Then

Count = Count + 1

For j = 1 To R

Debug.Print List(j);

Next

Debug.Print

End If

Loop

C = Count

End Function

[ppchan 10]

你真是好人XDD

(話說從開學到現在好像很多作業 但是幾乎沒交過嘛= ="

只有交過一開始那兩個作業)

[蝴蝶捷 10]

有前途有前途~~