vui chơi có thưởng (1 người xem)

khongtu19bk · 27/10/19

Mời anh chị em tham gia giải toán bằng VBA.
Thời gian: Ai trả lời sớm nhất, và trước ngày 10/11/2019 sẽ trúng thưởng.
Giải thưởng:
Một cuốn sách VBA.

Yêu cầu dùng VBA để chỉ ra được một đáp án đúng.

Nội dung:

hoangexcell · 27/10/19

khongtu19bk đã viết:
Mời anh chị em tham gia giải toán bằng VBA.
Thời gian: Ai trả lời sớm nhất, và trước ngày 10/11/2019 sẽ trúng thưởng.
Giải thưởng:
Một cuốn sách VBA.

Yêu cầu dùng VBA để chỉ ra được một đáp án đúng.

Nội dung:

tức là làm code tìm kết quả hay sao

khongtu19bk · 27/10/19

Đúng rồi bạn. Nếu bạn không thạo vba nhưng trình bày bằng lời giải toán thì cũng được chấp nhận

VetMini · 27/10/19

Xin phép quý vị tôi rút lui. Mới đầu xem lầm nó là "Lập Trình" thì tôi mới ọ oẹ. Xem kỹ lại thì mình lầm, tôi không nói chuyện lập trình trong "Giao lưu, Thư giãn"

ppc0312 · 27/10/19

Ô vuông kiểu này hình như toán cấp 1 chăng?

HieuCD · 27/10/19

khongtu19bk đã viết:
Mời anh chị em tham gia giải toán bằng VBA.
Thời gian: Ai trả lời sớm nhất, và trước ngày 10/11/2019 sẽ trúng thưởng.
Giải thưởng:
Một cuốn sách VBA.

Yêu cầu dùng VBA để chỉ ra được một đáp án đúng.

Nội dung:

Chụp hình sách gởi lên

Phuocam · 28/10/19

5/34+9/12+7/68 .

befaint · 28/10/19

ongke0711 đã viết:
Tôi nghĩ ông ilvba này chơi chữ thôi và tôi thiết nghĩ những câu phản hồi đối với một chủ đề như vậy là dư thừa, làm loãng việc theo dõi những bài viết có tính xây dựng.

Anh không biết mấy thành viên kia là ai rồi.

)
Họ ở diễn đàn kia và 'cực kỳ ghét' diễn đàn GPE. Anh vào đó mà đọc (đọc xong muốn té ghế luôn ấy).

huuthang_bd · 28/10/19

Sách thì nhường cho bạn khác. Code gốc sẽ đưa lên sau

.

Mã:

Const l_I_l = 7, l_I_I_l = 6, l_l_I_I = 5, l_l_I_l = 4, l_I_l_l_I = 3, l_l_l_l_l = True, l_I_I = 2, l_l_I_l_I = 8, l_I_l_l = 511, l_I_I_I_l = 0, l_l_l_l_I = 9, l_l_l = 1, l_I_l_I_l = "_", l_l_l_l = "l", l = "I"
Dim l_l_I_l_l(l_l_l To l_l_l_l_I) As Long, l_I_l_I_I As Boolean
Sub ABC(): Dim l_l_l_l As Long: For l_l_l_l = l_l_l To l_l_l_l_I: l_l_I_l_l(l_l_l_l) = l_l_l_l: Next: l_l_I_I_I l_I_I_I_l, l_I_l_l: l_I_l_I_I = False: End Sub
Private Sub l_l_I_I_I(ByVal l_I_l_l As Long, ByVal l_l_l_l As Long)
If l_I_l_I_I Then Exit Sub
l_I_l_l = l_I_l_l + l_l_l: For l_l_I_I_l = l_I_I_I_l To l_l_I_l_I
If l_I_I ^ l_l_I_I_l And l_l_l_l Then
l_l_I_l_l(l_I_l_l) = l_l_I_I_l + l_l_l
If l_I_l_l < l_l_l_l_I Then
l_l_I_I_I l_I_l_l, l_l_l_l - l_I_I ^ l_l_I_I_l
ElseIf l_l Then
l_I_l_I_I = l_l_l_l_l: l_I_l_l_l: Exit Sub: End If: End If: Next: End Sub
Private Function l_l() As Boolean: l_l = (l_l_I_l_l(l_l_l) / CLng(l_l_I_l_l(l_I_I) & l_l_I_l_l(l_I_l_l_I)) + l_l_I_l_l(l_l_I_l) / CLng(l_l_I_l_l(l_l_I_I) & l_l_I_l_l(l_I_I_l)) + l_l_I_l_l(l_I_l) / CLng(l_l_I_l_l(l_l_I_l_I) & l_l_I_l_l(l_l_l_l_I)) = l_l_l): End Function
Private Sub l_I_l_l_l(): Dim l_l_l_l_l As Long: For l_l_l_l_l = l_l_l To l_l_l_l_I: Cells(l_l_l, l_l_l_l_l) = l_l_I_l_l(l_l_l_l_l): Next: End Sub

