锐客网

  1. 首页 > 生活百科 > it技术 > >

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

IT技术半径

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输入圆的半径 计算周长和面积的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何在1.7.2版本中开启Minecraft服务器？ 1.7.2怎么开服务器

    下一篇：flutterboost白屏，flutter ios启动白屏