Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,037

HOME > .NET Framework > Forum > ช่วยด้วย Private Sub Command1_Click() Dim total As Integer Dim g As Integer Dim score(5) As Intege

ช่วยด้วย Private Sub Command1_Click() Dim total As Integer Dim g As Integer Dim score(5) As Intege

เริ่มหัวข้อใหม่

Guest

Private Sub Command1_Click()
Dim total As Integer
Dim g As Integer
Dim score(5) As Integer
For g = 1 To 5
score(g) = InputBox("คะแนนทีมที่" & g, "ทีม" & g)
Next g
End Sub

Private Sub Command2_Click()
Dim total As Integer
Dim g As Integer
Dim score(5) As Integer
For g = 1 To 5
total = score(g)
Print "คะแนน" & g; " = "; " ทีมที่ " & g; "=" & g; " คะแนน"
Next g
End Sub

Private Sub Command3_Click()
End
End Sub

ช่วยด้วยต้องการที่จะแสดงค่าคะแนนที่กรอกในcommand 1 แล้วจะแสดงค่าในcommand 2
ทำอย่างไรจนปัญญาแล้ว

Tag : - - - -

Date : 20 พ.ย. 2549 01:51:14

By : หยก

View : 2813

Reply : 1

No. 1

Guest

Private Sub Command1_Click()

มันไม่รู้เป็นไร

ทำยากมาก

เขียนโปรแกรVb

Date : 2010-07-17 21:43:31

By : park

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยด้วย Private Sub Command1_Click() Dim total As Integer Dim g As Integer Dim score(5) As Intege

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05

Registered : 109,037

document.write("<font color=996600>[.NET]</font>"); ช่วยด้วย Private Sub Command1_Click() Dim total As Integer Dim g As Integer Dim score(5) As Intege

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

ช่วยด้วย Private Sub Command1_Click() Dim total As Integer Dim g As Integer Dim score(5) As Intege