輸入半徑，計算圓周長和圓面積(保留小數(shù)點后兩位小數(shù))

進一步要求，為了保證程序運行正確，對輸入的半徑要進行合法性檢查。數(shù)據(jù)輸入結束有兩種方法，

分別編事件過程對數(shù)據(jù)進行檢驗：

1：按Tab鍵，檢查數(shù)據(jù)的合法性，利用TextBox1_LostFocus事件。

2：按回車鍵，當TextBox1_KeyPress事件中的返回參數(shù)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("輸入數(shù)字有非數(shù)字字符，請重新輸入","數(shù)據(jù)檢驗")

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("輸入數(shù)字有非數(shù)字字符，請重新輸入","數(shù)據(jù)檢驗")

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)所遇到的程序開發(fā)問題。

如果覺得編程之家網(wǎng)站內容還不錯，歡迎將編程之家網(wǎng)站推薦給程序員好友。

本圖文內容來源于網(wǎng)友網(wǎng)絡收集整理提供，作為學習參考使用，版權屬于原作者。

小編個人微信號 jb51ccc

喜歡與人分享編程技術與工作經(jīng)驗，歡迎加入編程之家官方交流群！

總結

以上是生活随笔為你收集整理的html页面计算圆的周长和面积,计算圆的周长和面积（VB）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內容還不錯，歡迎將生活随笔推薦給好友。