怎么贴钢化膜没有白边:VBscript代码什么意思?

(57-48)*rnd取1-9间的随机值
Chr((57-48)*rnd+48)转成char类型
CStr(Chr((57-48)*rnd+48))转成字符串类型

---------------------分隔线-----------------------

资料：
Rnd 函数
返回一个随机数。

Rnd[(number)]

number 参数可以是任意有效的数值表达式。

说明
Rnd 函数返回一个小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式：

如果 number 为 Rnd 生成
小于零 每次都相同的值，使用 number 作为种子。
大于零 序列中的下一个随机数。
等于零 最近生成的数。
省略 序列中的下一个随机数。

因每一次连续调用 Rnd 函数时都用序列中的前一个数作为下一个数的种子，所以对于任何最初给定的种子都会生成相同的数列。

在调用 Rnd 之前，先使用无参数的 Randomize 语句初始化随机数生成器，该生成器具有基于系统计时器的种子。

要产生指定范围的随机整数，请使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里， upperbound 是此范围的上界，而 lowerbound 是此范围内的下界。

注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用同样 number 值的 Randomize 不能重复先前的随机数序列。

---------------------分隔线-----------------------
Chr 函数
返回与指定的 ANSI 字符代码相对应的字符。

Chr(charcode)

charcode 参数是可以标识字符的数字。

说明
从 0 到 31 的数字表示标准的不可打印的 ASCII 代码。例如，Chr(10) 返回换行符。

下面例子利用 Chr 函数返回与指定的字符代码相对应的字符:

Dim MyChar
MyChar = Chr(65) '返回 A。
MyChar = Chr(97) '返回 a。
MyChar = Chr(62) '返回 >。
MyChar = Chr(37) '返回 %。
注意 ChrB 函数与包含在字符串中的字节数据一起使用。ChrB 不是返回一个或两个字节的字符，而总是返回单个字节的字符。ChrW 是为使用 Unicode 字符的 32 位平台提供的。它的参数是一个 Unicode (宽字符)的字符代码，因此可以避免将 ANSI 转化为 Unicode 字符。

---------------------分隔线-----------------------

CStr 函数
返回表达式，该表达式已被转换为 String 子类型的 Variant。

CStr(expression)

expression 参数是任意有效的表达式。

说明
通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，使用 CStr 强制将结果表示为 String。

CStr 函数用于替代 Str 函数来进行从其他数据类型到 String 子类型的国际公认的格式转换。例如对十进制分隔符的识别取决于系统的区域设置。

expression 根据下表决定返回的数据：

如果 expression 为 CStr 返回
Boolean 字符串，包含 True 或 False。
Date 字符串，包含系统的短日期格式日期。
Null 运行时错误。
Empty 零长度字符串 ("")。
Error 字符串，包含跟随有错误号码的单词 Error。
其他数值 字符串，包含此数字。

下面的示例利用 CStr 函数把数字转换为 String:

Dim MyDouble, MyString
MyDouble = 437.324 ' MyDouble 是双精度值。
MyString = CStr(MyDouble) ' MyString 包含 "437.324"。

Chr 把ascii码数值转换成字符，rnd随机函数－返回值0到1，CStr把表达式转换结果转换成字符串

你可能在48后面少写了一个+1
如果确定没少写那么57就是56+1
(57-48)*rnd+48 随机产生一个数字在48到56之间
'(上限-下限+1)*rnd+下限
Chr((57-48)*rnd+48) 将随机产生的数转化为ascii字符
CStr(Chr((57-48)*rnd+48))将转化的字符变成字符类型
num1=CStr(Chr((57-48)*rnd+48)) 赋值