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

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

分別編事件過程對數據進行檢驗：

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

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

總結

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

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