ชื่อออบเจ็กต์

คุณสมบัติ

ค่าที่กำหนด

1. Form

Name

frmPower

Text

การคำนวณหาเลขยกกำลัง

2. GroupBox

Name

GroupbBox1

Text

ป้อนข้อมูล

3. Label

Name

Label1

Text

ป้อนเลขฐาน

4. Label

Name

Label2

Text

ป้อนเลขยกกำลัง

5. TextBox

Name

TextBox1

Text

6. TextBox

Name

TextBox1

Text

7. GroupBox

Name

GroupBox2

Text

ผลลัพธ์

Visible

False

8. Label

Name

Label3

Text

9. Button

Name

Button1

Text

ตกลง

Public Class frmPower

    Private Sub FrmPower_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.CenterToScreen()

        GroupBox1.Text = "ป้อน ตัวเลข "

        GroupBox2.Text = " ผลลัพธ์ "

        Label1.Text = "ป้อนเลขฐาน"

        Label2.Text = "ป้อนเลขกำลัง"

        TextBox1.Text = ""

        TextBox2.Text = ""

        Button1.Text = "ตกลง"

        GroupBox2.Visible = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim b, ee, i, s As Integer

        b = CInt(TextBox1.Text)

        ee = CInt(TextBox2.Text)

        Label1.Text = b

        i = 1

        s = 1

        Do While (i <= ee)

            s = s * b

            i = i + 1

        Loop

        'MsgBox(s)

        'MessageBox.Show(s)

        Label3.Text = b & " ^ " & ee & " = " & s

        GroupBox2.Visible = True

    End Sub

End Class

รูปแบบ ดังนี้

                      Sub ชื่อซับรูทีน(รายการพารามิเตอร์)

                                       < คำสั่งการทำงาน >

                       End Sub

รูปแบบ ดังนี้

                      Function  ชื่อฟังก์ชัน(รายการพารามิเตอร์) As ชนิดข้อมูล

                                       < คำสั่งการทำงาน >

                                       ชื่อฟังก์ชัน = ค่าที่คืนกลับ

                       End Function

Label3.Text = Power(TextBox1.Text, TextBox2.Text)

Function Power(ByVal base As String, ByVal expoment As String) As Integer

        Dim b, ex, i, s As Integer

        b = CInt(base)

        ex = CInt(expoment)

        s = 1

        i = 1

        Do While (i <= ex)

            s = s * b

            i = i + 1

        Loop

        Return s

    End Function

Module Module1

    Function SUMNUMBER(ByVal N1 As String, ByVal N2 As String, ByVal Type As Byte) As Integer

        Dim X, Y, S As Integer

        X = Val(N1)

        Y = Val(N2)

        S = 0

        Select Case Type

            Case 1 'ทั้งหมด

                Do While (X <= Y)

                    S = S + X

                    X = X + 1

                Loop

            Case 2 ' เลขคี่

                Do While (X <= Y)

                    If (X Mod 2 = 1) Then

                        S = S + X

                    End If

                    X = X + 1

                Loop

            Case 3 ' เลขคู่

                Do While (X <= Y)

                    If (X Mod 2 <> 1) Then

                        S = S + X

                    End If

                    X = X + 1

                Loop

        End Select

        Return S

    End Function

End Module

Public Class Form1

    Private Sub Form1_Load

        Me.CenterToScreen()

        Label1.Text = "ป้อนเลขเริ่มต้น"

        Label2.Text = "ป้อนเลขสุดท้าย"

        Label3.Text = ""

        TextBox1.Text = ""

        TextBox2.Text = ""

        Label3.Text = ""

        Button1.Text = " ออก "

        RadioButton1.Text = " ทั้งหมด "

        RadioButton2.Text = " เลขคึ่ "

        RadioButton3.Text = " เลขคู่ "

    End Sub

    Private Sub Button1_Click

        End

    End Sub

    Private Sub RadioButton2_CheckedChanged

        RadioButton2.CheckedChanged

        Label3.Text = SUMNUMBER(TextBox1.Text, TextBox2.Text, 2)

    End Sub

    Private Sub RadioButton3_CheckedChanged

        RadioButton3.CheckedChanged

        Label3.Text = SUMNUMBER(TextBox1.Text, TextBox2.Text, 3)

    End Sub

    Private Sub RadioButton1_CheckedChanged  

        RadioButton1.CheckedChanged

        Label3.Text = SUMNUMBER(TextBox1.Text, TextBox2.Text, 1)

    End Sub

End Class