- Ngày 19/02/2017 : Hello World có lẻ là câu thông báo đầu tiên mà người nào mới chập chững học lập trình đề biết đến, nhưng nếu chúng ta viết msgbox "Hello World" thì quá đơn giản, hôm nay mình tìm thấy một sub rất là hay nên chia sẽ cùng các bạn
Sub HayQua()
Dim i As Long, Ch1 As String, Ch2 As String
For i = 0 To 5
Ch1 = Ch1 & Chr(i * (i * (i * (i * (-0.75 * i + 7.2917) - 22.5) + 16.708) + 28.25) + 72)
Ch2 = Ch2 & Chr(i * (i * (i * (i * (i * (0.425 * i - 6.8667) + 40.833) - 109.58) + 122.24) - 23.05) + 87)
Next i
MsgBox Ch1 & Ch2
End Sub
- Các bạn cho sub này vào module rồi test thử xem nhé.
Sub HayQua()
Dim i As Long, Ch1 As String, Ch2 As String
For i = 0 To 5
Ch1 = Ch1 & Chr(i * (i * (i * (i * (-0.75 * i + 7.2917) - 22.5) + 16.708) + 28.25) + 72)
Ch2 = Ch2 & Chr(i * (i * (i * (i * (i * (0.425 * i - 6.8667) + 40.833) - 109.58) + 122.24) - 23.05) + 87)
Next i
MsgBox Ch1 & Ch2
End Sub
- Các bạn cho sub này vào module rồi test thử xem nhé.
Đăng nhận xét