INPUT

来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgInput 最后更新: 2020-11-12

从键盘读取值。

语法

Input [;] ["prompt" ,|; ] variable_list

参数

• prompt — 可选的字符串字面量，显示在屏幕上。若后跟 ;，会追加问号 "? "。若后跟 ,，不追加任何内容。
• variable_list — 用于保存从用户读取的值的逗号分隔变量列表。

说明

Input 从键盘读取一组值，直到第一个回车为止。数值从字符串表示转换。输入的字符会立即回显到屏幕。

分隔符： 若输入列表中有多个值：

• 字符串以逗号分隔。
• 数字以逗号和空白分隔。
• 字符串值前后的空白会被裁剪。
• 包含逗号的字符串必须用引号括起来以防止分割。

要无分隔地输入到单个字符串，请改用 Line Input。

前置分号（;）： 输入完成后光标将停留在同一行，类似于 Print 中的尾随分号。

若读取的值多于变量： 多余的值会被忽略。

若读取的值少于变量： 剩余变量会被初始化（数值为0，字符串为 ""）。

编辑能力： 可使用左右光标键导航、删除或插入字符。

示例

示例1：

Dim user_name As String, user_age As Integer
Input "Enter your name and age, separated by a comma: ", user_name, user_age
Print "Your name is " & user_name & ", and you are " & user_age & " years old."

示例2：

Dim As Double a, b
Dim As String yn
Do
    Input   "Please enter a number: ", a
    Input ; "And another: ", b
    Print , "Thank you"
    Sleep 500
    Print
    Print "The total is "; a + b
    Print
    Do
        Input "Would you like to enter some more numbers"; yn
        yn = LCase(yn)
    Loop Until yn = "y" Or yn = "n"
Loop While LCase(yn) = "y"

与 QB 的差异

• 在 QBASIC 中，若用户输入错误的值，会提示"Redo from start"并在收到有效输入之前不继续。
• QB 在输入数字时不将空格视为分隔符。

另请参阅

• Input #
• Input()
• Line Input
• Print