📄 chapter04teston_error.pro

📁 idl 可视化分析与应用（随书程序）

💻 PRO

字号:

; Chapter04TestON_ERROR.pro
PRO  Chapter04TestON_ERROR
　　Number = 0D
　　ValidFlag = 0
　　WHILE ValidFlag EQ 0 DO BEGIN
　　　　ON_IOERROR, ErrorLabel
　　　　READ, PROMPT=' 请输入一个数：' , Number
　　　　ValidFlag = 1
　　　　PRINT, '你输入的数据' , Number , '有效！'
　　　　ErrorLabel: IF  ~ ValidFlag THEN BEGIN
　　　　　　　　　　　PRINT, '你输入的数据无效！'
　　　　　　　　　ENDIF
　　ENDWHILE
END

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -