可演示金刚石仿真图画,vb编写程序运行,可任意输入变数进行演示