예를 들어 제가


Option Explicit

Private Sub Form_Load

Dim x as Integer

x=InputBox("1")

Select case

Case x=1 Mod 2

  MsgBox 3*x+1

Case Else

  MsgBox x/2

End Select

End Sub


라 하면 Case안에 있는대로 실행될 거잖아요

그런데 저 Case 안에 있는 걸 반복하는 걸 반복 횟수 입력 변수 n을 따로 두고 입력한만큼 반복하는 건 어떻게 하나요?


그리고 역으로 좀 복잡한 것 같은데 x=4 Mod 6이면 x-1/3 또는 2x를 실행하게 하고 나머지는 무조건 2x를 실행하게 해서 이를 n번 반복할 때 출력값의 개수가 어떻게 되느냐를 조사하는 비쥬얼 베이직 프로그램은 어떻게 만들죠?

ex)13-26-52-17 or 104


n=3이면 17, 104가 3번째 시행에서 결과값으로 가능하므로 출력값은 2


1.위 프로그래밍에서 오류 발견하면 지적 바람

2.위 질문들에 답변 바람


답변해주시는 분 정말 감사하겠습니다