Tham khảo tài liệu 'autoi technology curriculum book part 18', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Related Dim UBound Example ví dụ Redim Dim I K T MSG Dim X 4 6 Y 4 6 For I 0 To 3 For K 0 To 5 T Int Random 20 1 gán giá trị ngẫu nhiên giữa 1 20 cho các phần tử X I K T y i k T Next Next ReDim X 3 8 Dim Y 3 8 MSG For I 0 To UBound X 1 - 1 For K 0 To UBound X 2 - 1 If K 0 Then MSG MSG MSG MSG X I K Next MSG MSG @CR Next MsgBox 0 ReDim Demo MSG MSG For I 0 To UBound Y 1 - 1 For K 0 To UBound Y 2 - 1 If K 0 Then MSG MSG MSG MSG Y I K Next MSG MSG @CR Next MsgBox 0 ReDim Demo MSG Keyword Reference Select. .Case. .EndSelect cấu trúc rẽ nhiều nhánh Select Case expression1 statementl Case expression2 statement2 . Case Else statementN _ . EndSelect Parameters Case expression biểu thức Remarks nếu expression1 đúng thì làm statementl rồi thoát khỏi cấu trúc select nếu sai thì nếu expression2 đúng thì làm statement2 rồi thoát khỏi cấu trúc select nếu sai hết thì làm statementN nếu có Related Switch. .EndSwitch ContinueCase Example var 0 var2 Select Case var 1 MsgBox 0 điều kiện thứ nhất đúng Case var2 test MsgBox 0 điều kiện thứ hai đúng Case Else MsgBox 0 không điều kiện nào đúng EndSelect Keyword Reference Switch. .Case. .EndSwitch cấu trúc rẽ nhiều nhánh Switch expression Case value To value value To value . statementl Case value To value value To value . statement2 . Case Else statementN _ . . EndSwitch .
