แนะนำ: วิธี จำกัด วิธีการที่สามารถป้อนเป็นภาษาจีนได้ ฟังก์ชั่น ischarsinbag (s, bag) {var i, c; สำหรับ (i = 0; i s.length; i ++) {c = s.charat (i); // ตัวละครในสตริง s if (bag.indexof (c) -1) ส่งคืน c; } กลับ ; } ตรวจสอบฟังก์ชั่น: ฟังก์ชั่น ischinese (s) {var errorsarchar; var badchar = abcdefghijklmnopqrst
ฟังก์ชัน ATOC (A เป็นสกุลเงิน) เป็นสตริง'หมายเหตุ: ฟังก์ชั่นนี้เหมาะสำหรับการแปลงสกุลเงินต่ำกว่าล้านล้านดอลลาร์ทำให้มูลค่าของ A เป็นทศนิยมสองตำแหน่งมากที่สุด
'กำหนดสองสายโดยที่อักขระและตัวเลขจีนจะถูกคำนวณเป็นหนึ่ง
Dim String1 เป็นสตริง 'ตามที่กำหนดไว้ด้านล่าง
Dim String2 เป็นสตริง 'ตามที่กำหนดไว้ด้านล่าง
Dim String3 เป็นค่าสตริงที่นำมาจากค่าดั้งเดิม A
Dim I เป็นตัวแปรลูปจำนวนเต็ม
Dim J เป็นค่าจำนวนเต็ม 'A คูณด้วยความยาวสตริง 100 ของ 100
สลัว CH1 เป็นสตริง 'การอ่านตัวเลขภาษาจีน
Dim CH2 เป็น string 'การออกเสียงอักขระจีนของบิตตัวเลข
หรี่
String1 = 01234444444444444444444444444444444444444444444444444444444444444444444444444444444444444444ะของ 44444444444444444444444444444444444444444444444444444444444444444444444444444444444444444 ก็คือคาดถึง4444444444444444444444444444444444
String2 = 10,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000,000
'msgbox cstr (a * 100)
ถ้า instr (1, cstr (a * 100),.) <> 0 แล้ว
err.raise 5000, ฟังก์ชั่นนี้ (atoc ()) สามารถแปลงตัวเลขภายในสองหลักหลังจากจุดทศนิยม!
สิ้นสุดถ้า
j = len (cstr (a * 100))
string2 = ขวา (String2, j) 'นำค่าของ String2 ของจำนวนตัวเลขที่สอดคล้องกัน
สำหรับ i = 1 ถึง J
String3 = mid (a * 100, i, 1) 'นำค่าของบิตที่แน่นอนที่จะแปลง
ถ้า String3 <> 0 แล้ว
CH1 = MID (String1, Val (String3) + 1, 1)
ch2 = mid (string2, i, 1)
nzero = nzero + 1 'หมายความว่าฐานไม่ใช่ศูนย์
อื่น
แบ่งปัน: 15 ตัวอย่างที่มีประโยชน์มากในการเขียนโปรแกรม ASP (II) 8. กล่องโต้ตอบการป้อนรหัสผ่านการบังคับให้ใส่ประโยคนี้ในช่วงเริ่มต้นของการตอบสนองหน้า % status = 401 ไม่ได้รับอนุญาตการตอบกลับ % 9 วิธีการส่งตัวแปรจากหน้าหนึ่งไปยังคำตอบอื่นใช้ประเภทที่ซ่อนอยู่
2 หน้ารวมหน้าก่อนหน้า 12 หน้าถัดไป