QTP中一些VB脚本函数的使用

如何是用split函数：
dim arts 包含许多数据，以标点符号隔开。这里以“，”为例
dim arraylist 定义一个数组
arraylist = split(arts,",",-1,1)

subAmount = Right(subAmount,subLen) 'subLen是个长度，就是你从右边开始要截取的内容长度
shippFee = Right(shippFee,shipLen)
subAmount = CSng(subAmount) '转换成Float数据类型
shippFee = CSng(shippFee)
'转换字符函数是Cstr() 

CBool（布尔型）、CByte、CInt、CLng、CDate，CSng等
DataTable.Value("Gstfee","Fab询价单") = "(USD)"&Round((subAmount+shippFee)*0.05,2)'取得小数点后两位数，四舍五入