< % function XCL_suiji() Randomize Do While Len (XCL_suiji) < 12 ' 随机密码位数 num1 = CStr ( Chr (( 57 - 48 ) * rnd + 48 )) ' 0~9 num2 = CStr ( Chr (( 90 - 65 ) * rnd + 65 )) ' A~Z num3 = CStr ( Chr (( 122 - 97 ) * rnd + 97 )) ' a~z XCL_suiji = XCL_suiji & num1 & num2 & num3 loop end function % > < % = XCL_suiji% >