Bài tập VBA cho những người rỗi. . . đủ thứ! (3 người xem)

[SA_DQ]

Hãy viết hàm người dùng để xác định trị thứ N nào đó trong dẫy:

1, 2, 4, 5, 7, 8, . . .


Ví dụ bổ sung: Con số tiếp theo con số 8 sẽ là con số 10; & như vậy trong chuỗi không chứa các bội số của con số 3
​

 

[HieuCD]

Hãy viết hàm người dùng để xác định trị thứ N nào đó trong dẫy:

1, 2, 4, 5, 7, 8, . . .


Ví dụ bổ sung: Con số tiếp theo con số 8 sẽ là con số 10; & như vậy trong chuỗi không chứa các bội số của con số 3
​

= N + INT( (N-1)/2 )

 

[Mr.hieudoanxd]

Từ khi có mấy ông AI phải công nhận là em lười suy nghĩ đi bao nhiêu!

 

[SA_DQ]

Mình cũng vậy;
Mình đưa bảng này lên & Copilot rút ra kết luân dùm:

 

[ptm0412]

Tác giả bài 2 không dùng AI, chắc chỉ trong 3 giây là có phép tính, 30 giây để viết bài. AI các kiểu thì phải 3 ngày rưỡi.
Đặc biệt:
- AI ở bài 3 không làm tròn bài toán chia 2 nên kết quả thập phân
- Copilot ở bài 4 chỉ thấy quy luật mà không thấy phép tính ra kết quả.

 

[SA_DQ]

Mình đã nhờ & Copilot khẳng định có thể viết 1 hàm tổng quát để hoặc tìm vị trí của giá trị hay tìm trị của 1 vị trí trong chuỗi
Theo kiểu
(♥) Cho con số 100 tìm ra vị trí hay trị của chuỗi tại vi trí này

Function TraBangSoLieu( Num As Integer, Optional ViTri As Boolean = False)
If ViTri Then
. . . .
End If
End Function

 

[Trần Văn Bình]

AI cho mình công thức sau chưa text htwr thế nào
' Trả về phần tử thứ N trong dãy: 1, 2, 4, 5, 7, 8, 10, ...
Function NthTerm(ByVal N As Long) As Long
' Công thức O(1): N + floor((N-1)/2)
NthTerm = N + (N - 1) \ 2
End Function