在VBScript編程中，`InputBox` 是一個非常實用的函數，用于從用戶那里獲取輸入信息。它能夠彈出一個對話框，提示用戶輸入文本或選擇選項，并將輸入的內容返回給程序。本文將通過實例詳細講解 `InputBox` 函數的使用方法及其應用場景。

什么是 InputBox 函數？

`InputBox` 是VBScript中的內置函數，語法如下：

```vbscript

InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])

```

- prompt：必需。指定在對話框中顯示的提示信息。

- title：可選。指定對話框的標題欄文字。

- default：可選。指定對話框中的默認值。

- xpos 和 ypos：可選。指定對話框的位置（以屏幕像素為單位）。

- helpfile 和 context：可選。指定幫助文件及其上下文ID。

基本用法示例

以下是一個簡單的例子，演示如何使用 `InputBox` 獲取用戶輸入并顯示結果：

```vbscript

Dim userInput

userInput = InputBox("請輸入您的名字：", "姓名輸入")

MsgBox "您好，" & userInput & "！歡迎使用本系統。"

```

在這個例子中：

- 提示信息是“請輸入您的名字：”。

- 對話框的標題是“姓名輸入”。

- 用戶輸入的內容會存儲在變量 `userInput` 中。

- 最后，使用 `MsgBox` 顯示歡迎消息。

高級用法示例

我們可以通過設置更多的參數來增強功能。例如，設置默認值和調整對話框位置：

```vbscript

Dim userInput

userInput = InputBox("請輸入您的年齡：", "年齡輸入", "18", 100, 100)

If IsNumeric(userInput) Then

MsgBox "您輸入的年齡是：" & userInput

Else

MsgBox "無效輸入，請輸入數字！"

End If

```

在這個例子中：

- 默認值設置為“18”。

- 對話框初始位置位于屏幕左上角100,100處。

- 程序會檢查輸入是否為數字，確保數據的有效性。

實際應用案例

假設我們需要編寫一個腳本來收集用戶的反饋意見，可以這樣實現：

```vbscript

Dim feedback

feedback = InputBox("請留下您的寶貴意見：", "意見反饋")

If Len(Trim(feedback)) > 0 Then

MsgBox "感謝您的反饋：" & feedback

Else

MsgBox "您未提供任何反饋。"

End If

```

這個腳本會在用戶點擊“確定”按鈕后檢查是否有輸入內容，如果有則顯示感謝信息；否則提醒用戶補充反饋。

注意事項

1. 安全性問題：由于 `InputBox` 不具備復雜的驗證機制，因此在處理敏感信息時需謹慎。

2. 用戶體驗：合理設計提示語句和默認值，確保用戶能夠快速理解操作流程。

3. 兼容性：雖然 `InputBox` 在大多數環境中都能正常工作，但在某些特殊環境下可能無法正確顯示或響應。

總結來說，`InputBox` 是VBScript中獲取用戶輸入的一種簡單而有效的方式。通過靈活運用其各項參數，開發者可以輕松構建出滿足需求的功能模塊。希望本文提供的實例能幫助你更好地掌握這一函數的應用技巧！