vb.net输入圆的半径 vb输入圆的半径 计算周长和面积

VB作业 作业:输入圆的半径,计算圆面积和圆周长 。计算结果数据类型为单精度型 。①方法1:
Private Sub Command1_Click()
Dim p As Single
Dim s As Single
Dim r As Single
p = 3.1415'定义PAI的值
r = Val(Text1)
s = p * r ^ 2'面积公式
c = 2 * p * r'周长公式
Label2.Caption = c '标签2输出周长结果
Text2 = s'文本框2输出面积结果
End Sub
②方法2
Private Sub Command1_Click()
Dim p As Single
Dim s As Single
Dim r As Single
p = 3.1415'定义PAI的值
r = InputBox("请输入一个圆的半径", "输入", 0)'获取输入值
s = p * r ^ 2'面积公式
c = 2 * p * r'周长公式
MsgBox ("圆的面积为:"s"圆的周长为:"c) '输出结果
End Sub
VB输入半径 , 计算圆周长和圆面积 。运行通过vb.net输入圆的半径,希望对vb.net输入圆的半径你有帮助 。
Private Sub Command1_Click()
Dim r As Double
r = Val(Text1.Text)
c = 2 * 3.14 * r
s = 3.14 * r * r
Print "周长c="; c; "面积s="; s
【vb.net输入圆的半径 vb输入圆的半径 计算周长和面积】End Sub
Private Sub Form_Load()
Me.Show
Text1.Text = ""
MsgBox "请输入要计算vb.net输入圆的半径的圆vb.net输入圆的半径的半径"
Text1.SetFocus
End Sub
求帮忙编写vb程序 。vb.net程序,输入圆的半径,求圆的面积和周长 。跪谢!Dim pi As Single = 3.14159
Dim R As Single = Val(InputBox("输入半径"))
MsgBox("圆面积="pi * R * R.ToString)
MsgBox("圆周长="2 * pi * R.ToString)
vb选择结构习题从键盘输入一个半径,输出圆的面积和周长,输出要求有文 字说明,保留两位小数?Private Sub Command1_Click()
r = Val(InputBox("请输入圆vb.net输入圆的半径的半径vb.net输入圆的半径:"))
PI = 3.1415926
c = Round(2 * PI * r, 2)
s = Round(PI * r * r, 2)
MsgBox ("半径="rvbCrLf"圆面积="svbCrLf"圆周长="c)
End Sub
关于vb.net输入圆的半径和vb输入圆的半径 计算周长和面积的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站 。

    推荐阅读