Vb 코드: 숫자를 대문자로 쓰는 방법

Capital Const strN = "0123456789" Const strG = "100 조" consintnn = "0123456789" dimzero _ cons 개인 상수 error _ baddb =1009 & 개인 상수 error _ bad key =1010 & 개인 상수 error _ cantopen =1011& Private const error _ cantread =1012 & Private const error _ cantwrite =1013 & 개인 상수 error _ out of memory =14 & 개인 상수 error _ invalid _ parameter = 87 & 전용 상수 ERROR _ ACCESS _ DENIED = 5& 전용 상수 ERROR _ NO _ MORE _ ITEMS = 259& 전용 상수 error _ more _ data As String GetN = Mid(strN, N+1, 1) End 함수 전용 함수 getg (byval g as long) as string selet 6 GetG = Mid(strG, 1,1) case3,7 getg = mid (strg, 2,/kloc-0) 8 getg =11) end select end function private function read long number (byval longx as string) As string dim number x as string dim l as long' length dim m m as long' 중복 자릿수 Dim c As Long' 주기 수 Dim I As Long, J as long' flag dim curn as string numberx = longxl = len (numberx) do until l8 을 종료하고 함수 m = l Mod 9 CurN = Right(NumberX, M) for I = len (curn) to1step-654381) = "zero" 및 zero _ count = "만" 그리고 if (not (val (left (Curn left (curn, len (curn)-5)) = read int number end if else getn (int (mid (Curn Int 수 읽기 if getg (Len (Curn)-I+ 1) = "만" 과 if (Not (val (left (Curn, len (curn Readint number end if zero _ count =1else readint number = getg (len (curn)-I+/kloc-0 Readint number zero _ count = 0 end if end if next I' loop if len (readint number) > 2 와 right (read int number, 1) = "zero "그리고' tailed zero read int number = left (read int number, len (read int number)- 2) = "ten "그리고' 꼬집고 ten read int number = right (read int number, len (read int number)-1) 1) = "pick" end if end function public function read number (byval numberx as string) As string dim longx as string dim pointx as string dim longong as long dim bfs as boolean' 음수가 아닌 경우 숫자 (numberx) ， Read number = "exit function end if cdbl (numberx) < 0, numberx =-numberx bfs = true end if numberx = CSTR ( "general number")) long long = instr (1,NumberX, "") 드래곤<& gt 인 경우 read number = r "점"&; Readsmallnumber (right (numberx, len (numberx)-longong)) else read number = read long number (numberx) ReadNumber End If End Function 전용 함수 readsmallnumber (small number as string) as string dim I as long for I =1to len ( GetN(Mid(SmallNumber, I, 1)) Next I End 함수 전용 함수 readsmallnumbertormb (smallnumber as string) as SSS "각도"&; GetN(Mid(SmallNumber, 2,1)) & " Fen "end function public function readnumberorb (byval numberx as string) As string dim longx as string dim pointx as string dim long as long dim bfs as boolean' 음수 if not isnumerical (numberx) 그리고 readnumberbormb