例55：Draw String使用

建立一个控制台工程，输入代码：

'这里给出了一个基本的绘制字符串用法的例子：它使用它在屏幕中央打印“Hello world”

Const w = 320, h = 200 ''屏幕尺寸

Dim x As Integer, y As Integer, s As String

''打开图形窗口

ScreenRes w, h

''在屏幕中央绘制一个字符串：

s = "hello world"

Print(Len(s))

x = (w - Len(s) * 8) \ 2

y = (h - 1 * 8) \ 2

Draw String (x, y), s

''在结束程序之前等待按键

Sleep