Mid 함수를 사용하여 5개의 문자열 그룹을 선택하고 vbCrLf를 추가하여 문자열을 래핑한 다음 루프를 통해 텍스트 상자에 출력합니다. Option?Explicit
Dim?sj?As?String
Private?Sub?Command1_Click()
Dim?i?As?Long
For?i?=?1?To?Len(sj)?5단계
Text1?=?Text1?&?Mid(sj,?i,?5)?&?vbCrLf
다음
End?Sub
Private?Sub?Form_Load()
sj?=?"54명의 입법회 의원은 오늘 선전은 왕광야 홍콩마카오사무판공실 주임, 리페이 기본법위원회 주임, 장샤오밍 중앙인민정부 연락판공실 주임과 왕광야를 만나 마지막 연설을 했습니다. 홍콩의 민주화 과정은 홍콩의 조국 반환이라는 중요한 역사적 전환점에서 시작되었으며 지난 18년 동안 그 과정을 점진적으로 탐색해 왔으며 홍콩의 현실에 부합하는 민주적 발전의 길을 마련했습니다. 기본법에 규정된 보통선거 목표 달성을 위한 기반 "
Text1?=?""
End?Sub