【VB测绘程序设计】案例3——圆周长、面积计算 MsgBox的应用(附源码)
前言
本文介绍额使用label、Command、Text控件,计算圆的面积和周长,主要使用了Text1_LostFocus()的属性、MsgBox命令的使用方法。
一、界面预览
![在这里插入图片描述](https://i-blog.csdnimg.cn/blog_migrate/2aebfce8472756bf619c26277f4e7a5e.png)
二、程序介绍
本程序使用3个label控件、2个Command控件、1个Text控件,计算圆的面积和周长,使用了Text1_LostFocus()的属性、 MsgBox命令的使用方法。
用了1个变量r。
三、程序源代码
Private Sub Command1_Click()
r = Val(Text1.Text)
Label2