Input()
从控制台或文件读取一些字符
Declare Function Input Overload ( n As Integer ) As String
Declare Function Input ( n As Integer, filenum As Integer ) As String
result = Input[$]( n [, [#]filenum ] )
n
从控制台读取一些字符，或从filenum 指定的绑定文件/设备。
第一个版本等待并从键盘缓冲区读取n 个字符。扩展键不读。字符没有回显到屏幕。
第二个版本等待并从文件或设备读取n 个字符。文件位置已更新。
语法
Declare Function Input Overload ( n As Integer ) As String
Declare Function Input ( n As Integer, filenum As Integer ) As String
用法
result = Input[$]( n [, [#]filenum ] )
参数
n
要读取的字节数
filenum 绑定的文件或设备的文件号。
返回值
说明
从控制台读取一些字符，或从filenum 指定的绑定文件/设备。
第一个版本等待并从键盘缓冲区读取n 个字符。扩展键不读。字符没有回显到屏幕。
第二个版本等待并从文件或设备读取n 个字符。文件位置已更新。
例子
Print "按号码选择颜色"
Print "蓝色"
Print "红色"
Print "绿色"
Dim choice As String
Do
choice = Input(1)
Loop Until choice >= "1" And choice <= "3"
Print "蓝色"
Print "红色"
Print "绿色"
Dim choice As String
Do
choice = Input(1)
Loop Until choice >= "1" And choice <= "3"
与QB差别
- 没有
参考