이름? 로? 문자열? *? 10
끝? 유형
개인? Sub? Command 1_Click ()? 데이터를 씁니다
암담한가? 스튜? 로? 학생
오픈? D:\student.txt'? 뭐 때문에? 무작위? 로? # 1? 라이언. =? 라이언 (스투)
뭐 때문에? 나? =? 1? 어디 가? 60
스튜, 이름? =? InputBox ("이름을 입력하십시오.")
넣어? # 1,? 나? 스튜 (남자 이름)
다음? 나
접근? # 1
끝? 잠수함
개인? Sub? Command2_Click ()? 추출
불규칙하게 만들다
암담한가? Bb? 로? 학생,? N%
N? =? Int(Rnd? *? 60)? +? 1
오픈? D:\student.txt'? 뭐 때문에? 무작위? 로? # 1? 라이언. =? Len(bb)
알았어? # 1,? N,? Bb
텍스트1입니다. 문자? =? Bb.name
접근? # 1
끝? 잠수함