chiendich · 28/10/19

khongtu19bk đã viết:
Mời anh chị em tham gia giải toán bằng VBA.
Thời gian: Ai trả lời sớm nhất, và trước ngày 10/11/2019 sẽ trúng thưởng.
Giải thưởng:
Một cuốn sách VBA.

Yêu cầu dùng VBA để chỉ ra được một đáp án đúng.

Nội dung:

Ma thuật này thời đại học có nghe thầy giáo nói đến: 492 -357 -816 . cộng ngay, cộng chéo đều = 15
nay bạn @khongtu19bk nhắc đến có giống ma thuật này không nhỉ? vba thì chưa nghỉ ra nhưng con số thô thì 1= 4/92+3/57+8/16 có vẽ giống ma thuật này.
Hy vọng sẽ có lời giải bằng vba để học hỏi

huuthang_bd · 28/10/19

chiendich đã viết:
1= 4/92+3/57+8/16

Có nhầm lẫn gì không bạn?

chiendich · 28/10/19

huuthang_bd đã viết:
Có nhầm lẫn gì không bạn?

Tính lại đúng là nhầm! hy vọng anh cho lời giải để em học hỏi. cảm ơn anh

huuthang_bd · 28/10/19

chiendich đã viết:
Tính lại đúng là nhầm! hy vọng anh cho lời giải để em học hỏi. cảm ơn anh

Bài #12 đó bạn.

CHAOQUAY · 28/10/19

khongtu19bk đã viết:
Mời anh chị em tham gia giải toán bằng VBA.
Thời gian: Ai trả lời sớm nhất, và trước ngày 10/11/2019 sẽ trúng thưởng.
Giải thưởng:
Một cuốn sách VBA.

Yêu cầu dùng VBA để chỉ ra được một đáp án đúng.

Nội dung:

Mã:

Sub Test()
Dim Arr0
Dim Result
Dim i, k
Sheet1.UsedRange.Clear
Arr0 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
k = UBound(Arr0)
ReDim Result(k)
PMT ByVal Arr0, ByVal k, ByVal Result, ByVal i, k
End Sub

Sub PMT(ByVal SArr, ByVal cl, ByVal ResN, ByVal rw, DmS)
Dim Arr1
Dim i, j, k
If cl < 0 Then
    ReDim j(1 To 3)
    For i = 0 To DmS Step 3
        k = k + ResN(i) / (ResN(i + 1) * 10 + ResN(i + 2))
        j(Int(i / 3) + 1) = ResN(i) & "_" & (ResN(i + 1) * 10 + ResN(i + 2))
    Next i
    If k = 1 Then Sheet1.Range("A1000000").End(xlUp).Offset(1).Resize(1, 3) = j
Else
    For i = 0 To cl
        ResN(rw) = SArr(i)
        Arr1 = SArr
        Arr1(i) = Arr1(cl)
        PMT ByVal Arr1, ByVal cl - 1, ByVal ResN, ByVal rw + 1, DmS
    Next i
End If
End Sub

Phuocam · 28/10/19

PHP:

Private Function TronDe(s As String) As String
Dim i As Integer, lens As Integer, r As Integer
Dim temp As String
Randomize
lens = Len(s)
For i = 1 To lens
    r = Int(Rnd() * lens) + 1
    temp = Mid(s, r, 1)
    Mid(s, r, 1) = Mid(s, i, 1)
    Mid(s, i, 1) = temp
Next i
TronDe = s

End Function
'********************'
Public Sub TimSo()
Dim dapan As String
Dim s As String
Dim i As Long
Const n = "123456789"

For i = 1 To 500000
    s = TronDe(n)
    dapan = Format(s, "0/00+0/00+0/00")
    If Evaluate("=" & dapan) = 1 Then
        Range("K1").Value = dapan
        Exit Sub
    End If
