키 마법사 9 를 눌러 배열을 정의합니다. 배열의 값은 임의 함수를 사용하여 배열의 값을 무작위로 출력하는 지정된 문자열입니다. 당신의 건의를 주세요.

A = 배열 ("ABA", "CBA", "NBA", "EBA", "FBA", "RBA")

Dim I, 응답

임의화는 난수 생성기를 초기화합니다.

응답 = vbNo 까지 Do

I = Int((5 * Rnd))' 는 0 에서 5 사이의 난수를 생성합니다.

MsgBox a(i)

Response = MsgBox ("한 번 더 굴러요?" " , vbYesNo)

고리