用VB程序求解岩石的压入硬度与塑性系数