≡希の宅≡

同位檢查


Private Sub Command1_Click()
For a = 0 To 6
If Label1(a).Caption = 1 Then
a = a + 1
End If
Next a

If a Mod 2 = 1 Then
Label1(7).Caption = 0
Else
Label1(7).Caption = 1
End If


End Sub

=======================================================

Private Sub Command2_Click()
For a = 0 To 6
If Label1(a).Caption = 1 Then
a = a + 1
End If
Next a

If a Mod 2 = 1 Then
Label1(7).Caption = 1
Else
Label1(7).Caption = 0
End If
End Sub

=============================================================

Private Sub Command3_Click()
Cls
Call Form_Load
End Sub

Private Sub Form_Load()
For i = 0 To 7
Label1(i).Caption = ""
Next i

For j = 0 To 6
Randomize
Label1(j).Caption = Int((1 - 0 + 1) * Rnd + 0)
Next j

End Sub


+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


去除重複-利用陣列


Option Base 1
Dim a() As Integer
Dim b() As Integer
------------------------------
Private Sub Command1_Click()

ReDim a(10) As Integer
ReDim b(20) As Integer


Dim temp As Integer

'For i = 1 To 10
'k1:
'Randomize
'temp = Int((20 - 1 + 1) * Rnd + 1)
'If b(temp) = 1 Then
'GoTo k1
'Else
'a(i) = temp
'b(temp) = 1
'End If
'Next i
'For i = 1 To 10
'Print a(i),
'Next i

i = 1
Do While i <= 10
Randomize
temp = Int((20 - 1 + 1) * Rnd + 1)
If b(temp) = 0 Then
a(i) = temp
b(temp) = 1
i = i + 1
End If
Loop

For i = 1 To 10
Print a(i),
If i Mod 5 = 0 Then Print

Next i
End Sub


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


邏輯運算


Option Base 1
Dim a(8) As Integer
Dim b(8) As Integer
Dim c(8) As Integer
-------------------------------------
Private Sub si2_Click()
For i = 1 To 8
Randomize
a(i) = Int((1 - 0 + 1) * Rnd + 0)
b(i) = Int((1 - 0 + 1) * Rnd + 0)
Next i


Print Space(20);

For j = 1 To 8
Print a(j);
Next j
Print

Print Space(20);

For k = 1 To 8
Print b(k);
Next k
Print



End Sub

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

Private Sub si3_Click()

Print Space(13) & "AND" & Space(2) & "-----------------------"
For i = 1 To 8
If a(i) + b(i) = 2 Then
c(i) = 1
Else
c(i) = 0
End If
Next i

Print Space(20);

For j = 1 To 8
Print c(j);
Next j
Print

End Sub

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

Private Sub si4_Click()

Print Space(13) & "OR" & Space(2) & "-----------------------"
For i = 1 To 8
If a(i) + b(i) >= 1 Then
c(i) = 1
Else
c(i) = 0
End If
Next i

Print Space(20);

For j = 1 To 8
Print c(j);
Next j
Print
End Sub

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

Private Sub si5_Click()

Print Space(13) & "XOR" & Space(2) & "-----------------------"
For i = 1 To 8
If a(i) = b(i) Then
c(i) = 0
Else
c(i) = 1
End If
Next i

End Sub