VB中輸入函式InputBox的用法

來源：酷知科普網 2.88W

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