รับรหัสฟังก์ชันของหน่วยนับสิบและร้อยหลัก

รับรหัสหน่วยสิบและหลักร้อย เพื่อนๆ ที่ต้องการสามารถอ้างอิงได้ คัดลอกรหัสรหัสดังต่อไปนี้:

FunctionNumberSplit(ตัวเลข)

สลัวฉันความยาว

ความยาว=เลน(เลข)

สำหรับ i=1 ถึงความยาว

NumberSplit=NumberSplit & num mod 10 & , 'ส่วนที่เหลือ'

num = num / 10 'หารลงตัว

ต่อไป

NumberSplit=ซ้าย(NumberSplit,Len(NumberSplit)-1)

ฟังก์ชันสิ้นสุด