vui chơi có thưởng

Liên hệ QC
K

khongtu19bk

Thành viên hoạt động
Tham gia
5/12/09
Bài viết
147
Được thích
69
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:
 

File đính kèm

  • B9864BF8-8295-456A-9D31-57E91B9019DA.jpeg
    B9864BF8-8295-456A-9D31-57E91B9019DA.jpeg
    38.6 KB · Đọc: 105
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:
Nhấp chuột vào đây để mở rộng...
tức là làm code tìm kết quả hay sao
 
Đú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
 
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"
 
Lần chỉnh sửa cuối:
Ô vuông kiểu này hình như toán cấp 1 chăng?
 
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:
Nhấp chuột vào đây để mở rộng...
Chụp hình sách gởi lên
 
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.
Nhấp chuột vào đây để mở rộ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).
 
Sách thì nhường cho bạn khác. Code gốc sẽ đưa lên sau :D.
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
 
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:
Nhấp chuột vào đây để mở rộng...
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
 

File đính kèm

  • rua.jpeg
    rua.jpeg
    53 KB · Đọc: 42
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:
Nhấp chuột vào đây để mở rộng...
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
 
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
 
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
Nhấp chuột vào đây để mở rộng...
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
Nhấp chuột vào đây để mở rộng...
Anh ơi chậm rồi.Chắc không có sách đâu.
 
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.
Nhấp chuột vào đây để mở rộng...
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 :D:D:D
 
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 "(@$%@
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

phuyen89
  • Question
Hạn chế số ngày sử dụng của File
2
Trả lời
38
Đọc
10K
nguyentan85
N
hongphuong1997
  • Question
Lấy ký tự trong chuỗi theo nhiều điều kiện
Trả lời
4
Đọc
83
hongphuong1997
hongphuong1997
NguyenNhan789556
  • Question
Viết code trong VBA
Trả lời
1
Đọc
12
BuiQuangThuan
B
xkun2001
  • Question
Nhờ sửa code get hyperlink
Trả lời
0
Đọc
1
xkun2001
xkun2001
nquanglam1987
Hỏi về VBA match và index để tăng tốc xử lí dữ liệu
Trả lời
2
Đọc
88
hoangtuan.net
hoangtuan.net
Xem thêm…

Facebook

Giaiphapexcel.com

Group

DIỄN ĐÀN GIẢI PHÁP EXCEL

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom