Dim intNum As Integer
Dim i As Integer
With Me
.AutoRedraw = True
End With
intNum = CInt(InputBox("กรอกแม่สูตรคูณครับ(เป็นตัวเลขเท่านั้น))", "กรอกข้อมูล"))
Me.Caption ="สูตรคูณแม่ " & intNum
For i = 1 To 12 Step 1
Print Space(1); i & " X " & intNum & " = " & i * intNum
Next

*เวลานำไปใช้ท่านสามารถ copy ไปไว้ตรง Form_Load() ได้เลยนะครับ

Comment

Comment:

Tweet

#48 By (158.108.209.254|158.108.209.254) on 2014-08-25 00:09

#47 By 2 (1.179.166.46|10.10.0.50, 1.179.166.46) on 2014-02-21 11:26

#46 By 12 (1.179.172.42|10.10.0.147, 1.179.172.42) on 2014-02-17 15:34

ใคร ช่วยตอบหน่อย แล้วมันรันไม่ได้อ้ะ ไม่มันตรงกับ Text อ้ะ

#45 By เราเอง (114.109.236.110|114.109.236.110) on 2014-02-10 19:56

#44 By นริศรา (103.7.57.18|125.26.164.147) on 2013-03-04 11:00

#43 By วาสนา (103.7.57.18|180.183.238.81) on 2013-01-31 11:08

รบกวนผู้รู้หน่อยครับ
มี text1 กับ text2
ถ้าใส่ค่าเป้นตัวเลขลงไปใน text1 แล้วให้มันคำนวณดอกเบี้ย แล้วไปแสดงใน text2 ต้องใช้โค๊ต อะไรหรอครับ

#42 By วรินทร (103.7.57.18|124.121.118.233) on 2012-12-18 15:12

#41 By orthai (103.7.57.18|10.0.1.231, 118.173.22.44) on 2012-11-21 10:30

แล้วถ้าต้องการให้แสดงผลใน Text ที่เราต้องการหละค่ะ

#40 By ขอความช่วยเหลือ (202.29.223.114) on 2012-01-23 08:26

แล้วถ้าจะให้แสดงที่จุดที่เราต้องการหละค่ะต้องหรือเติมต้องไหนอ่ะ ช่วยชี้แนะหน่อยค่ะ

#39 By kif (202.29.223.114) on 2012-01-17 09:45

Dim a As Integer
Picture1.Cls
c = InputBox("ใส่แม่สูตรคูณที่ต้องการ")
While b <= 12
Sum = Sum * b
b = b + 1
Picture1.Print c & "x" & b & "=" & b * c
Wend
อันนี้ผมดัดแปลงเองครับ ง่ายๆ big smile

#38 By http://www.facebook.com/profile.php?id=1836346793 (110.164.27.252) on 2011-09-16 10:55

ผมโดนด่าเลยก๊อปส่งจานถามตอบบ่รุเรื่อง 55555555555555555555555555555question question

#37 By ป๊อก (110.164.27.252) on 2011-09-16 10:36

thank you

#36 By ali (61.90.92.220) on 2011-09-02 07:34

big smile big smile big smile big smile big smile big smile big smile

ขอบคุณมากเลยค่ะ
สำหรับโค้ด สูตรคูณ

big smile big smile big smile big smile big smile big smile big smile

#35 By suriwipa (202.143.172.75) on 2011-01-20 15:36

จะทำสูตรคูณโดยใช้ do while..loop ยังไงครับ

#34 By loh (182.52.164.232) on 2011-01-04 17:37

โทษทีครับ ทำไว้หลายปีแล้ว ไม่ได้เข้ามานาน พึ่งมาดูวันนี้แหละ ตอนนี้ไม่ได้ใช้ VB แล้ว ใช้แต่ C# แต่ถ้าไม่เข้าใจ VB บรรทัดไหนก็ยังถามได้ครับ

#33 By Airy on 2010-12-14 10:34

