กิจกรรมที่ 5

Option Explicit
‘ประกาศตัวแปรและแบบข้อมูล
Dim Student_Age As Byte
Dim Student_Score As Integer
Dim Student_Name As String
Dim Pass_Status As Boolean
Dim My_Money As Long
Dim Your_Result As Single
Dim Max_Number As Double
Dim Bank_Account As Currency
Private Sub Command1_Click()
‘กำหนดค่าให้ตัวแปร
Student_Age = 16 ‘Byte (0 – 255)
Student_Score = 80 ‘Integer
Student_Name = “Peterpan” ‘String
Pass_Status = True ‘Boolean
My_Money = 123456789 ‘Long
Your_Result = 12.75 ‘Single
Max_Number = 3.14159265358979 ‘Double
Bank_Account = 92233720368.5478 ‘Currency
‘แสดงค่าตัวแปรด้วยคำสั่ง Print
Print Student_Age
Print Student_Score
Print Student_Name
Print Pass_Status
Print My_Money
Print Your_Result
Print Max_Number
Print Bank_Account
End Sub

||แสดงความคิดเห็นผ่าน Facebook||


ใส่ความเห็น

อีเมลของคุณจะไม่แสดงให้คนอื่นเห็น ช่องที่ต้องการถูกทำเครื่องหมาย *