tdbgrid 数据类型输入错误 vb_VB快捷计算圆的直径、周长、面积程序

大家好，今天我们共同来学习如何用VB编程来计算圆的直径、周长、面积程序。

用到的VB知识点有1

VB常量及变量的应用；

2

根据程序功能，定义适当的VB数据类型；

3

VB算法、选择结构、事件的综合应用。

VB 需要掌握的基础知识 1、 圆的直径=2*半径； 2、圆的周长=π*直径=π*2*半径； 3、 圆的面积=π*半径^2。

窗体界面图

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中有遇到问题可添加下图小编微信号。