大家好,今天我们共同来学习如何用VB编程来计算圆的直径、周长、面积程序。
用到的VB知识点有1VB常量及变量的应用;
2根据程序功能,定义适当的VB数据类型;
3VB算法、选择结构、事件的综合应用。
VB 需要掌握的基础知识![29d85fd5b141c1376b29d7218ef881de.gif](https://i-blog.csdnimg.cn/blog_migrate/8316f567dd5c96734c7115cbd42c1a91.gif)
![a6407e3be8aff161de2c1e6e15992381.png](https://i-blog.csdnimg.cn/blog_migrate/a735356fcdf4b1bda7331fd3e7e61ac3.png)
![7401d7005f7696c320cf35cc978f3b05.png](https://i-blog.csdnimg.cn/blog_migrate/488a829813fb26bb2c4c035471300bb1.png)
窗体界面图
VB 代码实现'===============================VB学习编写===========================================Option ExplicitConst pi As Single = 3.14 '定义圆周率常量PIDim r As Single, d As Single, c As Single, s As Double '定义半径、直径、周长、面积Private Sub Command1_Click() '单击计算 r = Val(Text1) '将文本框输入的值赋值给变量r If Option1.Value = True Then '选中直径按钮 d = 2 * r Label1.Caption = "直径为:" & d ElseIf Option2.Value = True Then '选中周长按钮 c = 2 * pi * r Label1.Caption = "周长为:" & c ElseIf Option3.Value = True Then '选中面积径按钮 s = pi * r * r Label1.Caption = "面积为:" & s Else MsgBox "请选择计算的种类!" '任何按钮都未选中,则给出警告提示,不计算 End IfEnd Sub
实际运行图
计算周长
计算面积
END学习VB中有遇到问题可添加下图小编微信号。