Cls
在文本模式和图形模式下清除屏幕
Cls mode
mode
可以给出一个可选的mode 参数，
在图形模式下，如果要清除整个屏幕颜色0 ，使用明确可以更快地将屏幕内容写入屏幕内容，而不是调用Cls.
语法
用法
Cls mode
参数
mode
值为0至2的可选数字变量。如果省略，则默认为1.
说明
可以给出一个可选的mode 参数，
如果省略，Cls将清除文本或图形视口。如果使用View （图形）语句定义了图形视口，则图形视口将被清除。否则，由View Print定义的文本视口将被清除。（如果没有定义明确的文本视口，整个屏幕将被清除。）
如果0，则清除整个屏幕
如果1，如果定义，则清除图形视口。否则，清除文本视口
如果2，则清除文本视口
如果0，则清除整个屏幕
如果1，如果定义，则清除图形视口。否则，清除文本视口
如果2，则清除文本视口
例子
''将颜色设置为蓝色背景上的浅灰色文字
Color 7, 1
''将屏幕清除为背景颜色
Cls
''在屏幕中央打印文字
Locate 12, 33
Print "你好宇宙！"
Color 7, 1
''将屏幕清除为背景颜色
Cls
''在屏幕中央打印文字
Locate 12, 33
Print "你好宇宙！"
在图形模式下，如果要清除整个屏幕颜色0 ，使用明确可以更快地将屏幕内容写入屏幕内容，而不是调用Cls.
Dim scrbuf As Byte Ptr, scrsize As Integer
Dim As Integer scrhei, scrpitch
Dim As Integer r = 0, dr = 1
ScreenRes 640, 480, 8
scrbuf = ScreenPtr: Assert( scrbuf <> 0 )
ScreenInfo( , scrhei, , , scrpitch )
scrsize = scrpitch * scrhei
Do
''锁定屏幕（必须在屏幕缓冲区直接工作时执行此操作）
ScreenLock
''清除屏幕（可以在这里使用Cls）：
Clear *scrbuf, 0, scrsize
''画圆
Circle (320, 240), r
ScreenUnlock
''成长/收缩圆半径
r += dr
If r <= 0 Then dr = 1 Else If r >= 100 Then dr = -1
''每帧中短暂暂停（防止CPU占用）
Sleep 1, 1
''运行循环，直到用户按下一个键
Loop Until Len(Inkey) > 0
Dim As Integer scrhei, scrpitch
Dim As Integer r = 0, dr = 1
ScreenRes 640, 480, 8
scrbuf = ScreenPtr: Assert( scrbuf <> 0 )
ScreenInfo( , scrhei, , , scrpitch )
scrsize = scrpitch * scrhei
Do
''锁定屏幕（必须在屏幕缓冲区直接工作时执行此操作）
ScreenLock
''清除屏幕（可以在这里使用Cls）：
Clear *scrbuf, 0, scrsize
''画圆
Circle (320, 240), r
ScreenUnlock
''成长/收缩圆半径
r += dr
If r <= 0 Then dr = 1 Else If r >= 100 Then dr = -1
''每帧中短暂暂停（防止CPU占用）
Sleep 1, 1
''运行循环，直到用户按下一个键
Loop Until Len(Inkey) > 0
与QB差别
- 没有
参考