------------------------------------------------------------------------------------------------------------------------------

โปรแกรม VB

เรื่อง...การทำโปรแกรมแฟกทอเรียน

------------------------------------------------------------------------------------------------------------------------------

โค้ด Form1 โปรแกรมแฟกทอเรียน

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
Label2.Text = ""

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num, i, sum As Byte
Dim fac As Long

num = CInt(TextBox1.Text)
fac = 1

Do While num >= 1
fac = num * fac
num = num - 1
Loop
Label2.Text = Format(fac, "###,###")
End Sub
End Class

ตัวอย่าง

------------------------------------------------------------------------------------------------------------------------------

โค้ด Form2 โปรแกรมแฟกทอเรียนและฟังก์ชั่นคำนวณ

Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
Label2.Text = ""

End Sub
Function aa(ByVal txt_a As String) As Long
Dim num, i As Byte
Dim fac As Long

num = CInt(txt_a)
fac = 1

Do While num >= 1
fac = num * fac
num = num - 1
Loop
Return fac

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label2.Text = aa(TextBox1.Text)
End Sub
End Class

ตัวอย่าง

------------------------------------------------------------------------------------------------------------------------------

โค้ด Form3 โปรแกรมแฟกทอเรียนและการทำModule

Public Class Form3

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
Label2.Text = ""
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aom As Long
aom = m_aa(TextBox1.Text)
Label2.Text = aom
End Sub
End Class

Module Module1
Public Function m_aa(ByVal txt_a As String) As Long
Dim num, i As Byte
Dim fac As Long

num = CInt(txt_a)
fac = 1

Do While num >= 1
fac = num * fac
num = num - 1
Loop
Return fac

End Function

End Module

ตัวอย่าง

------------------------------------------------------------------------------------------------------------------------------

โค้ด Form4 โปรแกรมแฟกทอเรียนพร้อมแสดงผลลัพธ์

Public Class Form4

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CenterToScreen()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num As Byte = 1
Dim aom As Long
Dim ee As Integer = CInt(TextBox1.Text)

Do While num <= ee
aom = m_aa(num)
ListBox1.Items.Add(num & "!" & "=" & aom)
num = num + 1
Loop
Button1.Enabled = False
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
ListBox1.Items.Clear()
Button1.Enabled = True
End Sub
End Class

ตัวอย่าง

------------------------------------------------------------------------------------------------------------------------------

กลับหน้าหลัก