html页面计算圆的周长和面积,计算圆的周长和面积(VB)

输入半径,计算圆周长和圆面积(保留小数点后两位小数)

进一步要求,为了保证程序运行正确,对输入的半径要进行合法性检查。数据输入结束有两种方法,

分别编事件过程对数据进行检验:

1:按Tab键,检查数据的合法性,利用TextBox1_LostFocus事件。

2:按回车键,当TextBox1_KeyPress事件中的返回参数e.KeyChar的ASC()值为13时表示输入结束。

Public Class Form1

Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If Asc(e.KeyChar) = 13 Then

If Not IsNumeric(TextBox1.Text) Then

MsgBox("输入数字有非数字字符,请重新输入","数据检验")

TextBox1.Text = ""

TextBox1.Focus()

End If

End If

End Sub

Private Sub TextBox1_LostFocus(ByVal sender As Object,ByVal e As System.EventArgs) Handles TextBox1.LostFocus

If Not IsNumeric(TextBox1.Text) Then

MsgBox("输入数字有非数字字符,请重新输入","数据检验")

TextBox1.Text = ""

TextBox1.Focus()

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click

Dim r!,c!

r = TextBox1.Text

c = 2 * 3.1415926 * r

TextBox2.Text = Format(c,"0.00")

End Sub

Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click

Dim r!,s!

r = TextBox1.Text

s = 3.1415926 * r * r

TextBox3.Text = Format(s,"0.00")

End Sub

End Class

总结

以上是编程之家为你收集整理的计算圆的周长和面积(VB)全部内容,希望文章能够帮你解决计算圆的周长和面积(VB)所遇到的程序开发问题。

如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。

小编个人微信号 jb51ccc

喜欢与人分享编程技术与工作经验,欢迎加入编程之家官方交流群!

  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值