เราจะเขียนอย่างไรดีคะถ้าต้องการให้ case รันอัติโนมัติ 1-7 โดยที่ไม่ต้องเขียน case"1" case"2"..... นะคะ เผื่อนาคตอาจจเพิ่มเป็น 8-9 นะคะจะได้ไม่ต้องมาขียนเพิ่มอีกแค่กำหนดค่า i จะได้ case
Code (ASP)
<%Dim i
For i=1 to 7
Response.Write i&""
checknext=5
Select Case checknext
case""
Case Else
End select
next