內容 ：
有 1 個 bit，可以表示 0 與 1。
有 2 個 bit，可以表示 00，01，10，11。
有 n 個 bit，請產生所有 n 個 bit 所能表示的 2 進位數字。
輸入說明 ：
每行一個數字 n ( 0 < n < 15 )
代表 n 個bit
輸出說明 ：
請參考範例輸出
範例輸入 ：
1
2
範例輸出 ：
0
1
00
01
10
11
提示 ：
字串是你的好朋友
Dim num As Integer
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As 2
Do
Input #1, num
Call rr(num, "")
Loop Until EOF(1)
Close #2
Close #1
End
End Sub
Public Function rr(ByVal lenth As Integer, k As String)
If Len(k) = lenth Then
Print #2, k
Else
For i = 0 To 1
Call rr(num, k & i)
Next
End If
End Function
Dim n As String
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
Input #1, n
Call a("")
Loop
Close #2
Close #1
End
End Sub
Sub a(b)
If Len(b) = Val(n) Then
Print #2, b
b = ""
Else
For i = 0 To 1
Call a(b & i)
Next i
End If
End Sub