VB在化学中的实际应用

VB在化学中的实际应用自己设计的程序就比较简单一些，就是计算周长和面积，需要输入半径就可以了。计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。）程序清单如下：PrivateSubCommand1_Click()x=Val(Text1)*2*3.14159Picture1.Printr=&Text1Picture1.Print周长=&xEndSubPrivateSubCommand2_Click()y=Val(Text1)^2*3.14159Picture1.Printr=&Text1Picture1.Print面积=&yEndSubPrivateSubText1_Change()IfText1ThenCommand1.Enabled=TrueCommand2.Enabled=TrueEndIfEndSub运行效果如下：心得体会：在学习了这门课之后，发现设计一个关于我们专业的程序之后是非常方便的，许多复杂的问题，在编辑一次程序之后就可以用很多次，不用在一个个的去计算了，显得十分方便。在编写这个程序的时候，我也查阅了一些网上的资料，让我更容易的能做出这个程序，虽然这个程序非常的简单，但是，至少是自己亲手做出来的，显得十分有成就感。