for 루프에서 런타임 변수 값을 읽음

Question

아래 코드에서 ... kk1 = "one", kk2 = "Two", kk3 = "Three"및 kk4 = "Four" .

은 내가 MSGBOX이 하나, 둘, 셋 대신 KK1, KK2, KK3 및 KK4

For i = 1 To 4 
    vari_value = "kk" & i 
    MsgBox vari_value 
Next 

Answer 1

네 달성 할 수있다 선택의 경우 한 Statment를 사용하여 표시 루프 아래의 코드를 참조 할 4-1에서, "KK2", "KK3", "KK4"

Public Sub run() 
For i = 1 To 4 
vari_value = "kk" & i 
Select Case vari_value 
    Case Is = "kk1" 
     MsgBox "One" 
    Case Is = "kk2" 
     MsgBox "Two" 
    Case Is = "kk3" 
     MsgBox "Three" 
    Case Is = "kk4" 
     MsgBox "Four" 
End Select 
'MsgBox vari_value 
Next 
End Sub 

희망 값 "KK1"와 함께이 문제를 해결합니다.