ขอบคุณมากมาย
คือว่าพุ่งนี้อาจารย์ให้ส่งสูตรคูณพอดีแต่ถ้าจพให้ดี
ช่วยอธิบายให้หน่อยว่าแต่ละบรรทัดมันคืออะำไร
เพาะเรียนวิชานี้โง่มาก
ขอบคุณคร่าาาาาาาาาาาาาา....+++++++++confused smile confused smile confused smile sad smile

#32 By ก้าว (183.89.138.16) on 2010-12-07 20:59

12 + 22 + 32 + 42 + … 92 + 102

#31 By (203.158.176.229) on 2010-09-01 14:10

tongue question embarrassed surprised smile wink double wink cry cry big smile open-mounthed smile confused smile

#30 By (203.114.111.133) on 2010-09-01 09:27

#29 By (203.114.111.133) on 2010-09-01 09:25

#28 By (203.114.111.133) on 2010-09-01 09:25

#27 By (203.114.111.133) on 2010-09-01 09:25

#26 By (203.114.111.133) on 2010-09-01 09:25

#25 By (203.114.111.133) on 2010-09-01 09:24

#24 By eeee (202.29.32.130) on 2010-08-24 09:53

#23 By (202.29.32.130) on 2010-08-24 09:53

คอบคุณครับดีมากเลย

#22 By chokdee (112.142.130.216) on 2010-07-05 16:14

Dim intNum As Integer
Dim i As Integer
With Me
.AutoRedraw = True
End With
intNum = CInt(InputBox("กรอกแม่สูตรคูณครับ(เป็นตัวเลขเท่านั้น))", "กรอกข้อมูล"))
Me.Caption ="สูตรคูณแม่ " & intNum
For i = 1 To 12 Step 1
Print Space(1); i & " X " & intNum & " = " & i * intNum
Next

#21 By (125.26.197.165) on 2010-06-30 11:23

thank you

#20 By happyhitec on 2010-05-27 12:07

ได้แล้ว Thank you
แต่ต้องเปลี่ยนจาก
Print Space(1); i & " X " & intNum & " = " & i * intNum
เป็น
Print Space(1); intNum & " X " & i & " = " & i * intNum

#19 By DVC (118.173.251.177) on 2010-03-18 10:53

ขอบคุณนะคะ

#18 By อีฟเม้ (180.183.55.169) on 2010-02-23 20:21

หยาบคาย

#17 By (119.31.95.50) on 2010-02-04 21:18

ไม่ได้ไอ้สัด

#16 By Wasabi (222.123.250.196) on 2010-01-10 18:24

OK

#15 By classic (203.172.179.43) on 2009-11-26 12:24

big smile

#14 By poppy (202.28.35.2) on 2009-10-13 21:24

#13 By (124.157.144.158) on 2009-07-22 00:30

#12 By (124.157.144.158) on 2009-07-22 00:17

#11 By (203.158.176.200) on 2009-07-21 18:51

Dim intNum As Integer
Dim i As Integer
With Me
.AutoRedraw = True
End With
intNum = CInt(InputBox("กรอกแม่สูตรคูณครับ(เป็นตัวเลขเท่านั้น))", "กรอกข้อมูล"))
Me.Caption ="สูตรคูณแม่ " & intNum
For i = 1 To 12 Step 1
Print Space(1); i & " X " & intNum & " = " & i * intNum
Next

#10 By wsw (124.157.229.72) on 2009-04-06 13:07

#9 By (203.146.198.135) on 2009-03-31 12:36

#8 By (203.146.198.135) on 2009-03-31 12:36

1*1

#7 By (203.146.198.135) on 2009-03-31 12:34

#6 By (118.175.2.74) on 2009-02-19 10:39

thank you ka..

#5 By (211.121.189.144) on 2008-10-13 13:06

#4 By (202.143.134.179) on 2008-07-28 11:48

#3 By (202.143.134.179) on 2008-07-28 11:47

cc

#2 By cvc (203.172.163.195 /192.168.212.134) on 2007-08-24 11:46

#1 By (203.154.67.168 /192.168.10.66) on 2007-07-25 15:32