trav2t > 01-08-13, 04:44 PM
Dim i As Integer, n As Integer
Dim taphop As Tập hợp '(Tập hợp kiểu Number -> cái này không biết sao hết) :040:
taphop = Null
For i=1 to n
If (i thoa dieu kien) then
taphop = taphop + i 'Thêm i vào tập hợp. Câu lệnh này cũng không biết viết sao hết :040:
End If
Next i
Dim s As String
s=""
For i = 1 to Số_lượng_tập_hợp
s = s & taphop.i & ","
Next i
MsgBox s, vbOkOnly,"Thông báo"
quan_pc > 01-08-13, 08:35 PM