[分享]初级QB2

pop

1.CLS的进一步用法

CLS0 清除屏幕上所有文本和图形

CLS1 仅清除图形观察窗口

CLS2 仅清除文本窗口

CLS 如果图形观察窗口是活动的,则只清除观察窗口,否则清除文本窗口

CLS语句使用完毕后,光标会到屏幕左上角位置.

2.INPUT语句和函数

　　INPUT语句在在上一篇已经说过了,在这说明一下:键盘输入的数据类型和个数必须和变量名保持一致,如果输入项目多,或少,或类型不一致就会出现错误,具体的情况可以自己试验.

　　LINE INPUT语句可以读一行信息,它可以读取有逗号,空格的一行信息并赋值给一个字符串变量.

格式INE INPUT[;]["提示信息";]<字符串变量名>

　　说明输入的信息不能超过254个字符,变量名必须是字符串类型的变量,否则会出错.

　　INPUT$函数可以接收键盘输入的信息,但不需等待用户输入回车

格式:INPUT$(N)

N是整型变量,说明接收的字符个数.

函数可以从键盘读取N个字符,赋值给函数INPUT$.

下面写一个程序,要求用户输入大写字母A结束程序,如果输入错误,提示用户输入的字符是什么,然后重新要求输入.

[例子]在QB中输入以下程序：

CLS
start:
PRINT "Please press key A to end..."
k$ = INPUT$(1)
IF k$ = "A" THEN END
PRINT "You press the key "; k$
GOTO start

3.PRINT语句的进一步用法

PRINT USING自编格式语句,可以自己设置如何显示内容.

格式RINT USING <格式符串>;<表达式>[;]

用格式符号串所指定的格式显示数字或字符串,表达式.

格式符串是由双引号括起来的一串显示控制描述符,有数字格式和字符格式两类.

(1)数字格式

Ⅰ.#表示输出项中数的位数.例如"######"表示输出的数字有6位整数.

Ⅱ.小数点表示输出项中小数点的位置.例如"###.###"表示输出的数据有3位小数.

Ⅲ.逗号放在数字的整数部分,作为数字的分隔符号.通常3位插一个逗号,例如"##,###,###,###".

Ⅳ.正号表示输出数字时不论数字正负都显示数字的符号,如果正号加在前面,则符号在前,如正号在后,则符号在后.

Ⅴ.负号表示如果数字是整数显示一个空格,如果是负数显示符号.如果负号加在前,则符号在前,如果正号在后,则符号在后.

Ⅵ.四个向上的箭头(^^^^)在格式符末尾出现,表示输出的数字以科学形式出现.

Ⅶ.星号(*)表示输出时数据的前导空格用星号代替.

Ⅷ.美圆($)表示输出数据的前导空格用美圆代替.

Ⅸ.百分号(%)表示输出数据的前导空格用0来代替.

Ⅹ.下划线(_)表示下划线后一个符号不做格式控制处理,而是当一个字符显示.

[例子]在QB中输入以下程序：

CLS
A = 1234567.8901#
B = -1234567.8901#
C = 1234567890
PRINT USING "+####,###"; A
PRINT USING "-####,###"; B
PRINT USING "####^^^^"; A
PRINT USING "##,###,###,###"; C
PRINT USING "##.###^^^^"; A
PRINT USING "**####,####"; A
PRINT USING "%%%#####,##"; B
PRINT USING "_T_o_t_a_l_:######,###"; A
END

按F5运行程序,屏幕上显示:

%+1,234,568
-%-1,234,568
123E+04
1,234,567,936
1.235E+06
**1,234,568
%%%%-1,234,568
Total: 1,234,568

(2)字符格式

Ⅰ.惊叹号(!)表示只输出字符串的第一个字符.

Ⅱ.反斜杠加空格(\这里是N个空格\)表示输出字符串前面N+2个字符.如果字符串的长度不到N+2个,则不足的用空格补.

Ⅲ.AND符(&)表示不加修饰的原样输出.

[例子]在QB中输入以下程序：

CLS
PRINT USING "!"; "Yongji Electric Machine Factory"
PRINT USING "\ \"; "Yongji Electric Machine Factory"
PRINT USING "&"; "China Northern Locomotive & Rolling and Stock Industry Group"
END

按F5运行程序,屏幕上显示:

Y
Yongji Electric Machine F
China Northern Locomotive & Rolling and Stock Industry Group