vb编程圆的面积

‘壹’ 怎样用VB计算圆的面积和周长

就两个公式嘛

圆的周长＝2×半径×圆周率＝直径×圆周率

即：圆的周长＝2πr 或πD

面积：s=πr² 或s=π(d/2)²

程序，自己弄一个textbox 1用来输入圆的半径

textbox2用来显示计算结果周长

textbox3用来显示计算结果面积

添加两个button1命名为计算圆的周长和面积。

定义常量π，定义半径r

然后在button1 事件中添加计算和显示结果代码即可。

PublicClassForm1
ConstP=3.14
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
TextBox2.Clear()'清空以前计算结果
TextBox3.Clear()'清空以前计算结果
IfTextBox1.Text<>String.EmptyThen'判断是否输入半径
DimrAsDouble=TextBox1.Text
'上面是这两部的合并DimrAsDouble
'r=TextBox1.Text
TextBox2.Text=2*P*r
TextBox3.Text=P*r*r
Else
MsgBox("请输入圆的半径")
EndIf

EndSub
EndClass

‘贰’ 关于VB编程的计算圆的面积和周长

Private Sub Form_Load() ……End Sub之间的Print 语句，是无法显示在窗体上的，建议写在窗体的单击事件里。如下：Private Sub Form_Click()……End Sub

‘叁’ 用VB6.0计算圆的面积

floatarea(floatr){
return3.14*r*r;
}

‘肆’ 怎么用VB程序求圆的面积

'直接复制此代码到代码区 然后点一下窗体输入任意一个数值即得出圆的面积
Private Sub Form_Click()
Dim x As Integer, PI As Single
PI = 3.1415926
x = InputBox("输入一个圆的半径")
y = 3.14 * x * x
MsgBox "圆的面积为：" & y
End Sub

‘伍’ VB题目是计算圆的面积，编程该怎么写

你使用好像是VB.net，这个版本已经没有这个print窗体打印函数了。

‘陆’ 如何利用VB编程，输入圆的半径，计算并输出圆的面积。

可以参考下面的代码：

Private Sub Command1_Click()

Dim p As Single

Dim s As Single

Dim r As Single

p = 3.1415 '定义周长率的值

r = InputBox("请输入一个圆的半径", "输入", 0) '获取输入值

s = p * r ^ 2 '面积公式

c = 2 * p * r '周长公式

MsgBox ("圆的面积为：" & s & "圆的周长为：" & c) '输出结果

End Sub

(6)vb编程圆的面积扩展阅读：

相关参考函数

InputBox 函数： 在对话框中显示提示信息，等待用户输入文本或者单击按钮，并返回文本框的内容。

InStr 函数： 返回一个字符串在另一个字符串中第一次出现的位置。

InStrRev 函数： 返回一个字符串在另一个字符串中出现的位置，是从字符串的末尾算起。

Int 函数 ：返回数的整数部分。

整数除法运算符()： 两数相除，返回的商取其整数部分。

Join 函数： 返回连接许多包含在一个数组中的子串而创建的字符串。

‘柒’ vb怎么计算圆形面积

Private Sub Form_click()
Dim r As Single '定义半径r为单精度(变量)
Const PI As Single = 3.1415926 '定义PI为单精度(常量)
Dim s As Single '定义面积S为单精度（变量）
r = InputBox("输入r") '半径r通过inputbox函数输入值
s = PI * r ^ 2 '用求圆面积公式，并把值赋给S
Print s '在窗体上打印出S的值
End Sub

‘捌’ 用VB程序求圆的面积

"两个commandbutton两个lable两个text"
PrivateSubCommand1_Click()
r=Text1.Text
p=3.14
s=p*r*r
Text2.Text=s


PrivateSubCommand2_Click()
End


PrivateSubText1_LostFocus()
Cls
r=Text1.Text
Circle(10000,3000),r,vbBlack
Ifr>3000Then
MsgBox"溢出！"
Else
Ifr<=0Then
MsgBox"半径不能为0！"
EndIf
EndIf
EndSub

‘玖’ 用VB编写求圆的面积

Option Explicit
Const PI = 3.1415926
Private Sub Form_Click()
Dim r
r = InputBox("输入圆的半径：r", , 10)
Print "圆的面积："; PI * r ^ 2
End Sub

‘拾’ vb编程圆的面积 错在哪里

请问一下这里面的a,b是用来干吗用的。没体现出来啊。另外面积公式是
圆周率×半径×半径=圆的面积
楼主多了一个1/2