ต่อไป »

[scrop]

โค๊ด:

        Dim dataInput(0 To 4) As Integer
        Dim operText(0 To 3) As String
        Dim operIndex As Integer
        Dim strResult As String

        operText(0) = "+"
        operText(1) = "-"
        operText(2) = "*"
        operText(3) = "/"

        dataInput(0) = Val(TextBox1.Text)
        dataInput(1) = Val(TextBox2.Text)
        dataInput(2) = Val(TextBox3.Text)
        dataInput(3) = Val(TextBox4.Text)
        dataInput(4) = Val(TextBox5.Text)

        strResult = "((((" & dataInput(0) & " "
        For i = 1 To 4
            strResult &= operText(Int(Rnd() * 4)) & " " & dataInput(i) & ")"
        Next
        MsgBox(strResult)

        Dim result = New DataTable().Compute(strResult, Nothing)

        MsgBox(strResult & " : " & result)

พออ่านดูแล้วท่าทางจะสนุก ก็เลยลองเขียนโปรแกรมขึ้นมา ไม่รู้ว่าจะตอบความตั้งใจแรกได้อยู่หรือเปล่าครับ

ได้แล้วครับ ขอบคุณมากครับ ^^
+1 ให้แล้วครับ

ขอบคุณครับ 

[JIM-SEO]

อย่างนี้ไปตั้งโฮสได้แล้วครับ รับผิดชอบดีไม่ทิ้งปัญหา อิอิ

ฮามากท่าน 

[kudjung]

 

ลงหม้อไปนานแล้ว VB

[ShellSort2]

เจอ VB แล้วปวดหัวครับ 

[ohmpro]

เห็นโค้ดแล้วจาอ้วก เจอทั้งวัน 

[max_us]

ลงหม้อเหมือนกันเลย มึนเลยครับ