Private Sub command1_click() Dim i As Integer Dim Area As Integer If Text1.Text = "" Then MsgBox " select 1 Or 2 " ElseIf Text1.Text = 2 Then Print "โปรแกรมแม่สูตรคูณ 12" For i = 0 To 12 Area = i * 6 Print i & "*" & 12 & "=" & Area * Text1.Text Next i Dim x As Integer Dim y As Integer
ElseIf Text1.Text = 1 Then Print "โปรแกรมผลบวกของตัวเลข"
For x = 5 To 50 Step 5 Print x y = x + y Next x Print "ผลลัพธ์" & "=" & y
รุป่าวว
คนข้างเตียงด้านซ้ายมือ
เค้าอ่า
มาน อ้วน!!!!
อิอิ
สะจายยย
ฮ่า ++
ไปละ
บะบายยย
ฝันดีง๊าบบบ
ไอ้คนอ้วนนน