VB中輸入函數InputBox的用法

InputBox 函數用於接收用户輸入的數據。執行該函數後，將彈出一個輸入對話框，等待用户輸入數據。對話框顯示提示信息以及”確定“和”取消“兩個按鈕。當輸入數據並按下”確定“按鈕”，將返回用户輸入的內容。
格式：InputBox(Prompt[,Title][,Default][,XPos,YPos][,Helpfile,Context])
接下來我們通過圓周長和面積的計算和三角形面積的計算來了解InputBox函數。

操作方法

（01）打開VB6.0，選擇標準EXE，點擊打開

（02）在窗體中，增加標籤和文本框，修改窗體的名稱為“圓周長和麪積計算",如下圖

（03）編寫代碼，Private Sub Form_Click()Const p! = 3.14Dim r!, l!, s!r = Val(InputBox("請輸入圓的半徑:", "圓的周長和麪積計算", 1))l = 2 * p * rs = p * r * = = sEnd Sub

（04）在代碼中我們可以看到第四句就是InputBox函數的應用，它的程序運行過程如下

（05）只要任意輸入一個半徑，程序就會自動算出周長和麪積，如圖中我們輸入半徑為1

（06）接下來我們來編寫一個“計算三角形面積“的程序來進一步的瞭解InputBox函數的運用

（07）在打開的窗口中，添加3個標籤、3個文本框以及3個命令按鈕，如圖所示

（08）接着我們對一些屬性進行設置，在屬性窗口將Form1的Caption改為”計算三角形面積的程序“；將Lable1/2/3的Caption屬性改為”三角形邊長a/b/c的值；將Text1/2/3的Text屬性刪除；將Command1改為”計算三角形的面積“；將command2改為”清除“；Command3改為”退出“。效果如圖所示

（09）然後我們就可以依次點擊Command1、Command2、Command3編寫程序了代碼如下：Private Sub Command1_Click() Dim a As Double, b As Double, c As Double Dim s As Double, area As Double, r As Double a = Val(InputBox("請輸入三角形邊長a的值", "計算三角形面積程序")) = Str(a) b = Val(InputBox("請輸入三角形邊長b的值", "計算三角形面積程序")) = Str(b) c = Val(InputBox("請輸入三角形邊長c的值", "計算三角形面積的程序")) = Str(c) If a + b <= c Or a + c <= b Or b + c <= a Then r = MsgBox("您輸入的數據不符合組成三角形的條件!", , "計算三角形面積的程序") End Else s = (a + b + c) / 2 area = Sqr(s * (s - a) * (s - b) * (s - c)) MsgBox "三角形面積是:" & Str(area), , "計算三角形面積程序" End IfEnd SubPrivate Sub Command2_Click() = "": = "": = ""End SubPrivate Sub Command3_Click() EndEnd Sub

（10）那麼我們就來看看inputbox函數是如何運行的，當我們點擊計算三角形面積時，就會出現由我圖中所圈的代碼所引發的inputbox函數對話框

（11）當我們輸入了a的值之後，就會出現要求我們輸入b值的inputbox函數對話框，輸入b值之後就會出現輸入c值的inputbox函數的對話框

特別提示

編寫程序時要細心點哦，這兩個程序的步驟希望對大家有用。