Dim RStr(0 ~ 7) 을 문자열로 사용
Dim I, j, k, n.
개인 하위 명령 1_Click ()
If 명령 1. Caption = "시작"
명령 1. Caption = "끝"
하면서 1
If 명령 1. Caption = "시작"
수출 Do
만약 ... 끝날거야
여러 활동
불규칙하게 만들다
K = Int(Rnd * n)
텍스트1입니다. 텍스트 = rstr (k)
텍스트1입니다. 정신을 회복하다
I = 1 ~ 30000 의 경우
If 명령 1. Caption = "Start "를 선택한 다음 종료합니다.
여러 활동
다음으로 저는
고리
Rstr (k) = rstr (n-1): n = n-1
기타
명령 1. Caption = "Go "
만약 ... 끝날거야
Jzdcs 를 정수로 표시합니다
끝단 접합
개인 하위 양식 _Load ()
N = 8
RStr(0) = "1 섹션 8: 00–8: 45 주제:"
RStr( 1) = "섹션 ii 8: 55–9: 40 항목:"
RStr(2) = "3 부 9: 55- 10: 40 주제:"
RStr(3) = "섹션 iv10: 50-11:35 주제:"
RStr(4) = "v 부13: 30-14:15 주제:"
RStr(5) = "섹션 614: 30-15:15 주제:"
RStr(6) = "섹션 VII15: 25-16:10 주제:"
RStr(7) = "섹션 VIII16: 20-17: 05 주제:"
끝단 접합