Music
Music  


HOME

Music

หลักการเขียน VB

Music

Homework

Music

Webboard

Music

About Friends

Music

Profile

Music

Music

   
Music
Music
Main Menu
ตารางเรียนภารเรียนที่2/52

Musicหลักการเขียน VB

รู้จัก.NET Framework
แนะนำภาษา Visual Basic
ความรู้พื้นฐาน VB2005
การควบคุมทิศทางของโปรแกรม
การตรวจสอบแก้ไขข้อผิดพลาด

ใบงานที่ 1: หลักการเขียนโปรแกรม

ใบงานที่ 2: ตัวดำเนินการและนิพจน์
ใบงานที่ 3: การเขียนโปรแกรม VB
sports booksHomework
Form
Grad
ร้านก๊วยเตี๊ยว
Factorial
ฟังก์ชันคำนวณ
Test
Menustrip
Webboard
About Friends
Profile

การบ้าน : งาน Factorial

form1

 

 

Public Class Form3

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

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

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

Module Module1
Function expoment(ByVal txt_a As String) As Long
Dim k As Byte
Dim f As Long
k = CInt(txt_a)
f = 1
While (k > 1)
f = f * k
k = k - 1
End While
Return f
End Function
End Module

Top


  
วงรอบ Factorial
ฟังก์ชัน Factorial
โมดูล Factorial
ListBox Factorial
จำนวนผู้เยี่ยมชมเวบ
count internet traffic
Music Music
Free Web Hosting