Next i

End Sub

snow25 · 28/10/19

CHAOQUAY đã viết:

Mã:

Sub Test()
Dim Arr0
Dim Result
Dim i, k
Sheet1.UsedRange.Clear
Arr0 = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
k = UBound(Arr0)
ReDim Result(k)
PMT ByVal Arr0, ByVal k, ByVal Result, ByVal i, k
End Sub

Sub PMT(ByVal SArr, ByVal cl, ByVal ResN, ByVal rw, DmS)
Dim Arr1
Dim i, j, k
If cl < 0 Then
    ReDim j(1 To 3)
    For i = 0 To DmS Step 3
        k = k + ResN(i) / (ResN(i + 1) * 10 + ResN(i + 2))
        j(Int(i / 3) + 1) = ResN(i) & "_" & (ResN(i + 1) * 10 + ResN(i + 2))
    Next i
    If k = 1 Then Sheet1.Range("A1000000").End(xlUp).Offset(1).Resize(1, 3) = j
Else
    For i = 0 To cl
        ResN(rw) = SArr(i)
        Arr1 = SArr
        Arr1(i) = Arr1(cl)
        PMT ByVal Arr1, ByVal cl - 1, ByVal ResN, ByVal rw + 1, DmS
    Next i
End If
End Sub

Có sách gửi mình xem nhé.Mình chưa đọc sách bao giờ.Toàn tìm tài liệu trên diễn đàn chưa có sách đọc.

phuocam đã viết:

PHP:

Private Function TronDe(s As String) As String
Dim i As Integer, lens As Integer, r As Integer
Dim temp As String
Randomize
lens = Len(s)
For i = 1 To lens
    r = Int(Rnd() * lens) + 1
    temp = Mid(s, r, 1)
    Mid(s, r, 1) = Mid(s, i, 1)
    Mid(s, i, 1) = temp
Next i
TronDe = s

End Function
'********************'
Public Sub TimSo()
Dim dapan As String
Dim s As String
Dim i As Long
Const n = "123456789"

For i = 1 To 500000
    s = TronDe(n)
    dapan = Format(s, "0/00+0/00+0/00")
    If Evaluate("=" & dapan) = 1 Then
        Range("K1").Value = dapan
        Exit Sub
    End If
Next i

End Sub

Anh ơi chậm rồi.Chắc không có sách đâu.

CHAOQUAY · 28/10/19

snow25 đã viết:
Có sách gửi mình xem nhé.Mình chưa đọc sách bao giờ.Toàn tìm tài liệu trên diễn đàn chưa có sách đọc.

Anh ơi chậm rồi.Chắc không có sách đâu.

Viết cho vui vậy thôi, thưởng phạt gì nữa bạn
Sách vở giờ chịu không dám đọc, nằm xem video cho nó nhàn cái thân

snow25 · 28/10/19

CHAOQUAY đã viết:
Viết cho vui vậy thôi, thưởng phạt gì nữa bạn
Sách vở giờ chịu không dám đọc, nằm xem video cho nó nhàn cái thân

Thế mới bảo cho mình mượn đọc.

thuyyeu99 · 28/10/19

Giải hong ra khó quá, ai lãnh thưởng không dùng đến sách Tặng mình nhé
"Ước mơ .... Chắc chỉ là mơ Ước " (@$%@

befaint · 28/10/19

snow25 đã viết:
Chắc không có sách đâu.

Bạn không sợ ban tổ chức tự ái à. Họ chỉ tặng bản dịch thôi (không biết dịch chuẩn bản gốc không), bản gốc không tặng.

vui chơi có thưởng (1 người xem)

Người dùng đang xem chủ đề này

Thành viên hoạt động

File đính kèm

Thành viên tiêu biểu

Thành viên hoạt động

Ăn cùng góc phố

whom?

Chuyên gia GPE

Thành viên mới

|||||||||||||

Chuyên gia GPE

Lỡ bước sang ngang

File đính kèm

Chuyên gia GPE

Lỡ bước sang ngang

Chuyên gia GPE

Thành viên gắn bó

Thành viên mới

Thành viên gạo cội

Thành viên gắn bó

Thành viên gạo cội

Trùm Nhiều Chuyện

|||||||||||||

Đếm ngược thời gian