用VB设计一个程序计算物理,英语,数学三门课的绩点.

根据成绩计算绩点的公式是什么?
60分绩点是1,然后每增加1分,绩点就增加0.1,例如:80就是绩点为3,98就是绩点为4.
是这样子吗?如果是这样子的~
程序：
dim phy,eng,math
phy=79 '物理考79
eng=90 '英语考90
math=90 '数学考90
phy1=(phy-60)/10+1 '根据上面的计算公式得来的
eng1=(eng-60)/10+1
math1=(math-60)/10+1
print "物理成绩是:" & phy1 & ",英语成绩是:" & eng1 & ",数学成绩是:" & math1
end
/如果公式不是这样子的,只要把公式改下,成绩改下就行