dim s as string = " 10.05×5×1.35×R1.25" ’定义一个字符型变量，s在这里只是一个名字，可以自由指定名字，用来保存后面的字符串值10.05×5×1.35×R1.25，这个值要用双引号括起来（当需要同时定义多个时，请用英文逗号隔开，定义多个时不能直接赋值）。
dim ar() as string = s.split("×") ‘定义一个字符型数组，用来分别保存将上一行s的值用“×”进行分割成的多个分段。
if ar.length >= 3 then ’判断分割后获得的支付分段不小于3个，才能满足您的前3个相乘的要求。
dim j as double = ar(0) * ar(1) * ar(2) ‘定义一个双精度小数型变量用来保存ar数组中前3个数相乘的积ar(0)表示第1个、ar(1)表示第2个……以此类推。
msgbox(j) ’用提示框提示计算结果。
end if
注意，上面的代码如果获得的字符串不合法，会出现错误，应当遍历并判断，比如：ar(2) 的值为R1.25，不负荷纯粹的数值格式，应当去掉r才可以执行。等您明白了再给您新的代码
加好友 
发短信
Post By：2020/3/15 22:38:00 [显示全部帖子]
