แสดงเลขคู่เลขคี่

[Chayanun19]

ต้องการที่จะทำโปรแกรมแสดงเลขคู่และเลขคี่ ด้วย เเบบ windows form application ค่ะ ใช้โค้ดเริ่มเป็น Public class
ตัวอย่างเช่น ใส่ตัวเลข 10 ไปใน textbox1 และ ใส่ตัวเลข 20 ไปใน textbox2 กดปุ่มตกลง ให้แสดงผลลัพธ์ เป็นเลขคู่ คือ 10 12 14 16 18 20 และเลขคี่ คือ 11 13 15 17 19 ค่ะ
หน้าจอโปรแกรมตามแบบที่แนบมาเลยค่ะ

[snasui]

ลองเขียนมาเองก่อน ติดตรงไหนค่อยนำมาถามกันต่อครับ

[Chayanun19]

พยายามลองทำแล้วจริงๆค่ะ ไปไม่ถูกจริงๆค่ะ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Dim b, num1, num2 As Byte
Dim s1, s2 As String
num1 = Val(TextBox1.Text)
num2 = Val(TextBox2.Text)
s1 = ""
s2 = ""
For b = num1 To num2 Step 2
    s1 = s1 & " " & b
    If b < num2 Then
        s2 = s2 & " " & b + 1
    End If
Next b
TextBox3.Text = s1
TextBox4.Text = s2

[Chayanun19]

ได้แล้วค่ะ ขอบคุณมากๆนะคะ

[profess79]

ตัวอย่าง Code ครับ

Code: Select all

Dim b, num1, num2 As Byte
Dim s1, s2 As String
num1 = Val(TextBox1.Text)
num2 = Val(TextBox2.Text)
s1 = ""
s2 = ""
For b = num1 To num2 Step 2
    s1 = s1 & " " & b
    If b < num2 Then
        s2 = s2 & " " & b + 1
    End If
Next b
TextBox3.Text = s1
TextBox4.Text = s2

แบบนี้ถ้า user ใส่ 21-30 ละครับ

[snasui]

กรุณายกคำถามนี้ไปถามในหมวด Excel ตรงนี้เป็นหมวดของ VB.NET ครับ

[profess79]

อันนี้ผมถามในส่วนของ Code ที่ Quote มาครับน่าจะตรงหมวดแล้ว
หรือผมถามผิดอะไรตรงไหนครับ

[snasui]

แบบนี้ถ้า user ใส่ 21-30 ละครับ

จะให้แสดงคำตอบเป็นอย่างไร ช่วยแจกแจงคำตอบมาเป็นตัวอย่างด้วยครับ

[profess79]

พอดีไม่เห็นอะไรที่มันเป็นการหาร 2 เอาเศษ 0 ครับ

มันเลยออกมาแบบนี้




ที่ถูกต้องมีการหาร 2 เอาเศษ 0 ประมาณนี้ครับ



อันนี้เขียนจาก VB6 นะครับ แต่ VB.Net ก็คล้ายๆ กันครับ

[snasui]

สามารถปรับ Code ตอนให้แสดงผลใน TextBox เป็นด้านล่างครับ

Code: Select all

'Other code
    Next b
    If num1 Mod 2 = 0 Then
        TextBox3.Text = s1
        TextBox4.Text = s2
    Else
        TextBox3.Text = s2
        TextBox4.Text = s1
    End If
End Sub